关于图文混排！（图片居左、居右）-领先建站CMS提供服务商我们专注于CMS建站产品的研发

7091 查看	14 回复

主题：关于图文混排！（图片居左、居右） [收藏主题]

转到：

abcs 当前离线

12 主题	0 广播	0 粉丝

级别:学前班

用户积分:77 分
登录次数:1 次
注册时间:2009/10/28
最后登录:2009/10/28

abcs 发表于：2009/10/28 21:13:00 | 只看该作者查看该作者主题 11楼

做官网就用科汛智能建站系统!

不错

做新职业技能培训平台就选#科汛网校

支持(0) |

反对(0)

顶端

底部

cn2009 当前离线

1515 主题	3 广播	2 粉丝

级别:高一年

用户积分:6151 分
登录次数:170 次
注册时间:2008/12/28
最后登录:2020/9/8

cn2009 发表于：2009/10/28 19:42:00 | 只看该作者查看该作者主题 12楼

有生源找课程就上科汛课堂街!

以下是引用一生有你在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>")