Source Code for w3info.asp
COLOR LEGEND
| | Server Side Script |
| | Client Side Script |
| | Hyperlink |
| | Include |
| | Frames |
| | Comments |
| | Object Code Link |
| | Standard HTML and Text |
<%@ LANGUAGE="VBSCRIPT" %>
<HTML>
<HEAD>
<TITLE>Querying Web server information</TITLE>
</HEAD>
<BODY BGCOLOR=#ffffff leftmargin=20 topmargin=20>
<%
If (0 = Request.ServerVariables("CONTENT_LENGTH")) Then
%>
<FORM action="<%=Request.ServerVariables("SCRIPT_NAME")%>" method="post">
Type in the target server to be queried
<INPUT type="text" NAME="tserver" SIZE=40 VALUE="www.softwing.com">
</FORM>
<P>
Enter the target web server in the above text box (please do NOT include <B>http://</B> or any document names,
just the plain server name - for example <B>www.softwing.com</B> or an IP address like <B>209.8.75.215</B>.
<%
Else
On Error Resume Next
Set theobj = Server.CreateObject("w3info.w3info.1")
theobj.ServerURL = Trim(Request.Form("tserver"))
theobj.QueryServer
If err.number <> 0 Then
Response.Write theobj.ErrorInfo
Else
Response.Write "<H2>Server information:</H2><PRE>"
Response.Write "Server software: " & theobj.ServerSoftware & vbCRLF
Response.Write "Base Content Location: " & theobj.ContentLocation & vbCRLF
Response.Write "HTTP Version of Server: " & theobj.HTTPVer & vbCRLF
Response.Write "Request Time: " & theobj.CurrentServerTime & vbCRLF
Response.Write "<PRE>"
End If
End If
%>
</BODY>
</HTML>