Request.ServerVariables("http_host")
获取域名，形如hi.baidu.com

Request.ServerVariables("server_port")
获取端口号

Request.ServerVariables("url")
获取相对域名的http地址，参数除外

Request.ServerVariables("QUERY_STRING")
获取 HTTP 请求中问号（?）后的信息，不包括“？”号。  
如：   
http://hi.baidu.com/hexcode/blog/?id=123456   
那么，
Request.ServerVariables("http_host")得到
hi.baidu.com

Request.ServerVariables("url")得到
/hexcode/blog

zRequest.ServerVariables("QUERY_STRING")得到
id=123456

例如：

<%
str1="http://" & request.ServerVariables("REMOTE_HOST")
str1=str1&":"&request.ServerVariables("SERVER_PORT")
str1=str1 & request.ServerVariables("PATH_INFO")
if request.ServerVariables("QUERY_STRING")<>"" then
str1=str1 & "?" & request.ServerVariables("QUERY_STRING")
end if
response.write str1
'支持URL为 URL?xxx=xxx&xxx=xxx 的形式
%>

这段代码就可依获取当前页面的全地址