<%
Response.write (server.htmlencode (fixImg ("<imgonClick =" "if (this.width> screen.width-461) angin ow.open ('qq/20082181405371.jpg'); "" alt = "" "" "" "0" "src =" "qq/20082181405371.jpg" "/>")))
%>
<%
'功能: 将 img 代码格式化为 <imgsrc = "xxx"/> 格式.
Functionfiximg (sString)
Dimsreallydo, regex, ireallydo
DimoMatches, CMatch
DIMTStartTime, Tendtime
Ifisnull (sstring) lalu
Fiximg = ""
Fungsi keluar
Endif
sreallydo = sstring
OnerrorresumeNext
sreallydo = ganti (sreallydo, vbcr, "")
sreallydo = ganti (sreallydo, vblf, "")
sreallydo = ganti (sreallydo, vbtab, "")
sreallydo = ganti (sreallydo, "<img", vbcrlf & "<img", 1, -1,1)
sreallydo = ganti (sreallydo, "/>", "/>", 1, -1,1)
sreallydo = replaceall (sreallydo, "=", "=", true)
sreallydo = replaceall (sreallydo, ">", ">", true)
sreallydo = ganti (sreallydo, "> <", ">" & vbcrlf & "<")
sreallydo = trim (sreallydo)
Onerrorgoto0
SetRegex = newregexp
Regex.ignorecase = true
regex.global = true
'// 去除 Onclick, onload 等脚本
Regex.pattern = "/s [on].+? = ([/" "| /'bum)(.*?)/ 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
Fungsi endfungsi