ASP获取当前页面带参数的网址(URL地址)的方法

80酷酷网    80kuku.com

  

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

分享到
  • 微信分享
  • 新浪微博
  • QQ好友
  • QQ空间
点击: