2010年12月29日
摘要: 获取当前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 阅读全文
posted @ 2010-12-29 12:00 ddxgc 阅读(5558) 评论(0) 推荐(0) 编辑