代码如下：
Function RemoveHTML(strText)
Dim RegEx
Set RegEx = New RegExp
RegEx.Pattern = "<[^>]*>"
RegEx.Global = True
RemoveHTML = RegEx.Replace(strText, "")
RemoveHTML = replace(RemoveHTML," "," ")
End Function
这是最基本的正则替换，有某些特殊字符还没过滤，可自行添加！
如：
RemoveHTML = Replace(RemoveHTML," ","")
1. 超链接的图片去掉边框的方法：
在 语句里加上 border=0
如：<img border=0
src="sadf.jpg">
2.鼠标放上去图片变色的方法：
用到了标签的事件功能，调用方法是 function="this.src='asdf.jpg'"
如� ......
