<%@ language=vbscript%>
<HTML>
<HEAD>
<TITLE>ServerInfo.asp</TITLE>
<STYLE>
BODY
{ font-family:arial, helvetica, "sans-serif"; font-size:12px; }
TABLE
{ font-family:arial, helvetica, "sans-serif";
font-size:12px;
border-width:1px;
border-collapse:collapse;
}
TD
{ font-family:arial, helvetica, "sans-serif";
font-size:12px;
border-width:thin;
border-style:groove;
border-collapse:collapse;
padding-left:4px;
padding-right:4px;
padding-top:3px;
vertical-align:top;
}
</STYLE>
</HEAD>
<body bgcolor="#FFFFFF">
<TABLE>
<SCRIPT>
document.write("<TR><TD>Cookies Enabled</TD><TD><b>" + window.navigator.cookieEnabled + "</b></TD></TR>");
</SCRIPT>
</TABLE>
<script language=jscript runat=server>
response.write("<TABLE>");
response.write("<TR><TD>JScript Server Scripting Engine</TD><TD><b>" + ScriptEngine() + "</b></TD></TR>");
response.write("<TR><TD>JScript buildversion</TD><TD><b>" + ScriptEngineBuildVersion() + "</b></TD></TR>");
response.write("<TR><TD>JScript majorversion</TD><TD><b>" + ScriptEngineMajorVersion() + "</b></TD></TR>");
response.write("<TR><TD>JScript minorversion</TD><TD><b>" + ScriptEngineMinorVersion() + "</b></TD></TR>");
response.write("</TABLE>");
</script>
<%
Function OutputServerVariable(varName)
Dim varResult
response.write("<TR><TD>")
response.write(varName)
response.write("</TD><TD>")
varResult = request.servervariables(varName)
response.write(varResult)
'if(varResult = nul) then
' response.write("(NULL)")
'end if
response.write("</TD></TR>" & vbcrlf)
End Function
response.write("<TABLE>")
response.write "<TR><TD>ASP Server Script buildversion</TD><TD><b>" & scriptenginebuildversion() & "</b></TD></TR>" & vbcrlf
response.write "<TR><TD>ASP Server Script majorversion</TD><TD><b>" & scriptenginemajorversion() & "</b></TD></TR>" & vbcrlf
response.write "<TR><TD>ASP Server Script minorversion</TD><TD><b>" & scriptengineminorversion() & "</b></TD></TR>" & vbcrlf
set tempconn=server.createobject("adodb.connection")
response.write "<TR><TD>ado version</TD><TD><b>" & vbcrlf
response.write tempconn.version & "</b></TD></TR>" & vbcrlf
set tempconn=nothing
serversoftware=request.servervariables("server_software")
response.write "<TR><TD>server software</TD><TD><b>" & vbcrlf
response.write serversoftware & "</b></TD></TR>" & vbcrlf
Response.Write "<TR><TD>Script Timeout</TD><TD><b>" & Server.ScriptTimeout & " seconds</b></TD></TR>" & vbcrlf
Response.Write "<TR><TD>Session Timeout</TD><TD><b>" & Session.Timeout & " minutes</b></TD></TR>" & vbcrlf
OutputServerVariable("APPL_MD_PATH")
OutputServerVariable("APPL_PHYSICAL_PATH")
OutputServerVariable("AUTH_TYPE")
OutputServerVariable("AUTH_PASSWORD")
OutputServerVariable("AUTH_USER")
OutputServerVariable("CERT_FLAGS")
OutputServerVariable("CERT_ISSUER")
OutputServerVariable("CERT_KEYSIZE")
OutputServerVariable("CERT_SECRETKEYSIZE")
OutputServerVariable("CERT_SERIALNUMBER")
OutputServerVariable("CERT_SERVER_ISSUER")
OutputServerVariable("CERT_SERVER_SUBJECT")
OutputServerVariable("CERT_SUBJECT")
OutputServerVariable("CONTENT_LENGTH")
OutputServerVariable("CONTENT_TYPE")
OutputServerVariable("DATE_GMT")
OutputServerVariable("DATE_LOCAL")
OutputServerVariable("DOCUMENT_NAME")
OutputServerVariable("DOCUMENT_URI")
OutputServerVariable("GATEWAY_INTERFACE")
OutputServerVariable("HTTP_ACCEPT")
OutputServerVariable("HTTP_ACCEPT_LANGUAGE")
OutputServerVariable("HTTP_ACCEPT_ENCODING")
OutputServerVariable("HTTP_CONNECTION")
OutputServerVariable("HTTP_COOKIE")
OutputServerVariable("HTTP_HOST")
OutputServerVariable("HTTP_REFERER")
OutputServerVariable("HTTP_USER_AGENT")
OutputServerVariable("HTTPS")
OutputServerVariable("HTTPS_KEYSIZE")
OutputServerVariable("HTTPS_SECRETKEYSIZE")
OutputServerVariable("HTTPS_SERVER_ISSUER")
OutputServerVariable("HTTPS_SERVER_SUBJECT")
OutputServerVariable("INSTANCE_ID")
OutputServerVariable("INSTANCE_META_PATH")
OutputServerVariable("LOCAL_ADDR")
OutputServerVariable("LAST_MODIFIED")
OutputServerVariable("LOGON_USER")
OutputServerVariable("PATH_INFO")
OutputServerVariable("PATH_TRANSLATED")
OutputServerVariable("QUERY_STRING")
OutputServerVariable("QUERY_STRING_UNESCAPED")
OutputServerVariable("REMOTE_ADDR")
OutputServerVariable("REMOTE_HOST")
OutputServerVariable("REMOTE_PORT")
OutputServerVariable("REMOTE_IDENT")
OutputServerVariable("REMOTE_USER")
OutputServerVariable("REQUEST_METHOD")
OutputServerVariable("SCRIPT_NAME")
OutputServerVariable("SERVER_NAME")
OutputServerVariable("SERVER_PORT")
OutputServerVariable("SERVER_PORT_SECURE")
OutputServerVariable("SERVER_PROTOCOL")
OutputServerVariable("SERVER_SOFTWARE")
OutputServerVariable("UNMAPPED_REMOTE_USER")
OutputServerVariable("URL")
OutputServerVariable("ALL_HTTP")
OutputServerVariable("ALL_RAW")
Response.Write ("<TR><TD>ASP Session ID</TD><TD>" & Session.SessionID & "</TD></TD>")
response.write("</TABLE>") & vbcrlf
%>
Load <A href="ServerInfo.asp">ServerInfo.asp</A> again.<BR>
<COMMENT>The text below may not be removed</COMMENT>
Copyright © 2004, <A href="http://www.spectrum-research.com">Spectrum Research Inc.</A>, All Rights Reserved.<BR>
Written by Alfred J. Heyman. May not be sold or included in a commercial product without written permission.
</BODY>
</HTML>