<％
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
最終功能