ASP 获取当前完整路径（URL）的函数代码示例

在 ASP（Active Server Pages）编程中，获取当前页面的完整路径（URL）是一项常见的任务。通过使用特定的函数和代码，我们可以轻松地实现这一功能。以下是一个详细的示例，展示如何获取当前页面的完整路径。

<%
Function GetFullURL()
    Dim strProtocol, strServerName, strPort, strScriptName, strQueryString
    strProtocol = Request.ServerVariables("SERVER_PROTOCOL")
    strServerName = Request.ServerVariables("SERVER_NAME")
    strPort = Request.ServerVariables("SERVER_PORT")
    strScriptName = Request.ServerVariables("SCRIPT_NAME")
    strQueryString = Request.ServerVariables("QUERY_STRING")

    If strPort = 80 Then
        strPort = ""
    Else
        strPort = ":" & strPort
    End If

    GetFullURL = strProtocol & "://" & strServerName & strPort & strScriptName
    If strQueryString <> "" Then
        GetFullURL = GetFullURL & "?" & strQueryString
    End If
End Function

Response.Write(GetFullURL())
%>

上述代码中，我们定义了一个名为 GetFullURL 的函数。通过 Request.ServerVariables 方法获取了协议（SERVER_PROTOCOL）、服务器名称（SERVER_NAME）、端口（SERVER_PORT）、脚本名称（SCRIPT_NAME）和查询字符串（QUERY_STRING）等信息。

对于端口，如果是默认的 80 端口，则不显示；否则，在服务器名称后面添加端口号。

最后，将获取到的各个部分组合成完整的 URL 并返回。在页面中调用 GetFullURL() 函数，即可输出当前页面的完整路径。

这种获取当前完整路径的功能在许多场景中都非常有用。例如，当需要根据当前页面的路径进行特定的处理，如动态加载相关的资源文件、进行页面跳转或传递参数等操作时，准确获取 URL 是至关重要的。

另外，在进行网站的优化和维护工作中，了解页面的完整路径有助于排查问题、分析流量来源以及优化网站结构。

通过上述的 ASP 函数代码示例，我们可以方便地获取当前页面的完整路径，为开发更加灵活和高效的 Web 应用提供了有力的支持。