home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / serverstatus.asp < prev    next >
Text File  |  2004-05-28  |  2KB  |  70 lines
  1. <html>
  2.     <head>
  3.         <title>Spam Crusher - Server Status</title>
  4.         <meta http-equiv="Content-Language" content="en-us">
  5.         <meta content="Microsoft FrontPage 5.0" name="GENERATOR">
  6.         <meta content="FrontPage.Editor.Document" name="ProgId">
  7.         <meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
  8.     </head>
  9.     <body>
  10.         <script language="VBScript" RUNAT="Server">
  11.         </script>
  12. <!--#include FILE="header.asp"-->
  13. <!--#include FILE="timeout.asp"-->
  14.  
  15. <%
  16.     Set SpamCrusher = Server.CreateObject("SpamCrusherEnterprise.SpamCrusherEnte.1")
  17.     SpamCrusher.SetCurrentUser(Session("UserId"))
  18.     
  19.     ControlCmd = Request.QueryString("Control")
  20.     if (ControlCmd="Start") then
  21.         SpamCrusher.StartSpamCrusher()
  22.     Elseif (ControlCmd="Stop") then
  23.         SpamCrusher.StopSpamCrusher()
  24.     Elseif (ControlCmd="Restart") then
  25.         SpamCrusher.StopSpamCrusher()
  26.         SpamCrusher.StartSpamCrusher()
  27.     End If
  28.     
  29.     
  30.     Waiting = SpamCrusher.GetSettingValue("Waiting")
  31.     Processing = SpamCrusher.GetSettingValue("Processing")
  32.     Status = SpamCrusher.GetServerStatus()
  33. %>
  34.         <P align="center"><FONT size="5">Server Status</FONT></P>
  35.         <FONT size="5">
  36.             <P>
  37.             <P align="center">
  38.                 <TABLE id="Table1" cellSpacing="1" cellPadding="1" width="33%" border="1">
  39.                     <TR>
  40.                         <TD>Spam Crusher Status</TD>
  41.                         <TD>
  42.                             <%
  43. Response.Write(Status)
  44. %>
  45.                         </TD>
  46.                     </TR>
  47.                     <TR>
  48.                         <TD>Conversations Waiting</TD>
  49.                         <TD>
  50.                             <%
  51. Response.Write(Waiting)
  52. %>
  53.                         </TD>
  54.                     </TR>
  55.                     <TR>
  56.                         <TD>Conversations Processing</TD>
  57.                         <TD>
  58.                             <%
  59. Response.Write(Processing)
  60. %>
  61.                         </TD>
  62.                     </TR>
  63.                 </TABLE>
  64.             </P>
  65.             <P></P>
  66.         </FONT>
  67.         <P> </P>
  68.     </body>
  69. </html>
  70.