'==================================================
'函數名：ScriptHtml
'作  用：過濾html標記
'參  數：ConStr ------ 要過濾的字符串
'==================================================
Function ScriptHtml(Byval ConStr,TagName,FType)
    Dim Re
    Set Re=new RegExp
    Re.IgnoreCase =true
    Re.Global=True
    Select Case FType
    Case 1
       Re.Pattern=""  TagName  "([^>])*>"
       ConStr=Re.Replace(ConStr,"")
    Case 2
       Re.Pattern=""  TagName  "([^>])*>.*?/"  TagName  "([^>])*>"
       ConStr=Re.Replace(ConStr,"")
    Case 3
       Re.Pattern=""  TagName  "([^>])*>"
       ConStr=Re.Replace(ConStr,"")
       Re.Pattern="/"  TagName  "([^>])*>"
       ConStr=Re.Replace(ConStr,"")
    End Select
    ScriptHtml=ConStr
    Set Re=Nothing
End Function

1 content=ScriptHtml(content,"br",1) ‘去掉所有br>HTML標記

2 content=ScriptHtml(content,"a",2) ‘去掉所有a>/a>和兩個標記之間的內容 
如  a href=www.126.com>www.126.com/a>  把這一段全去了

3  content=ScriptHtml(content,"td",3) ‘去掉td>和/td>HTML標記
如  td>士大夫撒/td>  把td> /td> 去掉了 但士大夫撒還保留

依次類推把其他HTML標記都過濾了 div objdect什么的 自己看吧