asp获得当前页面的地址

做asp程序的时候，有时候需要用的着！ 

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