ASP获取当前页面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
'=======================================
其中的知识点为:
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。











