清除从数据库里调出的HTML代码

function delhtml(strHTML)'
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'objRegExp.Pattern = "(\<t|\<a|\<d|\<f|\<p|\<\/a|\<\/t|\<\/p|\<\/d|\<\/f).*?>"'"<.+?>"
objRegExp.Pattern = "<.+?>"
Set Matches = objRegExp.Execute(strHTML)
For Each Match in Matches
strHTML=replace(strHTML,match.value,"")
Next
delhtml=strHTML
Set objRegExp = Nothing
set Matches=nothing
end function
  网友评论:(只显示最新10条。评论内容只代表网友观点,与本站立场无关!)