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=”(]*>)” str=r.Replace(str,” “) Set r=Nothing l=Len(str) t=0 For i=1 To l c=AscW(Mid(str,i,1)) If c255 Then t=t+2 Els