ASP中用于获取当前页面URL的函数

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

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

0 ·

CC 4.0 BY-SA版权

文章标签：

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

asp 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一段ASP代码，用于获取当前页面的完整URL，包括域名、页面名称及查询字符串部分。通过使用Request对象的不同属性，该方法能够适应不同的URL结构。

<%
Function Cur_Url() '获取当前页面URL的函数
Dim Domain_Name,Page_Name,Quary_Name
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
Quary_Name = LCase(Request.QueryString)
End If
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
%>

完整代码：
<%
Dim Domain_Name,Page_Name,Quary_Name
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
Quary_Name = LCase(Request.QueryString)
End If
If Quary_Name ="" Then
Cur_Url = "http://"&Domain_Name&Page_Name
Else
Cur_Url="http://"&Domain_Name&Page_Name&"?"&Quary_Name
End If
Response.Write(Cur_Url)
Response.End()
%>