|
主题:[分享]KesionCMS X1.5文章内容页模板增加调用所属专题的修改 [收藏主题] | 转到: |
因认证用户有这方面需求,今天花了点时间整理修改了代码,在内容页直接使用标签{$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) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
支持(0) | 反对(0) 顶端 底部 |
zxy56874483 发表于:2016/3/20 20:20:45 | 只看该作者 查看该作者主题
地板
|
|
支持(0) | 反对(0) 顶端 底部 |
<上一主题 | 下一主题 > |