asp 去除html代码,ASP去除HTML代码

分享几种ASP去除HMTL代码的方法：

ASP去除HMTL代码方法一：

function noHTML(str)

dim re

Set re=new RegExp

re.IgnoreCase =True '设置是否区分字符大小写。

re.Global=True

re.Pattern="(]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式

str=re.replace(str,"")

re.Pattern="(\)"

str=re.replace(str," ")

nohtml=str

set re=nothing

end function%>

调用：noHTML(内容)

ASP去除HMTL代码方法二：

Dim objRegExp, strOutput

Set objRegExp = New Regexp ' 建立正则表达式

objRegExp.IgnoreCase = True ' 设置是否区分大小写

objRegExp.Global = True '是匹配所有字符串还是只是第一个

objRegExp.Pattern = "()|()" ' 设置模式引号中的是正则表达式，用来找出html标签

strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉

strOutput = Replace(strOutput, "

strOutput = Replace(strOutput, ">", ">")

noHtml = strOutput

Set objRegExp = Nothing

End Function%>

调用：noHTML(内容)

ASP去除HMTL代码方法三：

Dim ClsTempLoseStr,regEx

ClsTempLoseStr = Cstr(ContentStr)

Set regEx = New RegExp

regEx.Pattern = "]*>"

regEx.IgnoreCase = True

regEx.Global = True

ClsTempLoseStr = regEx.Replace(ClsTempLoseStr,"")

noHtml = ClsTempLoseStr

End function%>

调用：noHTML(内容)

如果是需要去除或删除或替换从某某字符内容开始到某某结束内容的全部，以下是ASP去除或替换开始到结束内容的代码：

Set regEx = New RegExp

regEx.Pattern = patrn

regEx.IgnoreCase = True

regEx.Global = True

regEx.Execute(srcstr)

ReplaceExp = regEx.Replace(srcstr, replStr)

Set regEx = Nothing

End Function%>

调用：ReplaceExp(原内容,"开始符号.*?结束符号","替换内容")

或者将本文《ASP去除HTML代码》收藏和分享到：

复制本文《ASP去除HTML代码》地址给好友：