ASP获取当前页面带参数的网址（URL地址）的方法

'获取当前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