V8版本:
第一步:在KS_cls文件夹中找到Kesion.Label.CommonCls.asp文件,用文本工具打开;
第二步:在Kesion.Label.CommonCls.asp文件的1819行,查找以下代码:
[url=]复制代码
Function FormatImglink(content,url,totalpage)
- dim re:Set re=new RegExp
- re.IgnoreCase =true
- re.Global=True
- '去除onclick,onload等脚本
- 're.Pattern = "\s[on].+?=([\""|\'])(.*?)\1"
- 'Content = re.Replace(Content, "")
- Dim LinkStr
- If TotalPage=1 Then
- LinkStr="href=""$2"" target=""_blank"""
- Else
- LinkStr="href=""" & Url & """"
- End If
- '将SRC不带引号的图片地址加上引号
- re.Pattern = "<img.*?\ssrc=([^\""\'\s][^\""\'\s>]*).*?>"
- Content = re.Replace(Content, "<a " & LinkStr & "><img src=""$2"" alt=""" & GetNodeText("title") & """ onmousewheel=""return bbimg(this)""javascript:resizepic(this)"" border=""0""/></a>")
- '正则匹配图片SRC地址
- re.Pattern = "<img.*?\ssrc=([\""\'])([^\""\']+?)\1.*?>"
- Content = re.Replace(Content, "<a " & LinkStr & "> <img src=""$2"" alt=""" & GetNodeText("title") & """return bbimg(this)""javascript:resizepic(this)"" border=""0""/></a>")
set re = nothing
- FormatImglink = content
- end function
第三步:去除代码中红色部分即可。