欢迎来到CMS的世界,我们开始吧!
您当前的位置:首页 > 科汛CMS

科汛cms如何去掉图片随鼠标滚轮放大缩小功能

2019-03-10    来源:CMS代码    浏览次数:

下面CMS代码网为大家介绍一下科汛cms如何去掉图片随鼠标滚轮放大缩小功能

科汛cms有个功能是图片随鼠标滚轮放大缩小,这个功能其实非常实用,但是在有些网站上是不需要这个功能的,那我们应该怎么去掉这个呢?下面我来告诉你。

从ftp上下载这个文件: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

现在重新生成页面试一下,应该去掉了。

 

上面是关于“科汛cms如何去掉图片随鼠标滚轮放大缩小功能”的详细介绍,想了解更多关于科汛CMS内容,请继续关注CMS代码网!

最新文章

回到顶部