如何获得网页目录的绝对路径

[guan36ly]

这个好像是老话题了。
但是，我照网上搜出来的方法做不出我想要的结果。
如有一网页：http://www.g.cn/test.asp
我想得到结果是：http://www.g.cn/
用网上的方法Request.ServerVariables("PATH_TRANSLATED")或者server.mappath("test.asp")
都是得到物理路径：d:\host\google\这种形式。

[hookee]

<%
h = Request.ServerVariables("SERVER_NAME")
p = Request.ServerVariables("SERVER_PORT")
If p=80 then
   url = "http://" & h & "/"
Else
   url = "http://" & h & ":" & p & "/"
End If
Response.Write url
%>

[guan36ly]

sorry，我想得到的是目录名字，hooke提供的这个方法我还没试，但是我想只是得到hostname
如有一网页：http://www.g.cn/tt/yy/test.asp
我想得到结果是：http://www.g.cn/tt/yy
非常感激hooke,帮我不少忙了。

[hookee]

<%
h = Request.ServerVariables("SERVER_NAME")
u = Request.ServerVariables("URL")
p = Request.ServerVariables("SERVER_PORT")

i = InStrRev(u,"/")
u = Mid(u,1,i)
If p=80 then
   url = "http://" & h & u
Else
   url = "http://" & h & ":" & p & u
End If
Response.Write url
%>

[gxq323]

有分就应该给hookee

[guan36ly]

HOOKE连午觉都不睡，有钱的话也给HOOKE。
等咱有钱了........