摘要:
获取当前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://"& Ser 阅读全文