账号通
    

账号  

密码  

1862

查看

2

回复
主题:[求助]新闻内容里的图片为什么加不上超连接 [收藏主题]  
phila 当前离线

21

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:855 分
登录次数:69 次
注册时间:2009/4/7
最后登录:2010/9/25
phila 发表于:2009/4/25 10:11:00   | 只看该作者 查看该作者主题 楼主 
新闻内容里的图片为什么加不上超连接,加了以后点击以后还是打开图片,没有连接到其他地方,怎么改,谢谢!!
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
phila 当前离线

21

主题

0

广播

0

粉丝
添加关注
级别:学前班

用户积分:855 分
登录次数:69 次
注册时间:2009/4/7
最后登录:2010/9/25
phila 发表于:2009/4/25 11:13:00   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
一生有你 当前离线

10439

主题

0

广播

18

粉丝
添加关注
级别:版主

用户积分:72521 分
登录次数:1969 次
注册时间:2006/7/1
最后登录:2021/8/25
一生有你 发表于:2009/4/25 11:11: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.09375秒 powered by KesionCMS 9.0