解决了!


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

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

   解决了!

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