Question

ASP如何获取当前URL中最后一个斜杠前的地址

比如
http://i.baidu.com/msg/messages/list/player.html?l=2&s=26

要获取到http://i.baidu.com/msg/messages/list

Answer 1

<%
url = Request.ServerVariables["Url"] '获取服务端的地址

tempUrl = url 'http://i.baidu.com/msg/messages/list/player.html?l=2&s=26 末尾不能在有/

tempUrls = split(tempUrl ,"/")
tempUrl = Replace(tempUrl ,"/" & Ubound(tempUrls) ,"")
%>

先取得url字符串，赋给临时变量，使用/分离字符串，得到末尾的串【Ubound(tempUrls) 】拼合前面的一个/，把他替换成空就好了

Answer 2

<%

response.write(Cur_Url())

Function Cur_Url() '获取当前页面URL的函数
Domain_Name = LCase(Request.ServerVariables("Server_Name"))
Page_Name = LCase(Request.ServerVariables("Script_Name"))
Quary_Name = LCase(Request.ServerVariables("Quary_String"))
aaa = split(Page_Name,"/")
Page_Name = ""
for i = 1 to ubound(aaa)-1
Page_Name = Page_Name&"/"&aaa(i)
next

If Quary_Name ="" Then
Cur_Url = "http://"&Domain_Name&Page_Name
Else
Cur_Url = "http://"&Domain_Name&Page_Name&"?"&Quary_Name
End If
End Function
%>

以上代码，放在一个asp页面里运行即可得到结果！
如果有问题再找我！

Answer 3

<%
dim u
u=request.ServerVariables("URL")
pos=instrRev(u,"/") '找到最右边的斜线位置
u=left(u,pos-1) '截取斜线左边的内容
response.write u '输出来看看
'以上是获取相对URL，如：/msg/messages/list
'如果要绝对URL，那就在前面加上域名：request.ServerVariables("SERVER_NAME")，自已拼接吧。
%>

Answer 4

可以实现的。帮你搞定 有没有报酬啊。。