Question

ASP获取地址栏地址和目录

http://www.yeye.com/wywyw/qwe.asp
如何获取地址栏地址和目录呢?就是这部分http://www.yeye.com/wywyw/
在线等,谢谢了

Answer 1

response.Write Request.ServerVariables("server_name")
可以获取 www.yeye.com

response.Write Request.ServerVariables("url")

可以获取 /wywyw/qwe.asp

获取http://www.yeye.com/wywyw/这个
我觉得 你做这个的时候 应思路错了。。
其实获取http://www.yeye.com/wywyw/也是可以的
只不过要求 wywyw文件夹不能有子文件夹
用instr函数获取 / 的位置
然后截取！

Answer 2

Function GetUrl()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
Servername = CStr(Request.ServerVariables("Server_Name"))
qs=Request.QueryString
if qs<>"" then
GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
else
GetUrl ="http://"& Servername & ScriptAddress
end if
End Function

url=geturl()

url=left(url,InstrRev(url,"/"))
response.Write(url)