Function GetFolderLocation(StartTag, NaviStr, OpenType, TitleCss, RefreshFolderIDValue)



Dim FolderNaviStr:FolderNaviStr = GetFolderNaviStr(NaviStr, OpenType, TitleCss, RefreshFolderIDValue)



If FCls.BrandName<>"" Then



  GetFolderLocation = StartTag & FolderNaviStr & NaviStr & FCls.BrandName



Else



If FCls.RefreshChannelHomeFlag = True Then



  GetFolderLocation = StartTag & FolderNaviStr & NaviStr & "频道首页"



Else



  GetFolderLocation = StartTag & FolderNaviStr



End If



   End If



End Function