在这里,顶级网址或者说基准网址是什么意思呢?
比如对于网址 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