<%
Response.Write (Server.htmlencode (FixImg ("<imgonClick =" "se (this.width> screen.width-461) ow.open ('qq/20082181405371.jpg'); "" alt = "" "" "" "" "0" "src =" "qq/20082181405371.jpg" "/>")))))
%>
<%
'功能: 将 img 代码格式化为 <imgsrc = "xxx"/> 格式.
FunctionFiximg (SString)
Dimsreallydo, Regex, Irellydo
Dimomatches, cmatch
DimtstartTime, tempo de tendão
Ifisnull (sString) então
Fiximg = ""
Saída de saída
Endif
sreallydo = sString
OnErrorReSumenext
sreallydo = substituir (sreallydo, vbcr, "")
Sreallydo = Substitua (Sreallydo, VBLF, "")
Sreallydo = Substitua (Sreallydo, VBTAB, "")
sreallydo = substituir (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
sreallydo = substituir (sreallydo, "/>", "/>", 1, -1,1)
sreallydo = replaceall (sreallydo, "=", "=", true)
sreallydo = replaceAll (sreallydo, ">", ">", verdadeiro)
srEallydo = reply (sreallylydo, "> <", ">" & vbcrlf & "<")
Sreallydo = Trim (Sreallydo)
OnErrorgoto0
SetRegex = newRegexp
regex.IGNORECASE = true
regex.global = true
'// 去除 ONCLICK, ONLOAD 等脚本
regex.pattern = "/s [on].+?
sreallydo = regex.replace (srealllydo, "")
'// 将 src 不带引号的图片地址加上引号
regex.pattern = "<img.*?/ssrc = ([^/" "/'/s] [^/" "/'/s>]*).*?
sreallydo = regex.Replace (sreallydo, "<imgsrc =" "$ 1" "/>")
'// 正则匹配图片 src 地址
regex.pattern = "<img.*?/ssrc = ([/" "/']) ([^/" "/']+?)/1.*?>"
sreallydo = regex.replace (srealllydo, "<imgsrc =" "$ 2" "/>")
FixiMg = Sreallydo
Função final