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

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

<%

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页面里运行即可得到结果！
如果有问题再找我！

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

我暂时保留我的看法！

<%
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")，自已拼接吧。
%>