<%
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" "/>")))).
%>
<%
'g : 将 img 代码格式化为 <imgsrc = "xxx"/> 格式.
functionfiximg (sstring)
Dimsreallydo, Regex, Ireallydo
Dimomatches, cmatch
DimtStartTime, TendTime
그런 다음 ifisnull (sstring)
fiximg = ""
종료 기능
endif
SREALLYDO = SSTRING
onerrorresumenext
SREALLYDO = REPLEC (SREALLYDO, VBCR, "")
SREALLYDO = REPLEC (SREALLYDO, VBLF, "")
SREALLYDO = REPLEC (SREALLYDO, VBTAB, "")
sreallydo = replace (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
SREALLYDO = REPLEC (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
'// cl on 클릭, onload 等脚本
regex.pattern = "/s [on].+? = ([/" "|/'] (/')/ 1 "/ 1"
sreallydo = regex.replace (sreallydo, "")
'// r SRC 不带引号的图片地址加上引号
regex.pattern = "<img.*?/ssrc = ([^/" "/'/s] [^/" "/'/s>]*).*?>"
sreallydo = regex.replace (sreallydo, "<imgsrc =" "$ 1" "/>")
'// r SRC 地址
regex.pattern = "<img.*?/ssrc = ([/" "/']) ([^/" "/']+?)/1.*?>"
sreallydo = regex.replace (sreallydo, "<imgsrc =" "$ 2" "/>")
fiximg = sreallydo
최종 기능 장애