复制代码 代码如下:

'==================================================

'函数名：ScriptHtml

'作用：过滤html标记

'参数：ConStr------要过滤的字符串

'==================================================

FunctionScriptHtml(ByvalConStr,TagName,FType)

DimRe

SetRe=newRegExp

Re.IgnoreCase=true

Re.Global=True

SelectCaseFType

Case1

Re.Pattern="<"&TagName&"([^>])*>"

ConStr=Re.Replace(ConStr,"")

Case2

Re.Pattern="<"&TagName&"([^>])*>.*?</"&TagName&"([^>])*>"

ConStr=Re.Replace(ConStr,"")

Case3

Re.Pattern="<"&TagName&"([^>])*>"

ConStr=Re.Replace(ConStr,"")

Re.Pattern="</"&TagName&"([^>])*>"

ConStr=Re.Replace(ConStr,"")

EndSelect

ScriptHtml=ConStr

SetRe=Nothing

EndFunction

1content=ScriptHtml(content,"br",1)‘去掉所有<br>HTML标记

2content=ScriptHtml(content,"a",2)‘去掉所有<a></a>和两个标记之间的内容

如<ahref=www.126.com>www.126.com</a>把这一段全去了

3content=ScriptHtml(content,"td",3)‘去掉<td>和</td>HTML标记

如<td>士大夫撒</td>把<td></td>去掉了但士大夫撒还保留

依次类推把其他HTML标记都过滤了divobjdect什么的自己看吧