问个正则写法,该如何处理

问个正则写法

VBScript code

dim strstr = "<a href=""http://www.163.com"">网易</a><div style=""border:1px solid black"" class=""nav""><span class=""nav1"">导航</span></div><table cellspancing=""1"" width=""100%""><tr><td colspan=""3"">这里要去掉标签内所有除了 colspan=""2"" 以外的属性,仅保留colspan的属性</td></tr></table>"

我现在想把上边这个字符串中,所有标签内的属性,除了 colspan 以外的都清除掉,该怎么写?

VBScript code

dim reStrreStr = " [\w]+=""[^""]*?"""

我这样的正则不能把 colspan 排除在外,并且不能保证是标签内的...

期望的结果是

VBScript code

str = "<a>网易</a><div><span>导航</span></div><table><tr><td colspan=""3"">这里要去掉标签内所有除了 colspan=""2"" 以外的属性,仅保留colspan的属性</td></tr></table>"

[解决办法]
怎么错了？