科讯位置导航如何修改首页链接的文字和链接网址

科讯位置导航如何修改首页链接的文字和链接网址

首先打开文件：

找到如下代码，进行修改：

'取得栏目的位置导航
  Function GetFolderLocation(StartTag, NaviStr, OpenType, TitleCss, RefreshFolderIDValue)
   Dim FolderNaviStr:FolderNaviStr = GetFolderNaviStr(NaviStr, OpenType, TitleCss, RefreshFolderIDValue)
   If FCls.BrandName<>"" Then
      GetFolderLocation = StartTag & "<a " & TitleCss & " href=""/index.html""" & KS.G_O_T_S(OpenType) & ">" & WebNameStr & "</a>" & FolderNaviStr & 

NaviStr & FCls.BrandName
   Else
    If FCls.RefreshChannelHomeFlag = True Then
      GetFolderLocation = StartTag & "<a " & TitleCss & " href=""/index.html""" & KS.G_O_T_S(OpenType) & ">" & WebNameStr & "</a>" & FolderNaviStr & 

NaviStr
    Else
      GetFolderLocation = StartTag & "<a " & TitleCss & " href=""/index.html""" & 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=""/index.html""" & 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就是首页链接的文字，前面的网址就是要修改的地方。