你前面可以改成"网站首页"然后在下面找到
'取得栏目的位置导航
Function GetFolderLocation(StartTag, NaviStr, OpenType, TitleCss, RefreshFolderIDValue)
Dim FolderNaviStr:FolderNaviStr = GetFolderNaviStr(NaviStr, OpenType, TitleCss, RefreshFolderIDValue)
If FCls.BrandName<>"" Then
GetFolderLocation = StartTag & "<a " & TitleCss & " href=""" & DomainStr & """" & KS.G_O_T_S(OpenType) & ">" & WebNameStr & "</a>" & FolderNaviStr & NaviStr & FCls.BrandName
Else
If FCls.RefreshChannelHomeFlag = True Then
GetFolderLocation = StartTag & "<a " & TitleCss & " href=""" & DomainStr & """" & KS.G_O_T_S(OpenType) & ">" & WebNameStr & "</a>" & FolderNaviStr & NaviStr & "首页"
Else
GetFolderLocation = StartTag & "<a " & TitleCss & " href=""" & DomainStr & """" & KS.G_O_T_S(OpenType) & ">" & WebNameStr & "</a>" & FolderNaviStr
End If
End If
End Function
把红色的地方改成你要的就可以了