<div style="text-indent: 2em; font-size: larger;">

在这里,顶级网址或者说基准网址是什么意思呢?

比如对于网址 http://www.myfootprints.cn/blog/post/1.html 来说,http://www.myfootprints.cn/ 就是该网站的顶级网址。

要在程序中取得这个顶级网址,可以这样实现:

    ' 确定基准URL
    Public Function GetBaseUrl()
        Dim sServerName, sAPPL_MD_Path
        sServerName = Trim(LCase(Request.ServerVariables("SERVER_NAME")))
        sAPPL_MD_Path = Trim(LCase(Request.ServerVariables("APPL_MD_PATH")))
        
        If Right(sAPPL_MD_Path, 1) <> "/" Then
            sAPPL_MD_Path = sAPPL_MD_Path & "/"
        End If
        
        ' 后面带有"/"
        GetBaseUrl = "http://" & sServerName & "/" & Right(sAPPL_MD_Path, Len(sAPPL_MD_Path) - InStrRev(sAPPL_MD_Path, "root") - Len("root"))
    End Function

要获取网站的根目录虚拟路径(比如在http://localhost/上运行了多个网站,那么其中某个网站的虚拟根目录可能是 /myfootprints.cn),可以这样实现:

    ' 确定网站根目录虚拟路径
    Public Function GetRootVirtualPath()
        Dim sAPPL_MD_Path
        sAPPL_MD_Path = Trim(LCase(Request.ServerVariables("APPL_MD_PATH")))
        
        If Right(sAPPL_MD_Path, 1) <> "/" Then
            sAPPL_MD_Path = sAPPL_MD_Path & "/"
        End If
        
        ' 后面带有"/"
        GetRootVirtualPath = "/" & Right(sAPPL_MD_Path, Len(sAPPL_MD_Path) - InStrRev(sAPPL_MD_Path, "root") - Len("root"))        
    End Function