An asp replacement function img with extra code

<%

Response.Write(Server.HTMLEncode(FixImg("<imgonclick=""if(this.width>screen.width-461)window.open('qq/20082181405371.jpg');""alt=""""border=""0""src=""qq/20082181405371.jpg""/>")))

%>

<%

'功能:将IMG代码格式化为<imgsrc="XXX"/>格式.

FunctionFixImg(sString)

DimsReallyDo,regEx,iReallyDo

DimoMatches,cMatch

DimtStartTime,tEndTime

IfIsNull(sString)Then

FixImg=""

ExitFunction

EndIf

sReallyDo=sString

OnErrorResumeNext

sReallyDo=Replace(sReallyDo,vbCr,"")

sReallyDo=Replace(sReallyDo,vbLf,"")

sReallyDo=Replace(sReallyDo,vbTab,"")

sReallyDo=Replace(sReallyDo,"<img",vbCrLf&"<img",1,-1,1)

sReallyDo=Replace(sReallyDo,"/>","/>",1,-1,1)

sReallyDo=ReplaceAll(sReallyDo,"=","=",True)

sReallyDo=ReplaceAll(sReallyDo,">",">",True)

sReallyDo=Replace(sReallyDo,"><",">"&vbCrLf&"<")

sReallyDo=Trim(sReallyDo)

OnErrorGoTo0

SetregEx=NewRegExp

regEx.IgnoreCase=True

regEx.Global=True

'//去除onclick,onload等脚本

regEx.Pattern="/s[on].+?=([/""|/'])(.*?)/1"

sReallyDo=regEx.Replace(sReallyDo,"")

'//将SRC不带引号的图片地址加上引号

regEx.Pattern="<img.*?/ssrc=([^/""/'/s][^/""/'/s>]*).*?>"

sReallyDo=regEx.Replace(sReallyDo,"<imgsrc=""$1""/>")

'//正则匹配图片SRC地址

regEx.Pattern="<img.*?/ssrc=([/""/'])([^/""/']+?)/1.*?>"

sReallyDo=regEx.Replace(sReallyDo,"<imgsrc=""$2""/>")

FixImg=sReallyDo

EndFunction