账号通
    

账号  

密码  

10273

查看

24

回复
主题:[分享]3.2顶部菜单生成路径出错的解决方法(5-29) [收藏主题] 本贴被认定为精华 转到:  
科汛官方 当前离线

47268

主题

145

广播

405

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

用户积分:101604 分
登录次数:7935 次
注册时间:2006/12/7
最后登录:2023/12/14
科汛官方 发表于:2007/5/25 10:30:00   | 只看该作者 查看该作者主题 楼主 
科汛在线网校系统

顶部菜单的两次BUG

1、顶部菜单没有和忝外部频道链接

 解决方法:下载此文件到admin目录下覆盖.

 下载信息  [文件大小:8.34 KB 下载次数: 次]
点击下载文件:

2、最近不少朋友在论坛提出,当网站不生成静态html时,路径出错,经过测试确实存在这个问题,现在解决方法告诉大家

打开 ks_cls/ks_commoncls.asp,找到函数 Public Function GetFolderPath(FolderID,FullPathFlag)

即将以下代码:

 '**************************************************
 '函数名: GetFolderPath
 '功 能:取得目录Url
 '参 数: FolderID目录的ID,FullPathFlag是否完整路径(取栏目首页与否),包括栏目首页 如 "http://www.h121.com/article/computer/photoshop/index.html"
 '**************************************************
 Public Function GetFolderPath(FolderID,FullPathFlag)
     KSCache.name=Cstr(SiteSN & "ClassPath" &FolderID&FullPathFlag)
     IF KSCache.valid and KSCache.value<>"" Then
      GetFolderPath=KSCache.value
     Else  
       Call KSCache.clean
       Dim FolderSql, Folder,ClassPurview
      FolderSql = "Select ID,ChannelID,TN,Folder,FolderDomain,FolderFsoIndex,ClassPurview From KS_Class Where ID='" & FolderID & "'"
      Dim FolderRS:Set FolderRS=Server.CreateObject("ADODB.RECORDSET")
      FolderRS.Open FolderSql, Conn, 1, 1
      If Not FolderRS.EOF Then
            ClassPurview=FolderRS("ClassPurview")
         If Cbool(FullPathFlag) = True Then
        '判断是否绑定域名
          If Trim(FolderRS(4)) <> "" And CStr(FolderRS(2)) = "0" Then
         IF ClassPurview=2 Or GetChannelConfig(FolderRS(1),"FsoHtmlTF")=0 Then
          GetFolderPath = Trim(FolderRS(4)) & GetChannelNoHtmlUrl(FolderRS(1),FolderRS(0))
           Else
          GetFolderPath = Trim(FolderRS(4)) & FolderRS("FolderFsoIndex")
           End If
          ElseIf Trim(FolderRS(4)) <> "" Then
         Folder = Trim(FolderRS(3))
         Folder = Right(Mid(Folder, InStr(Folder, "/")), Len(Mid(Folder, InStr(Folder, "/"))) - 1)
        
         IF ClassPurview=2 Or GetChannelConfig(FolderRS(1),"FsoHtmlTF")=0 Then
          GetFolderPath = Trim(FolderRS(4)) & GetChannelNoHtmlUrl(FolderRS(1),FolderRS(0))
           Else
          GetFolderPath = Trim(FolderRS(4)) & Folder & FolderRS("FolderFsoIndex")
           End If
          Else
         IF ClassPurview=2 Or GetChannelConfig(FolderRS(1),"FsoHtmlTF")=0 Then
          GetFolderPath = GetChannelNoHtmlUrl(FolderRS(1),FolderRS(0))
           Else
          GetFolderPath = GetChannelDomain(FolderRS(1)) & FolderRS(3) & FolderRS("FolderFsoIndex")
           End If
        
          End If
         
       Else
          If Trim(FolderRS(4)) <> "" And CStr(FolderRS("TN")) = "0" Then
          GetFolderPath = Trim(FolderRS(4))
          ElseIf Trim(FolderRS(4)) <> "" Then
         Folder = Trim(FolderRS(3))
         Folder = Right(Mid(Folder, InStr(Folder, "/")), Len(Mid(Folder, InStr(Folder, "/"))) - 1)
         GetFolderPath = Trim(FolderRS(4)) & Folder
          Else
          GetFolderPath = GetChannelDomain(FolderRS(1)) & FolderRS(3)
          End If
       End If
      Else
       GetFolderPath = ""
      End If
      FolderRS.Close:Set FolderRS = Nothing
      KSCache.add GetFolderPath,dateadd("n",1000000,now)
   End IF
  End Function

替换成:

'**************************************************
 '函数名: GetFolderPath
 '功 能:取得目录Url
 '参 数: FolderID目录的ID,FullPathFlag是否完整路径(取栏目首页与否),包括栏目首页 如 "http://www.h121.com/article/computer/photoshop/index.html"
 '**************************************************
 Public Function GetFolderPath(FolderID,FullPathFlag)
     KSCache.name=Cstr(SiteSN & "ClassPath" &FolderID&FullPathFlag)
     IF KSCache.valid and KSCache.value<>"" Then
      GetFolderPath=KSCache.value
     Else  
       Call KSCache.clean
       Dim FolderSql, Folder,ClassPurview
      FolderSql = "Select ID,ChannelID,TN,Folder,FolderDomain,FolderFsoIndex,ClassPurview From KS_Class Where ID='" & FolderID & "'"
      Dim FolderRS:Set FolderRS=Server.CreateObject("ADODB.RECORDSET")
      FolderRS.Open FolderSql, Conn, 1, 1
      If Not FolderRS.EOF Then
            ClassPurview=FolderRS("ClassPurview")
        
         Dim ChannelFsoHtmlTF:ChannelFsoHtmlTF=GetChannelConfig(FolderRS(1),"FsoHtmlTF")
          '判断根目录是否有绑定二级域名
            If Trim(FolderRS(4)) <> "" And CStr(FolderRS(2)) = "0" Then
        IF ClassPurview=2 Or ChannelFsoHtmlTF=0 Then
         GetFolderPath= Trim(FolderRS(4))
          Else
         GetFolderPath= Trim(FolderRS(4)) 
          End If
         ElseIf Trim(FolderRS(4)) <> "" Then
         Folder = Trim(FolderRS(3))
         Folder = Right(Mid(Folder, InStr(Folder, "/")), Len(Mid(Folder, InStr(Folder, "/"))) - 1)
         IF ClassPurview=2 Or ChannelFsoHtmlTF=0 Then
         GetFolderPath= Trim(FolderRS(4)) & GetChannelNoHtmlUrl(FolderRS(1),FolderRS(0))
          Else
         GetFolderPath= Trim(FolderRS(4)) & Folder
       End If
        Else
          IF ClassPurview=2 Or ChannelFsoHtmlTF=0 Then
        GetFolderPath= GetChannelNoHtmlUrl(FolderRS(1),FolderRS(0))
          Else
        GetFolderPath=GetChannelDomain(CInt(FolderRS(1))) & FolderRS(3)
          End If
        End If

      Else
       GetFolderPath = ""
      End If
      FolderRS.Close:Set FolderRS = Nothing
      KSCache.add GetFolderPath,dateadd("n",1000000,now)
   End IF
  End Function

保存后,重新生成顶部菜单JS即可!


[此贴子已经被作者于2007-5-30 16:42:57编辑过]

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cngh66 当前离线

9

主题

0

广播

0

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

用户积分:252 分
登录次数:3 次
注册时间:2007/8/2
最后登录:2007/8/4
cngh66 发表于:2007/8/4 0:04:00   | 只看该作者 查看该作者主题 沙发 
科汛在线考试系统(NET)
我按照第二个bug的解决办法解决了首页在非静态下的问题,但选择某频道进入又出现了新问题,新页面顶部菜单不显示某频道的二级菜单(鼠标悬停时)
好像有点顾此失彼,请快帮助解决哦!
谢谢了!

[此贴子已经被作者于2007-8-4 0:27:44编辑过]

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
cngh66 当前离线

9

主题

0

广播

0

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

用户积分:252 分
登录次数:3 次
注册时间:2007/8/2
最后登录:2007/8/4
cngh66 发表于:2007/8/3 17:46:00   | 只看该作者 查看该作者主题 藤椅 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
清风一碗水 当前离线

8

主题

0

广播

0

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

用户积分:230 分
登录次数:4 次
注册时间:2007/7/26
最后登录:2007/7/27
清风一碗水 发表于:2007/7/26 10:23:00   | 只看该作者 查看该作者主题 板凳 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
zdsky 当前离线

73

主题

0

广播

0

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

用户积分:702 分
登录次数:55 次
注册时间:2007/7/6
最后登录:2013/1/3
zdsky 发表于:2007/7/8 23:45:00   | 只看该作者 查看该作者主题 报纸 
做在线知识付费 选科汛云开店

科汛网上商城管理系统V3.2(含CMS) Build070329 的导航栏目问题,我新加的栏目点开是空白,但是从该栏目的二级内容页点击该栏目却能正常显示,不知道我表达清楚没?在论坛上见过此问题的解决方案,但是我试了还是不行,跪求老师解答!学生不胜感激!

我试过楼主的方法可还是不行啊!学生技术不行,请大师们指点!QQ  596452156

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
wkqsjr 当前离线

70

主题

0

广播

0

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

用户积分:658 分
登录次数:48 次
注册时间:2007/6/20
最后登录:2008/4/14
wkqsjr 发表于:2007/6/20 8:46:00   | 只看该作者 查看该作者主题 地板 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
linux 当前离线

7

主题

0

广播

0

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

用户积分:228 分
登录次数:10 次
注册时间:2007/6/14
最后登录:2007/6/15
linux 发表于:2007/6/15 9:46:00   | 只看该作者 查看该作者主题 7楼 
科汛在线网校系统
为什么我使用V3.2在生成频道后 在前台可以显示 但连接不了????而且在前台看不到外部频道 求解
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
790214 当前离线

1145

主题

1

广播

0

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

用户积分:6575 分
登录次数:616 次
注册时间:2006/5/8
最后登录:2022/7/27
790214 发表于:2007/5/31 12:45:00   | 只看该作者 查看该作者主题 8楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
gqz672004 当前离线

20

主题

0

广播

0

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

用户积分:240 分
登录次数:8 次
注册时间:2007/5/31
最后登录:2007/6/12
gqz672004 发表于:2007/5/31 10:12:00   | 只看该作者 查看该作者主题 9楼 
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
sofs 当前离线

25

主题

0

广播

0

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

用户积分:268 分
登录次数:13 次
注册时间:2007/5/30
最后登录:2007/6/1
sofs 发表于:2007/5/30 17:40:00   | 只看该作者 查看该作者主题 10楼 
科汛在线网校系统
用了这个后没有频道栏目下拉列表,看来问题根本就没有解决,只不过换成类似频道导航标签罢了,太失望了。

动易都能做出来,科讯也不该落后啊。
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.20313秒 powered by KesionCMS 9.0