'================================================== 
'函數名：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什么的 自己看吧