中科新闻网白酒股:ASP 如何获取到本页完整的 URL 地址？？
来源：百度文库 编辑：中科新闻网 时间：2024/05/08 02:42:45
例如：
主机/xxx.asp?aaa=1&bbb=2&ccc=3
如何在该页里获取到这个完整的url：“xxx.asp?aaa=1&bbb=2&ccc=3”
主机/xxx.asp?aaa=1&bbb=2&ccc=3
如何在该页里获取到这个完整的url：“xxx.asp?aaa=1&bbb=2&ccc=3”
方法如下:
<%
Private 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 = ScriptAddress & M_ItemUrl
End Function
response.write geturl()
%>