账号通
    

账号  

密码  

7115

查看

14

回复
主题:关于图文混排!(图片居左、居右) [收藏主题] 转到:  
a2584482 当前离线

433

主题

1

广播

0

粉丝
添加关注
级别:四年级

用户积分:3971 分
登录次数:231 次
注册时间:2009/7/1
最后登录:2018/7/14
a2584482 发表于:2009/10/28 17:14:00   | 显示全部帖子 查看该作者主题 楼主 
以下是引用一生有你在2009-7-20 19:51:00的发言:

这问题我回答过很多次了,这个是因为科汛把图片格式化成鼠标缩放功能.


 


 


你可以打开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


 


 


 上面红色的删除就取消过滤了.问题就可以得到解决........

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