ASP去除HTML代碼

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

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

ASP去除HMTL代碼方法一：
<%'去除HTML代碼
function noHTML(str)
dim re
Set re=new RegExp
re.IgnoreCase =True '設置是否區(qū)分字符大小寫。
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 ' 設置是否區(qū)分大小寫
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(原內容,"開始符號.*?結束符號","替換內容")