2931 查看 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) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:xxlq123 性别:男 积分:285分 威望:299 帖子:111 精华:0 广播:7 粉丝:2 登录次数:70 次 注册时间:2010/5/20 11:07:00 最后登录:2017/8/3 10:24:12 xxlq123 当前离线 111 主题 7 广播 2 粉丝 级别:一年级 用户积分:285 分 登录次数:70 次 注册时间:2010/5/20 最后登录:2017/8/3	xxlq123 发表于：2015/2/11 20:45:40   | 只看该作者 查看该作者主题 藤椅  做线上考试培训 就选#科汛网校 收藏了吧！
	做考试题库 就用#科汛在线考试系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:qf520 性别:女 积分:3508分 威望:2352 帖子:1098 精华:0 广播:3 粉丝:15 登录次数:824 次 注册时间:2009/12/16 17:25:00 最后登录:2023/12/1 19:02:43 qf520 当前离线 1098 主题 3 广播 15 粉丝 级别:八年级 用户积分:3508 分 登录次数:824 次 注册时间:2009/12/16 最后登录:2023/12/1	qf520 发表于：2015/2/11 21:26:11   | 只看该作者 查看该作者主题 板凳  一分钟快速开通线上知识店铺 前排支持
	做考试题库 就用#科汛在线考试系统!
	支持(0) | 反对(0) 顶端 底部

加为好友 发送消息 空间 | 微博 | 邮件 | QQ号码 用户:tailinsj 性别: 积分:608分 威望:166 帖子:73 精华:0 广播:0 粉丝:0 登录次数:150 次 注册时间:2010/12/2 9:21:33 最后登录:2023/1/17 11:20:10 tailinsj 当前离线 73 主题 0 广播 0 粉丝 级别:学前班 用户积分:608 分 登录次数:150 次 注册时间:2010/12/2 最后登录:2023/1/17	tailinsj 发表于：2019/3/2 9:13:51   | 只看该作者 查看该作者主题 报纸  有课程 找生源 就上科汛课堂街 这个标签要在版本2.0下，筛选模板中使用，还要修改那里，请版主指示
	有课程 找生源 就上科汛课堂街
	支持(0) | 反对(0) 顶端 底部

＜上一主题 | 下一主题 ＞

<< 返回列表 首 页 1