<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