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

下面这段代码，不会替换ld

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," ","")

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

nohtml=str

set re=nothing

end function

str="

sadjksjdl脚本之家欢迎你sajdljsald" '这里是测试

response.write nohtml(str)

%>

结果为：

sadjksjdl脚本之家欢迎你sajdljsald

不过下面的代码是不问的，直接看到

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,"")

Next

dropHtml=strHTML

Set objRegExp = Nothing

End Function

str="

sadjksjdl脚本之家欢迎你sajdljsald" '这里是测试

response.write dropHtml(str)

%>

结果为：

sadjksjdl脚本之家欢迎你sajdljsald