软件下载 | 资讯教程 | 最近更新 | 下载排行 | 一键转帖 | 发布投稿
您的位置:最火下载站 > 建站程序 > CMS教程 > 科汛CMS:禁止图片随鼠标滚轮放大缩小

科汛CMS:禁止图片随鼠标滚轮放大缩小

  烈火建站学院(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
 

  改成
    相关阅读
    栏目导航
    推荐软件