asp中获取当前页面的地址与参数的函数代码
2018-09-06 11:58
复制代码 代码如下:
Function getCurrentUrl()
On Error Resume Next
Dim strTemp
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
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 =
else
getUrlWithParams =
end if
End Function
上一篇：ASP网站防范黑客技巧