账号通
    

账号  

密码  

1764

查看

2

回复
主题:论坛位置导航 修改(求高手) [收藏主题]  
xiaolu9184 当前离线

333

主题

5

广播

0

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

用户积分:3069 分
登录次数:304 次
注册时间:2007/10/6
最后登录:2014/8/15
xiaolu9184 发表于:2012/9/29 0:52:43   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店

1、下图是本地调试,论坛回复主题,出错情况。

点击查看原图



2、求高手,下图中 【  您当前位置:科讯网络开发>>科讯技术论坛>>  】怎样可以取消 科讯网络开发这个连接。就像官方论坛这样的


点击查看原图


-------------这里面要修改哪里-----------才可以实现
      '根据论坛版面ID取导航
  Function GetBoardNavigator(boardid,NaviStr)
   Dim Node,ParentID
   KS.LoadClubBoard
   Set Node=Application(KS.SiteSN&"_ClubBoard").DocumentElement.SelectSingleNode("row[@id=" & boardid &"]")
   If Not Node Is Nothing Then
         ParentID=KS.ChkClng(Node.SelectSingleNode("@parentid").Text)
      if ParentID<>0 Then
       If KS.ChkClng(session("clubnowboardpage"))>1 and UCase(FCls.RefreshType)="GUESTDISPLAY" Then
       GetBoardNavigator=GetBoardNavigator(ParentID,NaviStr) & NaviStr & "<a href='" & KS.GetClubListUrlByPage(boardid,KS.ChkClng(session("clubnowboardpage"))) &"'>" & Node.SelectSingleNode("@boardname").Text &"</a>"
       Else
       GetBoardNavigator=GetBoardNavigator(ParentID,NaviStr) & NaviStr & "<a href='" & KS.GetClubListUrl(boardid) &"'>" & Node.SelectSingleNode("@boardname").Text &"</a>"
       End If
      else
      GetBoardNavigator="<a href='" & KS.GetClubListUrl(boardid) &"'>" & Node.SelectSingleNode("@boardname").Text & "</a>"
      End If
   End If
   
  End Function  

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

333

主题

5

广播

0

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

用户积分:3069 分
登录次数:304 次
注册时间:2007/10/6
最后登录:2014/8/15
xiaolu9184 发表于:2012/9/29 9:13:22   | 显示全部帖子 查看该作者主题 沙发 
不是我不是我不是我路过的高手,指点一下吧
 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.09375秒 powered by KesionCMS 9.0