获取当前asp的完整url

Function GetUrl()
   Dim ScriptAddress,Servername,qs
   ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
   Servername = CStr(Request.ServerVariables("Server_Name"))
   qs=Request.QueryString
   if qs<>"" then
   GetUrl ="http://"& Servername & ScriptAddress &"?"&qs
   else
   GetUrl ="http://"& Servername & ScriptAddress
   end if
End Function