<％
response.write（server.htmlencode（fiximg）（“ <imgonclick =”“” if（this.width> screen.width-461）wind OW.OPEN（'QQ/20082181405371.JPG'）;“” Alt =“”“”“”“ border =”“ 0”“ src =” QQ/20082181405371.jpg“/>”））））））））））
％>
<％
'功能：将img <imgsrc =“ xxx”/>格式。
FunctionFiximg（SString）
Dimsreallydo，Regex，Ireallydo
dimomatches，cmatch
dimtstarttime，倾向
然后
fiximg =“”
出口
Endif
sreallydo = sstring
Onorresumenext
sreallydo =替换（sreallydo，vbcr，“”）
sreallydo =替换（sreallydo，vblf，“”）
sreallydo =替换（sreallydo，vbtab，“”）
sreallydo =替换（sreallydo，“ <img”，vbcrlf＆“ <img”，1，-1,1）
sreallydo =替换（sreallydo，“/>”，“/>”，1，-1,1）
sreallydo =替换（sreallydo，“ =”，“ =”，true）
sreallydo =替换（sreallydo，“>”，“”>“，true）
sreallydo =替换（sreallydo，“> <”，“>”＆vbcrlf＆“ <”）
sreallydo = trim（sreallydo）
OnErrorgoto0
setRegex = newregexp
Regex.ignorecase = true
REGEX.GLOBAL = TRUE
'//去除onClick，Onload等脚本
regex.pattern =“/s [on]。+？=（[/“” |/']
sreallydo = Regex.Replace（Sreallydo，“”）
'//将src不带引号的图片地址加上引号
REGEX.PATTERN =“ <img。
sreallydo = regex.replace（sreallydo，“ <imgsrc =”“ $ 1”“/>”）
'//正则匹配图片src地址
REGEX.PATTERN =“ <img。
sreallydo = regex.replace（sreallydo，“ <imgsrc =”“ $ 2”“/>”）
fiximg = sreallydo
最终功能