ASP获取URL函数有哪些常见用法？

在ASP开发中，获取URL信息是一项常见需求，无论是用于参数传递、页面跳转还是日志记录，都需要灵活运用相关函数，本文将系统总结ASP中获取URL的核心方法,涵盖不同场景下的实现技巧及注意事项。

获取当前页完整URL

在ASP中，通过Request对象的ServerVariables集合可以获取完整的URL信息,关键变量包括：

• URL：返回当前页的虚拟路径，如/default.asp
• QUERY_STRING：返回URL中的查询字符串，如id=123&name=test
• SERVER_NAME：返回服务器名称或IP，如www.example.com
• SERVER_PORT：返回服务器端口号，默认为80
• SCRIPT_NAME：返回当前页的虚拟路径，与URL类似但包含扩展名

组合这些变量即可构建完整URL：

Dim fullURL
fullURL = "http://" & Request.ServerVariables("SERVER_NAME") & _
         ":" & Request.ServerVariables("SERVER_PORT") & _
         Request.ServerVariables("SCRIPT_NAME") & _
         "?" & Request.ServerVariables("QUERY_STRING")

获取URL特定部分

实际开发中常需提取URL的某个部分,可通过以下方式实现：

1. 获取域名：

   

   Dim domain
   domain = Request.ServerVariables("SERVER_NAME")

2. 获取路径及文件名：

   Dim path
   path = Request.ServerVariables("URL")

3. 获取查询参数：
   使用Request.QueryString集合直接获取参数值：

   Dim id
   id = Request.QueryString("id")

4. 获取协议类型：

   Dim protocol
   protocol = LCase(Mid(Request.ServerVariables("SERVER_PROTOCOL"), 1, 5)) = "https" ? "https://" : "http://"

URL编码与解码

处理URL参数时需注意特殊字符的编码问题,ASP提供内置函数：

• Server.URLEncode：对字符串进行URL编码

  Dim encodedStr
  encodedStr = Server.URLEncode("用户名=test&密码=123")

• Server.URLDecode：对URL编码字符串解码（需自定义函数，因ASP无内置解码函数）

  Function URLDecode(str)
    str = Replace(str, "+", " ")
    For i = 1 To Len(str)
        c = Mid(str, i, 1)
        If c = "%" Then
            If i+2 <= Len(str) Then
                hexCode = Mid(str, i+1, 2)
                decodedChar = Chr("&H" & hexCode)
                str = Left(str, i-1) & decodedChar & Mid(str, i+3)
                i = i + 2
            End If
        End If
    Next
    URLDecode = str
  End Function

常用URL处理函数封装

为提高开发效率,可封装以下实用函数：

' 获取当前完整URL
Function GetCurrentPageURL()
    Dim protocol, domain, port, path, query
    protocol = LCase(Left(Request.ServerVariables("SERVER_PROTOCOL"), 5)) = "https" ? "https://" : "http://"
    domain = Request.ServerVariables("SERVER_NAME")
    port = Request.ServerVariables("SERVER_PORT")
    path = Request.ServerVariables("SCRIPT_NAME")
    query = Request.ServerVariables("QUERY_STRING")
    GetCurrentPageURL = protocol & domain & IIf(port <> "80", ":" & port, "") & path & IIf(query <> "", "?" & query, "")
End Function
' 移除URL参数
Function RemoveParam(paramName)
    Dim url, query, params, i, param, newQuery
    url = GetCurrentPageURL()
    query = Mid(url, InStr(url, "?") + 1)
    params = Split(query, "&")
    newQuery = ""
    For i = 0 To UBound(params)
        param = Split(params(i), "=")(0)
        If param <> paramName Then
            newQuery = newQuery & params(i) & "&"
        End If
    Next
    newQuery = Left(newQuery, Len(newQuery) - 1)
    RemoveParam = Left(url, InStr(url, "?") - 1) & IIf(newQuery <> "", "?" & newQuery, "")
End Function

注意事项

1. 安全性：获取用户输入的URL参数时需进行合法性验证,防止SQL注入或XSS攻击。
2. 性能：频繁调用Request.ServerVariables可能影响性能,建议将结果存入变量复用。
3. 兼容性：不同IIS版本对ServerVariables的支持可能存在差异,需充分测试。

相关问答FAQs

Q1: 如何在ASP中获取上一页的URL？
A1: 可通过HTTP_REFERER服务器变量获取，但需注意用户禁用Referer或直接输入URL时可能为空，示例代码：

Dim referer
referer = Request.ServerVariables("HTTP_REFERER")
If referer <> "" Then
    Response.Write "上一页URL：" & referer
Else
    Response.Write "无法获取上一页URL"
End If

Q2: 如何处理URL中的中文参数乱码问题？
A2: 需确保URL传递前进行编码，接收后解码，发送参数时使用Server.URLEncode，接收后用自定义URLDecode函数处理。
发送页面：<a href="target.asp?name=<%=Server.URLEncode("中文测试")%>">链接</a>
接收页面：name = URLDecode(Request.QueryString("name"))