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

　　

posted @ 2013-08-26 15:36  晴耕雨读-li  阅读(397)  评论(0)  编辑  收藏  举报