解决了!


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

用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

兄弟再帮我看看，下面是获取全部地址参数代码，帮忙取一下后面的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
%>

哈哈哈哈哈哈哈哈

<%
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
%>

你到底想获取哪个？

   解决了!

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