The function code for obtaining the address and parameters of the current page in asp is often needed. It is specially organized for the convenience of friends who need it. Copy the code code as follows:
Function getCurrentUrl()
On Error Resume Next
Dim strTemp
If LCase(Request.ServerVariables(HTTPS)) = off Then
strTemp = http://
Else
strTemp = https://
End If
strTemp = strTemp & Request.ServerVariables(SERVER_NAME)
If Request.ServerVariables(SERVER_PORT) <> 80 Then
strTemp = strTemp & : & Request.ServerVariables(SERVER_PORT)
end if
strTemp = strTemp & Request.ServerVariables(URL)
getCurrentUrl = strTemp
End Function
Function getUrlWithParams()
Dim ScriptAddress,Servername,qs
ScriptAddress = CStr(Request.ServerVariables(SCRIPT_NAME))
Servername = CStr(Request.ServerVariables(Server_Name))
qs=Request.QueryString
If Request.ServerVariables(SERVER_PORT) <> 80 Then
Servername = Servername & : & Request.ServerVariables(SERVER_PORT)
end if
if qs<> then
getUrlWithParams =http://& Servername & ScriptAddress &?&qs
else
getUrlWithParams =http://& Servername & ScriptAddress
end if
End Function