ASP去除HTML代碼

發(fā)布日期：[2010/10/22] 編輯：奇億廣州網(wǎng)站建設(shè)

分享幾種ASP去除HMTL代碼的方法：

ASP去除HMTL代碼方法一：
<%'去除HTML代碼
function noHTML(str)
dim re
Set re=new RegExp
re.IgnoreCase =True '設(shè)置是否區(qū)分字符大小寫。
re.Global=True
re.Pattern="(<img)(.[^<>]*)(src=)('|"&CHR(34)&"| )?(.[^'|\s|"&CHR(34)&"]*)(\.)(jpg|gif|png|bmp|jpeg)('|"&CHR(34)&"|\s|>)(.[^>]*)(>)" '設(shè)置模式
str=re.replace(str,"")
re.Pattern="(\<font.[^\<]*\>)"
str=re.replace(str," ")
nohtml=str
set re=nothing
end function%>
調(diào)用：noHTML(內(nèi)容)

ASP去除HMTL代碼方法二：
<%Function noHtml(strHtml) '做了一個(gè)函數(shù)名叫noHtml
Dim objRegExp, strOutput
Set objRegExp = New Regexp ' 建立正則表達(dá)式
objRegExp.IgnoreCase = True ' 設(shè)置是否區(qū)分大小寫
objRegExp.Global = True '是匹配所有字符串還是只是第一個(gè)
objRegExp.Pattern = "(<[a-zA-Z].*?>)|(<[\/][a-zA-Z].*?>)" ' 設(shè)置模式引號(hào)中的是正則表達(dá)式，用來(lái)找出html標(biāo)簽
strOutput = objRegExp.Replace(strHtml, "") '將html標(biāo)簽去掉
strOutput = Replace(strOutput, "<", "<") '防止非html標(biāo)簽不顯示
strOutput = Replace(strOutput, ">", ">")
noHtml = strOutput
Set objRegExp = Nothing
End Function%>
調(diào)用：noHTML(內(nèi)容)

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%>
調(diào)用：noHTML(內(nèi)容)

如果是需要去除或刪除或替換從某某字符內(nèi)容開始到某某結(jié)束內(nèi)容的全部，以下是ASP去除或替換開始到結(jié)束內(nèi)容的代碼：
<%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%>
調(diào)用：ReplaceExp(原內(nèi)容,"開始符號(hào).*?結(jié)束符號(hào)","替換內(nèi)容")