xcdiag.asp

这是ASP使用的经典例子,非常适合于学习使用

<%@ LANGUAGE = VBScript %>
<% 'Copyright 2000 Xcent, Inc. www.xcent.com %>
<FONT SIZE=""6""><B>XcDiag</B></FONT><BR>
<FONT SIZE="2"><B>Release 1.35</B><BR><HR>
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%"><TR><TD VALIGN="TOP"><SMALL>
<B>ServerName:</B><% = Request.ServerVariables("SERVER_NAME") %><BR>
<B>ScriptName:</B><% = Request.ServerVariables("SCRIPT_NAME") %><BR>
<B>ServerProtocol:</B><% = Request.ServerVariables("SERVER_PROTOCOL") %><BR>
<B>PathInfo:</B><% = Request.ServerVariables("PATH_INFO") %><BR>
<B>PathTranslated:</B><% = Request.ServerVariables("PATH_TRANSLATED") %><BR>
<B>HTTP_REFERER:</B><% = Request.ServerVariables("HTTP_REFERER") %><BR>
</SMALL></TD><TD VALIGN="TOP">
<FONT SIZE=""4""><B>Script Engine</B></FONT><BR>
<SMALL><B>Type: </B><% = ScriptEngine %><BR>
<B>Version: </B><%  =ScriptEngineMajorVersion() %>.<% =ScriptEngineMinorVersion() %><BR>
<B>Build: </B><% =ScriptEngineBuildVersion() %><BR>
</SMALL>
</TD></TR></TABLE>
<HR>
<FONT SIZE=""4""><B>CDONTS Object</B></FONT><FONT SIZE=""2"">
<% Err.Clear
   On Error Resume Next
   Set objCDONTS = Server.CreateObject("CDONTS.Session")
   If Err.Number <> 0 Then
      Response.Write("<B>Not Installed</B>&版bsp;&nbsp;")
   Else
      Response.Write("<B>Version: </B>" & objCDONTS.Version & " Installed&版bsp;&nbsp;")
   End If
%>
<FONT SIZE="2">To test CDONTS, run <A HREF="XcTestCdonts.asp">XcTestCdonts.asp</A></FONT><BR>
<HR>
<FONT SIZE=""4""><B>ADO DB Object</B></FONT><FONT SIZE=""2"">
<% Err.Clear
   On Error Resume Next
   Set objConn = Server.CreateObject("ADODB.Connection")
   If Err.Number <> 0 Then
      Response.Write("ADODB.Connection object <B>not installed.</B>")
   Else
      Response.Write("<B>Version: </B>" & objConn.Version & "<BR>")
   End If
%>
<HR>
<FONT SIZE=""4""><B>File System Object</B></FONT><FONT SIZE=""2"">
<% Err.Clear
   On Error Resume Next
   Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
   If Err.Number <> 0 Then
      Response.Write("Not Installed")
   Else
      Response.Write("Installed")
   End If
%>
<HR>
<FONT SIZE=""4""><B>ASPMail Object</B></FONT><FONT SIZE=""2"">
<% Err.Clear
   On Error Resume Next
   Set objASPMail = Server.CreateObject("SMTPsvg.Mailer")
   If Err.Number <> 0 Then
      Response.Write("Not Installed")
   Else
      Response.Write("Installed Version " & objASPMail.Version )
      Response.Write("<BR><SMALL>Expires On:" & objASPMail.Expires & "</SMALL>" )
   End If
   Response.Write("<BR><FONT SIZE=""2"">For more information, see <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A></FONT>&nbsp;&nbsp;")
%>
<FONT SIZE="2">To test ASPMail, run <A HREF="XcTestASPMail.asp">XcTestASPMail.asp</A></FONT><BR>
<HR>
<FONT SIZE=""4""><B>ASPImage Object</B></FONT><FONT SIZE=""2"">
<% Err.Clear
   On Error Resume Next
   Set objASPImage = Server.CreateObject("AspImage.Image")
   If Err.Number <> 0 Then
      Response.Write("Not Installed")
   Else
      Response.Write("Installed Version " & objASPImage.Version )
      Response.Write("<BR><SMALL>Expires On:" & objASPImage.Expires & "</SMALL>")      
   End If
   Response.Write("<BR><FONT SIZE=""2"">For more information, see <A HREF=""http://www.serverobjects.com"" TARGET=""RESOURCE WINDOW"">www.serverobjects.com</A></FONT>")
%>
<HR>
<FONT SIZE=""4""><B>ASPUpload Object</B></FONT><FONT SIZE=""2"">
<% Err.Clear
   On Error Resume Next
   Set objASPUpload = Server.CreateObject("Persits.Upload.1")
   If Err.Number <> 0 Then
      Response.Write("Not Installed")
   Else
      Response.Write("Installed ")
   End If
   Response.Write("<BR><FONT SIZE=""2"">For more information, see <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A></FONT>")
%>
<HR>
<FONT SIZE=""4""><B>ASPEmail Object</B></FONT><FONT SIZE=""2"">
<% Err.Clear
   On Error Resume Next
   Set objASPEmail = Server.CreateObject("Persits.MailSender")
   If Err.Number <> 0 Then
      Response.Write("Not Installed")
   Else
      Response.Write("Installed ")
      Response.Write("<BR><SMALL>Expires On:" & objASPEmail.Expires & "</SMALL>")      
   End If
   Response.Write("<BR><FONT SIZE=""2"">For more information, see <A HREF=""http://www.persits.com"" TARGET=""RESOURCE WINDOW"">www.persits.com</A></FONT>&nbsp;&nbsp;")
%>
<FONT SIZE="2">To test ASPEmail, run <A HREF="XcTestASPEmail.asp">XcTestASPEmail.asp</A></FONT><BR>
<HR>
<FONT SIZE=""4""><B>JMail Object</B></FONT><FONT SIZE=""2"">
<% Err.Clear
   On Error Resume Next
   Set objJMail = Server.CreateObject("JMail.SMTPMail")
   If Err.Number <> 0 Then
      Response.Write("Not Installed")
   Else
      Response.Write("Installed ")
   End If
   Response.Write("<BR><FONT SIZE=""2"">For more information, see <A HREF=""http://www.dimac.net"" TARGET=""RESOURCE WINDOW"">www.dimac.net</A></FONT>&nbsp;&nbsp;")
%>
<FONT SIZE="2">To test JMail, run <A HREF="XcTestJMail.asp">XcTestJMail.asp</A></FONT><BR>
<HR>
<FONT SIZE=""4""><B>Bamboo.SMTP Object</B></FONT><FONT SIZE=""2"">
<% Err.Clear
   On Error Resume Next
   Set objBamboo = Server.CreateObject("Bamboo.SMTP")
   If Err.Number <> 0 Then
      Response.Write("Not Installed")
   Else
      Response.Write("Installed ")
   End If
   Response.Write("&nbsp;&nbsp;")
%>
</FONT>
<FONT SIZE="2">To test BambooSMTP, run <A HREF="XcTestBambooSMTP.asp">XcTestBambooSMTP.asp</A></FONT><BR>
<HR>
<FONT SIZE=""4""><B>DateTime Handling</B></FONT><FONT SIZE=""2"">
<%
   On Error Resume Next
   vRunDate = Now
   sRunDate = Request.QueryString("DATE")
   If Len(Trim(sRunDate)) = 0 Then
      sRunDate = Request.Form("DATE")
   End If
   Response.Write("<FONT SIZE=""2"">")
   If IsDate(sRunDate) Then
      vRunDate = CDate(sRunDate)
      Response.Write("<BR><FONT SIZE=""2"">RunDate:" & sRunDate)
   Else
      Response.Write("<BR>RunDate: Now")
   End If
   Response.Write("<BR>RunDate : " & vRunDate )
   Response.Write("<BR>CDate(RunDate) : " & CDate(vRunDate) )
   Response.Write("<BR>CDate("" & RunDate) : " & CDate("" & vRunDate) )
%>
</FONT>


<BR><FONT SIZE="1"><EM>Transmitted: <% = Now %><BR></EM></FONT>
<FONT SIZE="2"><CENTER><A HREF="http://www.xcent.com">Copyright 2000 Xcent, Inc. All rights reserved.</A></CENTER></FONT>