<%
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"/> 格式.
Functiximg (sstring)
Dimsreallydo, Regex, Ireallydo
Dimomatches, cmatch
DimtStarttime, tendtime
Ifisnull (sstring) entonces
FixImg = ""
Extinción
Endif
sreallydo = sstring
OnerrorResumEnext
sreallydo = reemplazar (sreallydo, vbcr, "")
sreallydo = reemplazar (sreallydo, vblf, "")
sreallydo = reemplazar (sreallydo, vbtab, "")
sreallydo = reemplazar (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
sreallydo = reemplazar (sreallydo, "/>", "/>", 1, -1,1)
sreallydo = replaceAll (sreallydo, "=", "=", verdadero)
sreallydo = reemplazar (sreallydo, ">", ">", verdadero)
sreallydo = reemplazar (sreallydo, "> <", ">" & vbcrlf & "<")
sreallydo = Trim (sreallydo)
Onerrorgoto0
Setregex = newregexp
regex.ignorecase = true
regex.global = verdadero
'// 去除 OnClick, Onload 等脚本
regex.pattern = "/s [on].+? = ([/" "| /'font>)(.*?)/ 1"
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
Función final