如何去掉文章内容页中的图片链接-领先建站CMS提供服务商我们专注于CMS建站产品的研发

4448 查看	8 回复

主题：[求助]如何去掉文章内容页中的图片链接 [收藏主题]

转到：

lyxkk4399 当前离线

177 主题	0 广播	0 粉丝

级别:一年级

用户积分:3402 分
登录次数:407 次
注册时间:2012/11/5
最后登录:2024/6/27

lyxkk4399 发表于：2020/12/6 22:39:15 | 显示全部帖子查看该作者主题楼主

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

第三步：去除代码中红色部分即可。

反对(0)

底部