[推荐] 获取当前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

'============================================

获取当前url

非常好用，优秀推荐！