ASP去除HTML代码

发布日期：[2010/10/22] 编辑：奇亿广州网站建设

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

ASP去除HMTL代码方法一：
<%'去除HTML代码
function noHTML(str)
dim re
Set re=new RegExp
re.IgnoreCase =True '设置是否区分字符大小写。
re.Global=True
re.Pattern="(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '设置模式
str=re.replace(str,"")
re.Pattern="(\<font.[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function%>
调用：noHTML(内容)

ASP去除HMTL代码方法二：
<%Function noHtml(strHtml) '做了一个函数名叫noHtml
Dim objRegExp, strOutput
Set objRegExp = New Regexp ' 建立正则表达式
objRegExp.IgnoreCase = True ' 设置是否区分大小写
objRegExp.Global = True '是匹配所有字符串还是只是第一个
objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 设置模式引号中的是正则表达式，用来找出html标签
strOutput = objRegExp.Replace(strHtml, "") '将html标签去掉
strOutput = Replace(strOutput, "<", "<") '防止非html标签不显示
strOutput = Replace(strOutput, ">", ">")
noHtml = strOutput
Set objRegExp = Nothing
End Function%>
调用：noHTML(内容)

ASP去除HMTL代码方法三：
<%Function noHtml(ContentStr)
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去除或替换开始到结束内容的代码：
<%Function ReplaceExp(srcstr, patrn, replStr)
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(原内容,"开始符号.*?结束符号","替换内容")