知足网ziz88.com
个人博客 电脑技巧 学习经验 优秀教程资源 软件素材模版
【科讯】取消鼠标缩放功能的修改方法
  经验文章>科汛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=""点击浏览下一页""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=""点击浏览下一页""return bbimg(this)""javascript:resizepic(this)"" border=""0""/></a>")


    set re = nothing


          FormatImglink = content


  end function










把上面红色的代码删除,就不会格式化了


编号:星羽

知足网 ZIZ88.com于2020年03月04日整理

加微信: 15604958501 QQ: 8233398 69元开通无限期会员


Copyright © 2020 - 2020 网站备案/许可证号:辽ICP备20001173号

本站所有内容来源于网络,如果内容侵犯您的权益请联系QQ 8233398 进行修 改处理