账号通
    

账号  

密码  

4420

查看

5

回复
主题:[分享]KesionCMS X1.5文章内容页模板增加调用所属专题的修改 [收藏主题] 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2016/2/19 11:47:25   | 只看该作者 查看该作者主题 楼主 
因认证用户有这方面需求,今天花了点时间整理修改了代码,在内容页直接使用标签{$GetSpecialName} 即可调用当前文档所属的专题名称
具体修改代码如下:

打开 ks_cls/modellabel/article.asp

增加以下红色代码即可:

<%
'================================文章模型开始================================
        case "getspecialname"  '内容页显示所属专题

    Dim RSSpecial:Set RSSpecial=Conn.Execute("
sel ect top 10 SpecialName,A.SpecialID,A.FsoSpecialIndex,a.SpecialEname From KS_Special A inner JOin KS_SpecialR B ON A.SpecialID=B.SpecialID Where B.InfoID=" & ItemID &" and B.ChannelID=" & ModelID)

Dim SpecialStr


If Not RSSpecial.Eof Then


   Do While NOt RSSpecial.Eof


     If SpecialStr="" Then


       SpecialStr = "<a href=""" & KS.GetSpecialPath(RSSpecial("SpecialID"),RSSpecial("SpecialEname"),RSSpecial("FsoSpecialIndex")) & """ target=""_blank"">" & RSSpecial(0) &"</a>"


Else


   SpecialStr=SpecialStr&",<a href=""" & KS.GetSpecialPath(RSSpecial("SpecialID"),RSSpecial("SpecialEname"),RSSpecial("FsoSpecialIndex")) & """ target=""_blank"">" & RSSpecial(0) &"</a>"


End If


     RSSpecial.MoveNext


   Loop


End If


If KS.IsNul(SpecialStr) Then SpecialStr="-"


Echo SpecialStr


RSSpecial.Close


Set RSSpecial=Nothing

        case "now" echo now
        case "getarticlepagelist"    '分页导航

dim URL,PN,PageTitle:PageTitle=GetNodeText("pagetitle")

if Not KS.IsNul(PageTitle) Then
 
KesionCMS,,
  支持(1) | 反对(0) 回到顶部顶端 回到底部底部
科汛官方 当前离线

47268

主题

145

广播

405

粉丝
添加关注
级别:管理员

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2016/2/19 11:48:08   | 只看该作者 查看该作者主题 沙发 
科汛智能建站系统
因论坛限制,请将绿色的 sel ect 改成 select 即去掉空格。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
hasdiff 当前离线

802

主题

2

广播

11

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

用户积分:4154 分
登录次数:442 次
注册时间:2011/10/28
最后登录:2024/9/26
hasdiff 发表于:2016/2/21 12:23:53   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
liti520 当前离线

222

主题

23

广播

1

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

用户积分:328 分
登录次数:192 次
注册时间:2009/12/3
最后登录:2018/3/29
liti520 发表于:2016/3/20 10:44:15   | 只看该作者 查看该作者主题 板凳 
做在线知识付费 选科汛云开店
试试去,不知道是只有专题名称还是带链接,一会给放歌效果图,哈哈
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
liti520 当前离线

222

主题

23

广播

1

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

用户积分:328 分
登录次数:192 次
注册时间:2009/12/3
最后登录:2018/3/29
liti520 发表于:2016/3/20 11:28:50   | 只看该作者 查看该作者主题 报纸 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zxy56874483 当前离线

78

主题

0

广播

0

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

用户积分:348 分
登录次数:81 次
注册时间:2012/6/15
最后登录:2023/7/21
zxy56874483 发表于:2016/3/20 20:20:45   | 只看该作者 查看该作者主题 地板 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.17188秒 powered by KesionCMS 9.0