ASP如何取得当前页URL方法

最新推荐文章于 2013-12-15 11:10:55 发布

原创最新推荐文章于 2013-12-15 11:10:55 发布 · 1.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#url #asp #domain #function #string #server

ASP 专栏收录该内容

10 篇文章

订阅专栏

本文提供了两种获取当前页面URL及其参数的方法。函数A通过遍历请求查询字符串来构建完整的URL，包括所有参数；函数B则直接利用服务器变量来组合生成当前页面的完整URL。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

'获取当前Url参数的函数A
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
'=============================

'获取当前页面URL的函数B

Function Cur_Url()
Domain_Name = LCase(Request.ServerVariables("Server_Name"))
Page_Name = LCase(Request.ServerVariables("Script_Name"))
Quary_Name = LCase(Request.ServerVariables("Quary_String"))
If Quary_Name ="" Then
    Cur_Url = "http://"&Domain_Name&Page_Name
Else
    Cur_Url = "http://"&Domain_Name&Page_Name&"?"&Quary_Name
End If
End Function