asp中获取当前页面的地址与参数的函数代码

在ASP中，我们经常需要获取当前页面的地址和参数，这两个函数能够帮助我们轻松实现这一需求。对于需要的朋友，特此整理如下：

获取当前页面地址的函数代码如下：

```asp

Function getCurrentUrl()

On Error Resume Next

Dim strTemp

' 判断是否使用HTTPS协议

If LCase(Request.ServerVariables("HTTPS")) = "off" Then

strTemp = "

Else

strTemp = "

End If

' 构建服务器名称和端口号

strTemp = strTemp & Request.ServerVariables("SERVER_NAME")

If Request.ServerVariables("SERVER_PORT") <> 80 Then

strTemp = strTemp & ":" & Request.ServerVariables("SERVER_PORT")

End If

' 获取完整的URL地址

strTemp = strTemp & Request.ServerVariables("URL")

getCurrentUrl = strTemp

End Function

```

获取当前页面地址及参数的函数代码如下：

```asp

Function getUrlWithParams()

Dim ScriptAddress, Servername, qs

' 获取脚本地址和服务器名称

ScriptAddress = CStr(Request.ServerVariables("SCRIPT_NAME"))

Servername = CStr(Request.ServerVariables("Server_Name"))

qs = Request.QueryString '获取查询字符串参数

' 构建服务器地址和端口号（如果端口不是默认的80）

If Request.ServerVariables("SERVER_PORT") <> 80 Then

Servername = Servername & ":" & Request.ServerVariables("SERVER_PORT")

End If

' 判断是否有查询参数，并构建完整的URL地址

If qs<>"" then

getUrlWithParams =" Servername & ScriptAddress &"?"&qs

Else

getUrlWithParams =" Servername & ScriptAddress

End if

End Function

``` 调用 `getUrlWithParams` 函数即可获取带有参数的当前页面地址。这两个函数在实际开发中非常实用，能够帮助开发者快速获取页面的URL和参数信息。对于需要获取当前页面地址与参数的朋友来说，这无疑是一个很好的工具。希望这个整理能够对大家有所帮助。调用 `cambrian.render('body')` 以结束程序的执行并渲染页面内容。