3237 查看 4 回复

主题：[分享]任何页面调用指定信息的下载地址 [收藏主题]

转到：

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:刚刚 性别:男 积分:7093分 威望:3733 帖子:1852 精华:7 广播:5 粉丝:126 登录次数:225 次 注册时间:2010/7/6 14:03:14 最后登录:2024/4/15 16:38:49 刚刚 当前离线 1852 主题 5 广播 126 粉丝 级别:版主 用户积分:7093 分 登录次数:225 次 注册时间:2010/7/6 最后登录:2024/4/15	刚刚 发表于：2015/2/11 20:36:21   | 显示全部帖子 查看该作者主题 楼主  有课程 找生源 就上科汛课堂街 标签：{=GetDownAddress(模型ID,信息ID)} 代码修改： \KS_Cls\Kesion.Label.CommonCls.asp  ParseEqual函数  select语句加一个对该标签的解析 复制代码                                  case "getdownaddress" '得到指定信息的下载地址                                         Dim DownURLs,DUrlArr,DI,DN,DTotalNum, DAUrl                                         DownURLs=LFCls.GetSingleFieldValue("Select Downurls From " & KS.C_S(KS.ChkClng(Param(0)),2) & " Where ID = " & KS.ChkClng(Param(1)))                                         If KS.IsNul(DownURLs) Then                                                  echo ""                                         Else                                                  DUrlArr = Split(DownURLs,"|||")                                                  DTotalNum = UBound(DUrlArr)                                                 For DI = 0 To DTotalNum                                                    DN=DN+1: DAUrl = Split(DUrlArr(DI),"|")                                                                If DAUrl(0)=0 Then                                                                  echo "<img src="""& DomainStr & "Images/Default/down.gif"" border=""0"" alt="""" align=""absmiddle"" /><a href=""" & DomainStr & "item/downLoad.asp?m=" & Param(0) & "&id=" & Param(1) & "&downid=" & DN & """ target=""_blank"">" & DAUrl(1) & "</a>"                                                                        If DI<>DTotalNum Then echo " "                                                          Else                                                                  Dim RS_DS:Set RS_DS=Conn.Execute("Select DownloadName,IsDisp,DownloadPath,DownID,SelFont From KS_DownSer Where ParentID=" & DAUrl(0))                                                                  If RS_DS.Eof Then                                                                    If DTotalNum=0 Then echo " 暂不提供下载地址 "                                                                  Else                                                                    DO While Not RS_DS.Eof                                                                                  IF RS_DS(1)=1 Then                                                                              echo "<img src="""& DomainStr & "Images/Default/down.gif"" border=""0"" align=""absmiddle""><a href=""" & RS_DS(2) & DAurl(2) & """ " & RS_DS(4)&" target=""_blank"">" & RS_DS(0) & "</a>"                                                                                            Else                                                                              echo "<img src="""& DomainStr & "Images/Default/down.gif"" border=""0"" align=""absmiddle""><a href=""" & DomainStr & "item/DownLoad.asp?m=" & Param(0) & "&id=" & Param(1) & "&DownID=" & DN & "&Sid=" & RS_DS(3) & """ " & RS_DS(4)&" target=""_blank"">" & RS_DS(0) & "</a>"                                                                                          End If                                                                                  RS_DS.MoveNext                                                                                  IF Not RS_DS.Eof Or DI<>DTotalNum Then echo " "                                                                          Loop                                                                  End If                                                                  Set RS_DS=Nothing                                                                End If                                                 Next                                         End if 测试环境X1GBK 栏目页调用下载地址请看此帖： http://bbs.kesion.com/forumthread-1231472.html
	专业网站漏洞检测与修复及服务器安全维护、专业程序修改与二次开发及标签制作。QQ：2813239495 详谈 做官网 就用科汛智能建站系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:刚刚 性别:男 积分:7093分 威望:3733 帖子:1852 精华:7 广播:5 粉丝:126 登录次数:225 次 注册时间:2010/7/6 14:03:14 最后登录:2024/4/15 16:38:49 刚刚 当前离线 1852 主题 5 广播 126 粉丝 级别:版主 用户积分:7093 分 登录次数:225 次 注册时间:2010/7/6 最后登录:2024/4/15	刚刚 发表于：2015/2/11 20:40:04   | 显示全部帖子 查看该作者主题 沙发  有课程 找生源 就上科汛课堂街 有疑问请跟帖
	科汛商学院助您快速入门
	支持(0) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

首 页 1