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

最新推荐文章于 2021-06-05 11:03:39 发布

xssh913913

最新推荐文章于 2021-06-05 11:03:39 发布

阅读量1.3k

点赞数

分类专栏： asp 文章标签： url asp domain function string server

本文链接：https://blog.csdn.net/xssh913913/article/details/1698903

版权

asp 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

<%
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()
%>