在ASP中清理HTML内容，把所有带有链接、图像、段落标记、表格等HTML标签的元素全部清理掉，只剩下文字，可以用于采集时标签之间HTML内容清理。
ASP清除HTML正则函数
Public Function Replacehtml(tstr)
Dim Str,re
Str=Tstr
Set re=new RegExp
re.IgnoreCase =True
re.Global=True
re.Pattern="<(p|/p|br)>"
Str=re.Replace(Str,vbNewLine)
re.Pattern="<img.[^>]*src(=| )(.[^>]*)>"
str=re.replace(str,"")
re.Pattern="<(.[^>]*)>"
Str=re.Replace(Str,"")
Set Re=nothing
Replacehtml=Str
End Function
使用方法：content=Replacehtml(content)
版权声明：本文内容由互联网用户自发贡献，该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容， 请发送邮件至 dio@foxmail.com 举报，一经查实，本站将立刻删除。
