當(dāng)然這應(yīng)該屬于正常過濾手法，而還有一種過濾HTML標(biāo)簽的最終極手法，則是將一對尖括號及尖括號中的所有字符均替換不顯示，該方法對于內(nèi)容中必須描述有關(guān)尖括號內(nèi)容過濾過頭了。
不過，總歸是有需要將所有尖括號中內(nèi)容全部替換的時(shí)候，很顯然是需要進(jìn)行正則的，有兩種代碼，第一種如下：
復(fù)制代碼代碼如下:
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,"")
nohtml=str
set re=nothing
End Function
第二種：
復(fù)制代碼代碼如下:
Function nohtml(str)
dim re
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<(.[^>]*)>"
str=re.replace(str,"")
nohtml=str
set re=nothing
End Function
