ASP获取当前页面带参数的完整网址：

'获取当前URL参数的函数 
'获取页面文件地址，包含页面所在的文件夹地址
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