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

其中的知识点为:

1、获取当前页面的脚本名称–Request.ServerVariables(“SCRIPT_NAME“)。举例:地址为http://digdeeply.org/sitemap.xml ,该代码获取的结果为sitemap.xml。

2、获取当前页面的服务器地址:Request.ServerVariables(“Server_Name“)。举例:地址为http://digdeeply.org/sitemap.xml ,该代码获取的结果为digdeeply.org。

3、获取当前页面URL的参数Request.QueryString