<%
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