复制代码 代码如下: 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

　　推荐阅读

　　ASP中Utf-8与Gb2312编码转换乱码问题的解决方法 页面编码声明

出现这样的问题是当你浏览UTF-8编码的时候，服务器默认用UTF-8的引擎来输出html，当你用再浏览GB2312的页面时，它还是用UTF-8来输出本应是GB2312编码的页面所以会乱码。 为了这个问题烦了我一个早上，终于的蓝色理>>>详细阅读

本文标题：asp CutStrX字符串截取函数(过滤全部HTML标记)

地址：http://www.17bianji.com/kaifa2/ASP/31825.html

 1/2    1