我的目的是想自动获取上一级目录名称和链接，比如这样

在论坛半天看到需要改下面这部分，可是看不懂，哪位朋友给解释下啊

我用eshop v8.04，开商城用的，网站首页直接调用的商城频道首页模板。

'取得位置导航

  '***********************************************************************************************************

  Function GetLocation(ParamNode)

      Dim Bold, StartTag, NavType, Nav, OpenType, TitleCss,ShowTitle

   Bold       = ParamNode.GetAttribute("bold")

   StartTag   = ParamNode.GetAttribute("starttag")

   NavType    = ParamNode.getAttribute("navtype")

   Nav        = ParamNode.getAttribute("nav")

   OpenType   = ParamNode.getAttribute("opentype")

   TitleCss   = ParamNode.getAttribute("titlecss")

   ShowTitle  = ParamNode.getAttribute("showtitle")

   Dim NaviStr

   If CBool(Bold) = True Then StartTag = "<strong>" & StartTag & "</strong>"

   NaviStr = GetLocationNav(NavType, Nav)

   TitleCss=KS.GetCss(TitleCss)

   Select Case UCase(FCls.RefreshType)

      Case "MORESPACE","MORELOG","MOREFRESH","MOREGROUP","MOREXC" GetLocation = GetMoreSpaceLocation(StartTag, NaviStr, OpenType, TitleCss)

      Case "SPECIALINDEX" GetLocation = GetSpecialIndexLocation(StartTag, NaviStr, OpenType, TitleCss)

      Case "FOLDER" GetLocation = GetFolderLocation(StartTag, NaviStr, OpenType, TitleCss, FCls.RefreshFolderID)

      Case "CONTENT" GetLocation = GetContentLocation(StartTag, NaviStr, OpenType, TitleCss,FCls.RefreshFolderID,ShowTitle)

      Case "CHANNELSPECIAL" GetLocation = GetSpecialClassLocation(StartTag, NaviStr, OpenType, TitleCss, FCls.RefreshFolderID)

      Case "SPECIAL"  GetLocation = GetSpecialLocation(StartTag, NaviStr, OpenType, TitleCss, FCls.RefreshFolderID)

我的怎么不是第一种方式呢,要是第一种方式我也懒的找这麻烦了