ASP获取绝对路径，网站根路径信息汇总代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】 ASP获取绝对路径，网站根路径信息汇总

作者:Dezai.CN / 发布于2013/7/16/ 1233


	<%

	'函数功能：确定基准URL
	'特别注意：此为http万能模式，相当于JSP中的request.getContextPath();
	'但是不推荐这种方式，因为绝对路径比相对路径效率低
	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

	'函数功能：确定网站根目录虚拟路径
	'特别注意：推荐这种方式，因为相对路径效率高，但前提是必须配置成站点或虚拟目录
	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

	
	response.Write "打印各Path变量如下："&""
	response.Write "Server.MapPath('/')=" &Server.MapPath("/")&""
	response.Write "Server.MapPath('./')="&Server.MapPath("./")&""
	response.Write "Server.MapPath('../')="&Server.MapPath("../")&""
	response.Write "Server.MapPath('~/')="&Server.MapPath("~/")&""

	response.Write "打印系统Path变量如下："&""
	response.Write "request.ServerVariables('HTTP_HOST')="&request.ServerVariables("HTTP_HOST")&""

	response.Write "打印两个自定义函数Path变量如下："&""
	response.Write "GetBaseUrl="&GetBaseUrl&""
	response.Write "GetRootVirtualPath="&GetRootVirtualPath&""

	%>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　绝对路径　

同语言下

可能有用的

Dezai.CN贡献的其它代码(4037)