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
'============================================%>

文章来自: 网络
引用通告: 查看所有引用 | 我要引用此文章
Tags: 当前页当前页 地址地址 URLURL 函数函数 ASPASP