ASP获取当前页面URL地址（带参数）的方法

Author：Flymorn Source：飘易博客
Categories：Asp编程 PostTime：2008-3-8 12:20:20

摘要：今天周六，本来要写写百度快照不更新的内容；但由于家里的一条小白狗拽拽一直缠着跳来跳去，再加上今天也是三八妇女节，女朋友要去逛街，所以没时间再来补充文章了；就把我以前写的一篇如何获取当前页面url地址的方法贴到这里吧。

正文：

今天周六，本来要写写百度快照不更新的内容；但由于家里的一条小白狗拽拽一直缠着我跳来跳去，再加上今天也是三八妇女节，女朋友要去逛街，所以没时间再来补充文章了；就把我以前写的一篇如何获取当前页面url地址的方法贴到这里吧。

以下为原文：

今天在写BLOG的Trackback时，需要用到当前页的URL地址，并且包括?后的所有参数。在网上看到以下的这段ASP代码，它的确可以获取到当前页的URL，包括参数。

'============================================
'获取当前Url参数的函数
Function GetUrl()
  Dim ScriptAddress, M_ItemUrl, M_item
  ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))
  M_ItemUrl = ""
  If (Request.QueryString <> "") Then
  ScriptAddress =  ScriptAddress & "?"
  For Each M_item In Request.QueryString
    If InStr(page,M_Item)=0 Then
       M_ItemUrl = M_ItemUrl & M_Item &"="& Server.URLEncode(Request.QueryString(""&M_Item&""))  & "&"
    End If
  Next
  end if
  GetUrl ="http://"&Request.ServerVariables("Server_Name")&ScriptAddress & M_ItemUrl
End Function
'==============================================

但这段ASP代码有不足，比如：http://www.cn-pn.com/diary/show.asp?id=853，获取的地址却是http://www.cn-pn.com/diary/show.asp?id=853&，地址后多了个“&”，这是由于它的循环没有处理好。

其实根本没那么费事；以下是我自己加工的ASP代码，短小且功能正常，有需要的朋友就拿去用吧：

'===========================================
'获取当前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
'============================================

作者：Flymorn
来源：飘易博客
版权所有。转载时必须以链接形式注明作者和原始出处及本声明。