asp_CutStrX字符串截取函数(过滤全部HTML标记)
来源:
中文源码网 浏览:171 次 日期:2024-04-24 23:58:28
【下载文档: asp_CutStrX字符串截取函数(过滤全部HTML标记).txt 】
asp CutStrX字符串截取函数(过滤全部HTML标记)
复制代码 代码如下: Function CutStrX(ByVal Str,ByVal StrLen) Dim l,t,c,i,r '过滤全部HTML标记 Set r=New RegExp r.Global=True r.MultiLine=True r.Pattern="(?[A-Za-z][A-Za-z0-9]*[^>]*>)" str=r.Replace(str," ") Set r=Nothing l=Len(str) t=0 For i=1 To l c=AscW(Mid(str,i,1)) If c<0 Or c>255 Then t=t+2 Else t=t+1 IF t>=StrLen Then CutStrX=Left(Str,i)&"..." Exit For Else CutStrX=Str End If Next End Function