asp 過濾角括弧內所有內容的正則代碼

當然這應該屬於正常過濾手法，而還有一種過濾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

簡單的應用：
[Ctrl+A 全選 注:如需引入外部Js需重新整理才能執行]