asp CutStrX字符串截取函数(过滤全部HTML标记)
更新时间：2011年07月05日 15:30:51 作者：
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
相关文章
如果你知道Response.Flush和Response.Clear，那你就可以不用这样的等待了。每生成一个Html页面，就用Response.write立即返回一条信息，提示该条数据库记录已经生成Html。2008-08-08
ASP.NET MVC+EntityFramework图片头像上传功能实现
这篇文章主要介绍了ASP.NET MVC+EntityFramework图片头像上传功能实现，本文通过实例代码给大家介绍的非常详细，对大家的学习或工作具有一定的参考借鉴价值,需要的朋友可以参考下2023-12-12
[橙色][酱色][紫色][绿色]简单分页函数一 常用...2006-08-08
使用AJAX实现UTF8编码表单提交到GBK编码脚本无乱码的解决方法
这篇文章主要介绍了用AJAX实现，多个不同编码的项目（GBK，UTF8）互相通过 POST/GET 汇总表单数据。最终实现 使用同一个页面接收 不同编码的 表单（GBK,UTF8），特别适合 JS 采集项目,需要的朋友可以参考下2020-09-09
全面优化ASP应用程序的性能的方法...2007-03-03
你是否有时想知道什么人访问你的站点，什么时间，IP地址等。下面我就这个问题向大家来阐述一下。2011-02-02
asp 采集实战代码...2007-08-08
在ASP中连接MySQL数据库的方法，最好的通过ODBC方法
在ASP中连接MySQL数据库的方法，最好的通过ODBC方法...2007-04-04
ASP利用Google实现在线翻译功能...2006-09-09
ReplaceSaveRemoteFile 替换、保存远程图片 的代码
ReplaceSaveRemoteFile 替换、保存远程图片 的代码...2007-09-09
最新评论