asp CutStrX字符串转换函数(滤除全部HTML标注)

发布时间：2023-06-20 15:15:56 所属栏目：Asp教程来源：

导读：asp CutStrX字符串截取函数(过滤全部HTML标记),比较不错，需要的朋友可以参考下。

复制代码代码如下:

Function CutStrX(ByVal Str,ByVal StrLen)

Dim l,t,c,i,r

'过滤全部HTML标记

Set r=Ne

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

（编辑：聊城站长网）

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