在ASP（Active Server Pages）中，获取当前页的代码可以通过多种方式实现，以下是一些常见的方法：

1. 使用Request.ServerVariables

ASP 提供了Request.ServerVariables ***，可以用来获取服务器变量。SCRIPT_NAME 变量可以返回当前执行脚本的路径。

<%
Dim currentPage
currentPage = Request.ServerVariables("SCRIPT_NAME")
Response.Write("当前页面是: " & currentPage)
%>

2. 使用Request.QueryString

如果需要获取当前页面的查询字符串参数，可以使用Request.QueryString ***。

<%
Dim queryString
queryString = Request.QueryString("param")
Response.Write("查询字符串参数是: " & queryString)
%>

使用 `Request.Form`

如果需要获取表单提交的数据，可以使用Request.Form ***。

<%
Dim formData
formData = Request.Form("inputName")
Response.Write("表单数据是: " & formData)
%>

4. 使用Request.Cookies

如果需要获取客户端发送的 Cookie，可以使用Request.Cookies ***。

<%
Dim cookieValue
cookieValue = Request.Cookies("cookieName")
Response.Write("Cookie 值是: " & cookieValue)
%>

5. 使用Request.ServerVariables("URL")

Request.ServerVariables("URL") 可以返回当前请求的 URL。

<%
Dim currentUrl
currentUrl = Request.ServerVariables("URL")
Response.Write("当前 URL 是: " & currentUrl)
%>

6. 使用Request.ServerVariables("PATH_INFO")

Request.ServerVariables("PATH_INFO") 可以返回当前请求的路径信息。

<%
Dim pathInfo
pathInfo = Request.ServerVariables("PATH_INFO")
Response.Write("路径信息是: " & pathInfo)
%>

7. 使用Request.ServerVariables("HTTP_REFERER")

Request.ServerVariables("HTTP_REFERER") 可以返回引用当前请求的页面的 URL。

<%
Dim refererUrl
refererUrl = Request.ServerVariables("HTTP_REFERER")
Response.Write("引用页面是: " & refererUrl)
%>

8. 使用Request.ServerVariables("QUERY_STRING")

Request.ServerVariables("QUERY_STRING") 可以返回查询字符串部分。

<%
Dim queryString
queryString = Request.ServerVariables("QUERY_STRING")
Response.Write("查询字符串是: " & queryString)
%>

9. 使用Request.ServerVariables("HTTP_HOST")

Request.ServerVariables("HTTP_HOST") 可以返回主机名和端口号。

<%
Dim hostName
hostName = Request.ServerVariables("HTTP_HOST")
Response.Write("主机名是: " & hostName)
%>

10. 使用Request.ServerVariables("SERVER_NAME")

Request.ServerVariables("SERVER_NAME") 可以返回服务器的名称。

<%
Dim serverName
serverName = Request.ServerVariables("SERVER_NAME")
Response.Write("服务器名称是: " & serverName)
%>

示例代码整合

以下是一个综合示例，展示了如何获取并显示多个服务器变量的值：

<%
Dim scriptName, url, queryString, hostName, serverName, refererUrl, pathInfo, cookieValue, formData
scriptName = Request.ServerVariables("SCRIPT_NAME")
url = Request.ServerVariables("URL")
queryString = Request.ServerVariables("QUERY_STRING")
hostName = Request.ServerVariables("HTTP_HOST")
serverName = Request.ServerVariables("SERVER_NAME")
refererUrl = Request.ServerVariables("HTTP_REFERER")
pathInfo = Request.ServerVariables("PATH_INFO")
cookieValue = Request.Cookies("cookieName")(1) ' 假设有一个名为 "cookieName" 的 Cookie，并且它有多个值，取第一个值。
formData = Request.Form("inputName")(1) ' 假设有一个名为 "inputName" 的表单字段，并且它有多个值，取第一个值。
Response.Write("当前页面是: " & scriptName & "<br>")
Response.Write("当前 URL 是: " & url & "<br>")
Response.Write("查询字符串是: " & queryString & "<br>")
Response.Write("主机名是: " & hostName & "<br>")
Response.Write("服务器名称是: " & serverName & "<br>")
Response.Write("引用页面是: " & refererUrl & "<br>")
Response.Write("路径信息是: " & pathInfo & "<br>")
Response.Write("Cookie 值是: " & cookieValue & "<br>")
Response.Write("表单数据是: " & formData & "<br>")
%>

FAQs

Q1: 如何在ASP中获取当前页面的完整URL？

A1: 在ASP中，可以使用Request.ServerVariables("URL") 来获取当前页面的完整URL。

<%
Dim currentUrl
currentUrl = Request.ServerVariables("URL")
Response.Write("当前 URL 是: " & currentUrl)
%>

这将输出当前页面的完整URL。

Q2: 如何在ASP中获取当前页面的查询字符串参数？

A2: 在ASP中，可以使用Request.QueryString ***来获取查询字符串参数。

<%
Dim queryStringParam
queryStringParam = Request.QueryString("paramName") ' 替换 "paramName" 为实际的查询字符串参数名。
Response.Write("查询字符串参数值是: " & queryStringParam)
%>