如何获取当前页的地址。

[Eddie]

举例；
当前页的地址是：
http://xxx/xxx/list.asp?prodsubtypeid=68&prodtypeid=2

如果将这个地址存入变量，以便转到别的页面时能回到此页？

[fason]

得到当前页面的地址
<%
Function GetUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables("HTTPS")) = "off" Then
strTemp = "http://"
Else
strTemp = "https://"
End If
strTemp = strTemp & Request.ServerVariables("SERVER_NAME")
If Request.ServerVariables("SERVER_PORT") <> 80 Then strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")
strTemp = strTemp & Request.ServerVariables("URL")
If Trim(Request.QueryString) <> "" Then strTemp = strTemp & "?" & Trim(Request.QueryString)
GetUrl = strTemp
End Function
Response.write GetUrl()
%>

[lsrzm]

Response.Write Request.ServerVariables("LOCAL_ADDR")

[lsrzm]

ALL_HTTP 客户端发送的所有 HTTP 标题文件。
CONTENT_LENGTH 客户端发出内容的长度。
CONTENT_TYPE 内容的数据类型。如："text/html"。同附加信息 的查询一起使用，如 HTTP 查询 GET、POST 和 PUT。
LOCAL_ADDR 返回接受请求的服务器地址。如果在绑定多 个 IP 地址的多宿主机器上查找请求所使用的地址 时，这条变量非常重要。
LOGON_USER 用户登录 Windows NT 的帐号
QUERY_STRING 查询 HTTP 请求中问号（?）后的信息。
REMOTE_ADDR 发出请求的远程主机 (client) 的 IP 地址。
REMOTE_HOST 发出请求的主机 (client) 名称。如果服务器无此 信息，它将设置为空的　MOTE_ADDR 变量。
REQUEST_METHOD 该方法用于提出请求。相当于用于 HTTP 的 GET、HEAD、POST等 等。
SERVER_NAME 出现在自引用 URL 中的服务器主机名、DNS 化名 或 IP 地址。
SERVER_PORT 发送请求的端口号。
HTTP_ACCEPT_LANGUAGE 机器使用的语言环境
ServerVariables 集合对象的语法是什么？

　　

[stormhu]

javascript
<script>
URL=document.URL;
</script>

[stormhu]

在转入的页面
<%
url=Request.ServerVariables("HTTP_REFERER")
response.redirect url
%>
不就可以返回了吗?

或者在转出的页面
<%
oldurl="http://xxx/xxx/list.asp?prodsubtypeid="&request("prodsubtypeid"))&"&prodtypeid="&Request("prodtypeid")

%>