kesionCMS位置导航标签在后台只能修改一些表面上的内容,如果要修改代码的话,要修改标签类文件。

打开   “根目录/ks_cls/Kesion.Label.LocationCls.asp” 文件,找到

‘取得栏目的位置导航
Function GetFolderLocation(StartTag, NaviStr, OpenType, TitleCss, RefreshFolderIDValue)
Dim FolderNaviStr:FolderNaviStr = GetFolderNaviStr(NaviStr, OpenType, TitleCss, RefreshFolderIDValue)
If FCls.BrandName<>”" Then
GetFolderLocation = StartTag & “<a ” & TitleCss & ” href=”"” & DomainStr & “”"” & KS.G_O_T_S(OpenType) & “>” & WebNameStr & “</a>” & FolderNaviStr & NaviStr & FCls.BrandName
Else
If FCls.RefreshChannelHomeFlag = True Then
GetFolderLocation = StartTag & “<a ” & TitleCss & ” href=”"” & DomainStr & “”"” & KS.G_O_T_S(OpenType) & “>” & WebNameStr & “</a>” & FolderNaviStr & NaviStr & “频道首页”
Else
GetFolderLocation = StartTag & “<a ” & TitleCss & ” href=”"” & DomainStr & “”"” & KS.G_O_T_S(OpenType) & “>” & WebNameStr & “</a>” & FolderNaviStr
End If
End If
End Function
‘取得信息页导航位置的函数
Function GetContentLocation(StartTag, NaviStr, OpenType, TitleCss, RefreshFolderIDValue,ShowTitle)
Dim Str,FolderNaviStr:FolderNaviStr = GetFolderNaviStr(NaviStr, OpenType, TitleCss, RefreshFolderIDValue)
Str = StartTag & “<a ” & TitleCss & ” href=”"” & DomainStr & “”"” & KS.G_O_T_S(OpenType) & “>” & WebNameStr & “</a>” & FolderNaviStr & NaviStr
If Cbool(ShowTitle)=true Then Str=Str & Fcls.ItemTitle Else Str=Str & “浏览”& KS.C_S(FCls.Channelid,3)
GetContentLocation = Str
End Function

上面的 “取得栏目的位置导航” 是修改栏目页的,“取得信息页导航位置的函数”是文章页的导航路径

其中 WebNameStr 这个是导航路径中 网站的名称   一般情况下 路径是      网站名称 >>栏目名称>>文章名称

FolderNaviStr是栏目名称

© 2012 Ai-WEB的博客 Suffusion theme by Sayontan Sinha