idcbe.com
Tag: 过滤预览模式: 普通 | 列表

Asp过滤HTML特定代码的函数

Asp过滤HTML的函数:过滤图片、链接.....

Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹 配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合,并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function

引用举例:

 

Tags: ASP 过滤 函数 代码

分类:网站建设 | 固定链接 | 评论: 0 | 引用: 0 | 查看次数: 5739