科汛CMS:禁止图片随鼠标滚轮放大缩小
来源：程序员人生 发布时间：2014-04-12 02:18:53 阅读次数：2247次
建站学院(LieHuo.Net)CMS教程：科汛CMS有一个图片跟随鼠标滚轮而变大变小的效果，其实这个功能非常实用，但是有些网站内容比较固定，可能不太方便，那么如何去掉这一功能呢。看下面的方法
打开：ks_cls/kesion.label.commoncls.asp
在最后
以下为引用的内容：
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=""点击浏览下一页"" onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)"" border=""0""/></a>")
'正则匹配图片SRC地址
re.Pattern = "<img.*?ssrc=([""'])([^""']+?)1.*?>"
Content = re.Replace(Content, "<a " & LinkStr & "><img src=""$2"" alt=""点击浏览下一页"" onmousewheel=""return bbimg(this)"" onload=""javascript:resizepic(this)"" border=""0""/></a>") set re = nothing
FormatImglink = content
end function |
以下为引用的内容：
Function FormatImglink(content,url,totalpage)
FormatImglink = content
end function |
改成
生活不易，码农辛苦
如果您觉得本网站对您的学习有所帮助,可以手机扫描二维码进行捐赠
