<%
Response.write (server.htmlencode (fiximg ("<imgonclick =" "if (this.width> screen.width-461) ветер OW.Open ('QQ/20082181405371.jpg'); "" alt = "" "" border = "" 0 "" src = "" QQ/20082181405371.jpg ""/> "))))))
%>
<%
'功能: 将 img 代码格式化为 <imgsrc = "xxx"/> 格式.
Functionfiximg (sstring)
Dimsreallydo, regex, ireallydo
Dimomatches, Cmatch
DimtStarttime, Wentime
Ifisnull (sstring) затем
Fiximg = ""
Выходная функция
Эндиф
sreallydo = sstring
OnerRorResumenext
sreallydo = reply (sreallydo, vbcr, "")
sreallydo = reply (sreallydo, vblf, "")
sreallydo = reply (sreallydo, vbtab, "")
sreallydo = reply (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
sreallydo = reply (sreallydo, "/>", "/>", 1, -1,1)
sreallydo = rylaceall (sreallydo, "=", "=", true)
sreallydo = Reallaceall (sreallydo, ">", ">", true)
sreallydo = reply (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.*?/ssrc = ([^/" "/'/s] [^/" "/'/s>]*).*?>"
sreallydo = regex.replace (sreallydo, "<imgsrc =" "$ 1" "/>")
'// 正则匹配图片 src 地址
regex.pattern = "<img.*?/ssrc = ([/" "/']) ([^/" "/']+?)/1.*?>"
sreallydo = regex.replace (sreallydo, "<imgsrc =" "$ 2" "/>")
Fiximg = sreallydo
Конечная функция