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 ......
前几天做项目。需要用到一个WinForm的HTML的编辑和显示控件。.NET自己并没有提供这方面的控件。去Googel百度了一下。没有找到合适的.NET控件。无奈去英文Googel了一下。果然发现了一款名为：.NET Win HTML Editor Control 3.2的控件。下载配置环境试用。发现免费版提供全功能试用。唯一不好的地方就是在编辑区有一个注册的� ......
