Dim objReg,objMatches,objMatch
Set objReg=new RegExp
objReg.Global=True
objReg.IgnoreCase=True
objReg.Pattern="<('[^']*'|""[^""]*""|[^'"">])*?>"
Set objMatches=objReg.Execute(字符串)
For Each objMatch In objMatches
找到的HTML ：objMatch.value
Next
Set objMatches=Nothing
Set objReg=Nothing
由于今天查找
<img onclick='if(this.width>100) tihs.width=100' src="/xxx.jpg" />
时发现<[^>]+>的严重不足
但是网上找不到任何准确点的，特写一个，以备以后可能需要。
查找img正则
<([^\s]+)\s('[^']*'|""[^""]*""|[^'"">])*?>
下面这个网站罗列了，几乎所有的关于HTML 5 在各种主流浏览器上的安全问题，这些安全问题很有可能将会是黑客攻击你的网上的敲门砖，他们几乎都和Javascript都有关系，你就要好好注意了。
http://heideri.ch/jso/
下面罗列几个：
1）<table background=”javascript:alert(1)”>
IE6，7，8，9，和Opera ......
