|
Displaying Source Code(s)
|
|
List of Server Variables
--------------------------------------------------------------------------------
Description : Each server variable in a function
<SCRIPT LANGUAGE="VBScript" RUNAT=SERVER>
' ========================================
' _asp: functions based on ASP objects
'
' requires: <none>
'
' ========================================
Function ServerVariable(avar)
Dim sv
sv = UCase(avar)
ServerVariable = Request.ServerVariables(sv)
End Function
Function LServerVariable(avar)
LServerVariable = LCase(ServerVariable(avar))
End Function
Function UServerVariable(avar)
UServerVariable = UCase(ServerVariable(avar))
End Function
Function HTTPUserAgent
HTTPUserAgent = UServerVariable("HTTP_USER_AGENT")
End Function
Function HTTPRemoteHost
HTTPRemoteHost = LServerVariable("REMOTE_HOST")
End Function
Function HTTPAcceptLanguage
HTTPAcceptLanguage = LServerVariable("HTTP_ACCEPT_LANGUAGE")
End Function
Function HTTPMethod
HTTPMethod = UServerVariable("REQUEST_METHOD")
End Function
Function HTTPURL
HTTPURL = ServerVariable("URL")
End Function
Function HTTPQueryString
HTTPQueryString = ServerVariable("QUERY_STRING")
End Function
Function URLEncode(value)
URLEncode = Server.URLEncode(value)
End Function
</SCRIPT> |
|
|
123
Eng