真不争为什么用这个正则不能代换?

[clkun]

function s(a)
Set re=new RegExp
re.IgnoreCase =true
re.Global=True
re.Pattern="<IMG*SRC(=| )(.[^>]*).algin=(.*)>"
s=re.replace(a,"<IMG SRC=$2 algin=$3> border=0")
msgbox s
end function

b="<IMG onmousewheel=""return bbimg(this)"" style=""CURSOR: pointer""

onclick=window.open(this.src); SRC=""uploadfiles/2005-4/200541132047242.jpg"" onload=""if(this.width >screen.width-500)this.style.width=screen.width-500;"" align=left

border=0>"

s(b)

我要用将上面的b字符串经过函数s转换后,变成<IMG SRC="uploadfiles/2005-4/200541132047242.jpg" align=left border=0>

为什么上面的正则不行,帮忙改一下

[clkun]

up

[clkun]

B字符串为:

b="<IMG onmousewheel=""return bbimg(this)"" style=""CURSOR: pointer"" onclick=window.open(this.src); SRC=""uploadfiles/2005-4/200541132047242.jpg"" onload=""if(this.width>screen.width-500)this.style.width=screen.width-500;"" align=left border=0>"

[北京-李大鹏]

调了半天也没能把vbscript弄出来。呵呵。还是用javascript吧。
<script language="javascript">
var reg = /src=\"(.*)\" (.*) align=(.*) (.*)/i;
b='<IMG onmousewheel="return bbimg(this)" style="CURSOR: pointer" onclick=window.open(this.src); SRC="uploadfiles/2005-4/200541132047242.jpg" onload="if(this.width >screen.width-500)this.style.width=screen.width-500;" align=left border=0>';

var arr = reg.exec(b);
var newString = "<img src=" + RegExp.$1 + " align=" + RegExp.$3 + " border=0>";
alert(newString);
</script>

[scoutlin]

<Script Language=Vbscript>
Dim Regex
Str = "<IMG onmousewheel=""return bbimg(this)"" style=""CURSOR: pointer"" onclick=window.open(this.src); SRC=""uploadfiles/2005-4/200541132047242.jpg"" onload=""if(this.width>screen.width-500)this.style.width=screen.width-500;"" align=left border=0>
"
Set Regex = New Regexp
Regex.Pattern = "<img.*?src=""(.*?)"".*?0>"
Regex.Ignorecase = True
Regex.Global = True
Replacetest = Regex.Replace(Str, "$1")
Set Regex=Nothing
Msgbox Replacetest
</Script>