因认证用户有这方面需求，今天花了点时间整理修改了代码，在内容页直接使用标签{$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

因论坛限制，请将绿色的 sel ect 改成 select 即去掉空格。