ASP 如何获取当前页URL斜扛后面的URL - 编程论坛

#2

nicechlk2010-04-05 13:35

回复楼主 c0nverse

用aps内置函数instr（包含）和split（分割）来实现
dim str,tem
if instr(url,"/") then  '如果包含有斜杠，则：
    str=split(url,"/")    '以斜杠作为分割点，把结果赋值给数组变量str；
    tem=str(1)      '将斜杠右边的部分赋值给tem；
    tem1=str(0)     '将左边的部分赋值，如果需要的话；
    response.write tem
end if

#3

c0nverse2010-04-05 14:58

兄弟再帮我看看，下面是获取全部地址参数代码，帮忙取一下后面的URL！
我测试了很多次，还是没有成功。我是新手阿，先感谢你了，

【获取全部地址参数，包括?及后面的参数的两种方法】
方法一：

<%
dim url
url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME")
if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then
url=url & "?" & request.ServerVariables("QUERY_STRING")
end if
response.Write url
%>

方法二：

<%
If Request.QueryString.Count>0 Then
For each querystring in Request.QueryString
query = query+querystring&"="&Request.QueryString(querystring)&"&"
Next
query = mid(query,1,len(query)-1)
Response.Write "http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")&"?"&query
Else
Response.Write "http://"&Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("PATH_INFO")
End If
%>

#4

zhuyunshen2010-04-05 15:02

哈哈哈哈哈哈哈哈

#5

c0nverse2010-04-05 15:03

以下是引用zhuyunshen在2010-4-5 15:02:52的发言：

哈哈哈哈哈哈哈哈

#6

nicechlk2010-04-05 15:20

回复 3楼 c0nverse

<%
dim url
url=url&"http://"&request.ServerVariables("Server_NAME")&request.ServerVariables("SCRIPT_NAME")
if(len(trim(request.ServerVariables("QUERY_STRING")))>0) then
url=url & "?" & request.ServerVariables("QUERY_STRING")
end if
response.Write url
%>

<%
dim url
url=request.querystring("url")
if instr(url,"/") then
    dim str,tem
    str=split(url,"/")
    tem=str(1)
    response.write tem
end if
%>

你到底想获取哪个？

#7

c0nverse2010-04-05 15:41

解决了!

[ 本帖最后由 c0nverse 于 2010-4-5 21:02 编辑 ]