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