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