账号通
    

账号  

密码  

3630

查看

9

回复
主题:KesionCMS v8.0取消鼠标缩放的解决方法 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2011/11/28 9:38:11   | 显示全部帖子 查看该作者主题 楼主 
科汛在线商城系统(NET)

在后台添加文章时,并插入图片,图片格式默认会被自动格式化掉,但您可以取消此功能。方法如下:



打开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=""" & GetNodeText("title") & """ 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





将其改成





Function FormatImglink(content,url,totalpage)

       FormatImglink = content

  end function









这样以后在后台添加的文章里的图片将不会再被格式化了。





 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行2.46484秒 powered by KesionCMS 9.0