asp CutStrX字符串获取函数 过滤全部HTML标记

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

（编辑：银川站长网）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!