当前位置：
|
主题：“栏目总导航标签”不会改，高手帮帮忙 [收藏主题] | 转到： |
 知道是这里了，但是不会改，高手帮帮忙～ '取得文章管理顶部栏目导航 Function GetArticleNavigation(ChannelID, TypeFlag, NavType, Nav, SplitPic, ColNumber, OpenType, TitleCss) Dim FolderRS:Set FolderRS=Server.CreateObject("ADODB.RECORDSET") Dim SqlStr If ChannelID = "0" Then SqlStr = "Select ID,FolderName,TN,FolderOrder From KS_Class Where TN='0' AND TopFlag=1 And DelTF=0 Union All Select ChannelName,ChannelName,Url,OrderID From KS_ExtChannel Where TopFlag=1 Order By FolderOrder" ElseIf ChannelID = "1" Then if Application(Cstr(KSCMS.SiteSN & "RefreshFolderID"))="0" then SqlStr = "Select ID From KS_Class Where TN='0' AND TopFlag=1 And DelTF=0 Order BY FolderOrder" else SqlStr = "Select ID From KS_Class Where TN='" & Application(Cstr(KSCMS.SiteSN & "RefreshFolderID")) & "' And DelTF=0 Order BY FolderOrder" end if ElseIf ChannelID = "2" Then GetArticleNavigation=GetExtChannelNavigation(NavType, Nav, SplitPic, ColNumber, OpenType, TitleCss) Exit Function Else SqlStr = "Select ID From KS_Class Where TN='" & ChannelID & "' And DelTF=0 Order BY FolderOrder" End If FolderRS.Open SqlStr, Conn, 1, 1 “指定到频道”可以显示“同级栏目” “当前栏目通用”不行 想将“当前栏目通用”改为可以显示“同级栏目” [此贴子已经被作者于2006-7-25 13:55:11编辑过] |
|
 支持(0) |  反对(0)
 顶端  底部
|
![电子邮件:[ er@w43t.cn ]](http://bbs.kesion.com/club/images/email.gif){kind=small}
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
 '取得文章管理顶部栏目导航 Function GetArticleNavigation(ChannelID, TypeFlag, NavType, Nav, SplitPic, ColNumber, OpenType, TitleCss) Dim FolderRS:Set FolderRS=Server.CreateObject("ADODB.RECORDSET") Dim SqlStr If ChannelID = "0" Then SqlStr = "Select ID,FolderName,TN,FolderOrder From KS_Class Where TN='0' AND TopFlag=1 And DelTF=0 Union All Select ChannelName,ChannelName,Url,OrderID From KS_ExtChannel Where TopFlag=1 Order By FolderOrder" ElseIf ChannelID = "1" Then if Application(Cstr(KSCMS.SiteSN & "RefreshFolderID"))="0" then SqlStr = "Select ID From KS_Class Where TN='0' AND TopFlag=1 And DelTF=0 Order BY FolderOrder" else SqlStr = "Select ID From KS_Class Where TN='" & Application(Cstr(KSCMS.SiteSN & "RefreshFolderID")) & "' And DelTF=0 Order BY FolderOrder" end if ElseIf ChannelID = "2" Then GetArticleNavigation=GetExtChannelNavigation(NavType, Nav, SplitPic, ColNumber, OpenType, TitleCss) Exit Function Else SqlStr = "Select ID From KS_Class Where TN='" & ChannelID & "' And DelTF=0 Order BY FolderOrder" End If FolderRS.Open SqlStr, Conn, 1, 1 知道是这里但是不会改 “指定到频道”可以显示“同级栏目” “当前栏目通用”不行 想将“当前栏目通用”改为可以显示“同级栏目” |
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
|
支持(0) | 反对(0)
顶端 底部
|
| ＜上一主题 | 下一主题 ＞ |