asp去除html的函数代码分析附实例说明

　　下面这段代码，不会替换ld<sad中间的<，所以内容仍然是正常的

复制代码代码如下:

　　<%

　　function nohtml(str)

　　dim re

　　Set re=new RegExp

　　re.IgnoreCase =true

　　re.Global=True

　　re.Pattern="(\<.[^\<]*\>)"

　　str=re.replace(str," ")

　　re.Pattern="(\<\/[^\<]*\>)"

　　str=re.replace(str," ")

　　str=replace(str," ","")

　　nohtml=str

　　set re=nothing

　　end function

　　str="<title>sadjksjdl管理资源吧欢迎你sajdljsald<sadsadsad<br>" '这里是测试

　　response.write nohtml(str)

　　%>

　　结果为：

复制代码代码如下:

　　sadjksjdl管理资源吧欢迎你sajdljsald<sadsadsad

　　不过下面的代码是不问的，直接看到<就忘后面无限制的匹配

复制代码代码如下:

　　<%

　　Function dropHtml(Byval 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,"")

　　Set objRegExp = Nothing

　　End Function

　　str="<title>sadjksjdl管理资源吧欢迎你sajdljsald<sadsadsad<br>" '这里是测试

　　response.write dropHtml(str)

　　%>

　　结果为：

复制代码代码如下:

　　sadjksjdl管理资源吧欢迎你sajdljsald