<%
Response.write (server.htmlencode (fiximg ("<imgonclick =" "if (this.width> screen.width-461) Wind ow.open ('qq/20082181405371.jpg');
%>
<%
'功能: 将 img 代码格式化为 <imgsrc = "xxx"/> 格式.
FunctionFiximg (SSTRING)
DimsReallydo, Regex, Ireallydo
Dimomatches, CMatch
DimtstartTime, tendieren
Ifisnull (SSTRING) dann
Fiximg = ""
Ausgangsfunktion
Endif
sreallydo = sstring
OnErrorresumeNext
sreallydo = ersetzen (sreallydo, vbcr, "")
sreallydo = ersetzen (Sreallydo, VBLF, "")
sreallydo = ersetzen (sreallydo, vBTAB, "")
sreallyDo = ersetzen (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
sreallyDo = ersetzen (sreallydo, "/>", "/>", 1, -1,1)
sreallydo = ersatz (sreallydo, "=", "=", true)
SreallyDo = Ersatz (sreallydo, ">", ">", wahr)
sreallydo = ersetzen (sreallydo, "> <", ">" & vbcrlf & "<")
sreallydo = trim (sreallydo)
OnErorgoto0
SetRegex = newRegExp
regex.ignorecase = true
regex.global = true
'// 去除 Onclick, Onload 等脚本
regex.pattern = "/s [on].+?
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
Endfunktion