當然這應該屬于正常過濾手法，而還有一種過濾HTML標簽的最終極手法，則是將一對尖括號及尖括號中的所有字符均替換不顯示，該方法對于內容中必須描述有關尖括號內容過濾過頭了。
不過，總歸是有需要將所有尖括號中內容全部替換的時候，很顯然是需要進行正則的，有兩種代碼，第一種如下：
復制代碼代碼如下:
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
第二種：
復制代碼代碼如下:
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
