%
if Session("FullView") = false then
%>
<%
dim strHead
dim strTableHeader
dim strRowLeft
dim strRowCenter
dim strRowRight
strHead = "
Server Variables Script"
strTableHeader= "Server Variables
"
strTableHeader=strTableHeader+"Property | "
strTableHeader=strTableHeader+"Value |
"
strRowLeft =""
strRowCenter = " | "
strRowRight = " |
"
Response.Write strMeta & strTableHeader
'Server Level
Response.Write"" & "Server Level" & " |
"
Response.Write strRowLeft & "Server Name: " & strRowCenter & Request.ServerVariables("SERVER_NAME" ) & strRowRight
Response.Write strRowLeft & "Server Address: " & strRowCenter & Request.ServerVariables("LOCAL_ADDR" ) & strRowRight
Response.Write strRowLeft & "Server Port: " & strRowCenter & Request.ServerVariables("SERVER_PORT" ) & strRowRight
Response.Write strRowLeft & "Server Secure Port:" & strRowCenter & Request.ServerVariables("SERVER_PORT_SECURE") & strRowRight
Response.Write strRowLeft & "Server Software: " & strRowCenter & Request.ServerVariables("SERVER_SOFTWARE" ) & strRowRight
Response.Write strRowLeft & "Gateway Interface: " & strRowCenter & Request.ServerVariables("GATEWAY_INTERFACE" ) & strRowRight
Response.Write strRowLeft & "Server Protocol: " & strRowCenter & Request.ServerVariables("SERVER_PROTOCOL" ) & strRowRight
'Connection Level
Response.Write"" & "Connection Level" & " |
"
Response.Write strRowLeft & "HTTP Connection: " & strRowCenter & Request.ServerVariables("HTTP_CONNECTION" ) & strRowRight
Response.Write strRowLeft & "HTTPS: " & strRowCenter & Request.ServerVariables("HTTPS" ) & strRowRight
Response.Write strRowLeft & "Content Length: " & strRowCenter & Request.ServerVariables("CONTENT_LENGTH" ) & strRowRight
Response.Write strRowLeft & "Request Method: " & strRowCenter & Request.ServerVariables("REQUEST_METHOD" ) & strRowRight
'Browser Level
Response.Write"" & "Browser Level" & " |
"
Response.Write strRowLeft & "User Address: " & strRowCenter & Request.ServerVariables("REMOTE_HOST" ) & strRowRight
Response.Write strRowLeft & "HTTP User Agent: " & strRowCenter & Request.ServerVariables("HTTP_USER_AGENT" ) & strRowRight
Response.Write strRowLeft & "Path Translated:" & strRowCenter & Request.ServerVariables("PATH_TRANSLATED" ) & strRowRight
Response.Write strRowLeft & "Application Physical Path:" & strRowCenter & Request.ServerVariables("APPL_PHYSICAL_PATH") & strRowRight
Response.Write "
"
%>
<% else %>
Server Variables: Full List
Property |
Value |
<% for each var in Request.ServerVariables %>
<% =var %> | <% =Request.ServerVariables( var ) %> |
<% next %>
<%
Session("FullView")=false
end if %>