home *** CD-ROM | disk | FTP | other *** search
/ ftp.americansys.com / 2014.06.ftp.americansys.com.tar / ftp.americansys.com / spamcrusherenterprise.exe / web / serversettings.asp < prev    next >
Text File  |  2004-05-28  |  4KB  |  128 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.     MailServer   = SpamCrusher.GetSettingValue("MailServerName")
  20.     MailUserId   = SpamCrusher.GetSettingValue("MailUserId")
  21.     MailPassword = SpamCrusher.GetSettingValue("MailPassword")
  22.     SpamFolder   = SpamCrusher.GetSettingValue("SpamFolder")
  23.     Domains      = SpamCrusher.GetSettingValue("Domains")
  24.         
  25.     ' parse the domains to make a HTML list
  26.     DomainsHTML = ""
  27.     Start=1
  28.     Pos = InStr(Start, Domains, ":")
  29.  
  30.     do while (Pos > 0)
  31.         Domain = Mid(Domains, Start, Pos-Start)
  32.         DomainsHTML = DomainsHTML + "<option value="""
  33.         Domain = Trim(Domain)
  34.         Domain = Replace(Domain, chr(10), "")
  35.         DomainsHTML = DomainsHTML + Domain
  36.         DomainsHTML = DomainsHTML + """>" + Domain + "</option>"
  37.         Start = Pos+1
  38.         Pos = InStr(Start, Domains, ":")
  39.     Loop
  40. %>
  41.         <table width="100%">
  42.             <tr>
  43.                 <td width="50%">
  44.                     <form action="savesettings.asp" method="post" id="frmMain">
  45.                         <P align="center"><FONT size="5">Server Settings</FONT></P>
  46.                         <FONT size="5">
  47.                             <P>
  48.                             <P align="center">
  49.                                 <TABLE id="Table1" cellSpacing="1" cellPadding="1" width="66%" border="1">
  50.                                     <TR>
  51.                                         <TD align="right">Mail Server Name</TD>
  52.                                         <TD>
  53.                                             <INPUT id="eMailServerName" type="text" name="eMailServerName" value=
  54. <%
  55. Response.Write(MailServer)
  56. %>
  57. >
  58.                                         </TD>
  59.                                     </TR>
  60.                                     <TR>
  61.                                         <TD align="right">Email User Id*</TD>
  62.                                         <TD>
  63.                                             <INPUT id="eEmailUserId" type="text" name="eEmailUserId" value =
  64. <%
  65. Response.Write(MailUserId)
  66. %>
  67.                             
  68.                             >
  69.                                         </TD>
  70.                                     </TR>
  71.                                     <TR>
  72.                                         <TD align="right">Email Password*</TD>
  73.                                         <TD>
  74.                                             <INPUT id="eEmailPwd" name="eEmailPwd" type=password value =
  75. <%
  76. Response.Write(MailPassword)
  77. %>                        
  78.                             >
  79.                                         </TD>
  80.                                     </TR>
  81.                                     <TR>
  82.                                         <TD align="right">The Folder Spam is stored in</TD>
  83.                                         <TD>
  84.                                             <%
  85. Response.Write(SpamFolder)
  86. %>
  87.                                         </TD>
  88.                                     </TR>
  89.                                 </TABLE>
  90.                             <input type="submit" name="btnSubmit" id="btnSubmit" value="Save">
  91.                                         
  92.  
  93.                                 </form>
  94.                                 
  95.                             </P>
  96.                         </FONT>
  97.                         <p align="center">
  98.                             <TD>
  99.                                 <form action="deletedomain.asp" method="post" id="DomainsForm">
  100.                                     <table width="100%" ID="Table2" border=2>
  101.                                         <tr>
  102.                             <TD align="right">Domains</TD>
  103.                             <td>
  104.                                                 <SELECT id="lbDomains" size="4" name="lbDomains">
  105.                                                     <%
  106. Response.Write(DomainsHTML)
  107. %>
  108.                                             </td>
  109.                                             <td align=left>
  110.                                                 <input type="submit" name="btnAdd"    id="btnAdd"    value="Add Domain"><br>
  111.                                                 <input type="submit" name="btnDelete" id="btnDelete" value="Delete Domain">
  112.                             
  113.                                             </td>
  114.                                         </tr>
  115.                                         </SELECT>
  116.                                     </table>
  117.                                 </form>
  118.                             </TD>
  119.                 </td>
  120.             </tr>
  121.         </table>
  122.         </p> *Some email servers require that you login before it will accept mail. If 
  123.         your server does then you need to provide a working user id and password. 
  124.         Otherwise good email will not get forwarded from Spam Crusher to your email 
  125.         server. 
  126.     </body>
  127. </html>
  128.