账号通
    

账号  

密码  

1753

查看

2

回复
主题:实现在下载列表页显示下载地址 [收藏主题]  
jxwgh 当前离线

64

主题

0

广播

0

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

用户积分:979 分
登录次数:132 次
注册时间:2007/4/26
最后登录:2014/7/13
jxwgh 发表于:2014/6/25 22:55:14   | 只看该作者 查看该作者主题 楼主 
科汛智能建站系统

1、找到KS_Cls/Kesion.Label.FunctionCls.asp文件


2、找到case "autoid" echo N+1


3、插入下段


'增加下段,在下载列表页里直接显示下载地址
     case "getdownaddress"
     
       Dim UrlArr, I,N,TotalNum, AUrl
    UrlArr = Split(Node.SelectSingleNode("@downurls").text, "|||")
    TotalNum = UBound(UrlArr)
    For I = 0 To TotalNum
       N=N+1: AUrl = Split(UrlArr(I), "|")
    If AUrl(0)=0 Then
     echo "<img src=""/Images/Default/down.gif"" border=""0"" alt="""" align=""absmiddle"" /><a href=""" & AUrl(2) & """ target=""_blank"">" & AUrl(1) & "</a>"      
    End If
    Next
   '结束
  


4、找到If PrintType>=2 Then FieldStr=FieldStr & ",I.PhotoUrl,I.DownContent As Intro,I.DownSize,I.Rank

5、替换成If PrintType>=2 Then FieldStr=FieldStr & ",I.PhotoUrl,I.DownContent As Intro,I.DownSize,I.Rank,I.DownUrls"


6、在列表标签里直接加上{@getdownaddress}调用下载地址(支持多个下载地址)

点评 1

wushijun5200 好 威望+1 发表于 2015/12/24 15:03:00 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
hzh567 当前离线

215

主题

8

广播

2

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

用户积分:555 分
登录次数:21 次
注册时间:2012/9/10
最后登录:2015/3/2
hzh567 发表于:2014/6/26 2:32:12   | 只看该作者 查看该作者主题 沙发 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
ygr1971 当前离线

1404

主题

44

广播

45

粉丝
添加关注
级别:版主

用户积分:8683 分
登录次数:124 次
注册时间:2011/11/13
最后登录:2021/11/2
ygr1971 发表于:2014/6/26 11:51:54   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.10840秒 powered by KesionCMS 9.0