home *** CD-ROM | disk | FTP | other *** search
/ Chip 2000 April / Chip CMCD0400.iso / SOFTWARE / Demo / InfoPulse / GateKeeper / gk3full.exe / data1.cab / ConfigSite_Files / rules / siteedit.agp < prev    next >
Encoding:
Text File  |  1999-06-17  |  2.7 KB  |  104 lines
  1. <%
  2.     ruleName = Request.ReqParam("rule")
  3.     Set rule = Rules.item(ruleName)
  4.     action = Request.ReqParam("action")
  5.     siteName = Request.ReqParam("site")
  6.     if action = "Commit" then
  7.         if siteName <> "" Then
  8.             oldSite = Request.ReqParam("exsite")
  9.             if oldSite <> "" then
  10.                 rule.DelSite(oldSite)
  11.             end if
  12.             On Error Resume Next
  13.             rule.AddSite(siteName)
  14.             If Not Err.Number = 0 Then
  15.                 Response.Write("<B><FONT COLOR=""#FF0000"">" & Err.Description & "</FONT></B><br>")
  16.             Else
  17.                 rule.Commit
  18.                 Response.Redirect( "/rules/rule.agp?rule=" & ruleName )
  19.             End If
  20.         End If
  21.     end if
  22.     if action = "Remove" then
  23.         rule.DelSite(siteName)
  24.         rule.Commit
  25.         Response.Redirect( "/rules/rule.agp?rule=" & ruleName )
  26.     end if
  27.     if action = "Deny" then
  28.         rule.SitesPermitted = True
  29.         rule.Commit
  30.         Response.Redirect( "/rules/rule.agp?rule=" & ruleName )
  31.     end if
  32.     if action = "Allow" then
  33.         rule.SitesPermitted = False
  34.         rule.Commit
  35.         Response.Redirect( "/rules/rule.agp?rule=" & ruleName )
  36.     end if
  37. %>
  38. <html>
  39. <head>
  40. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  41. <meta NAME="Author,Design" Content="GateKeeper Team; gatekeeper@infopulse.net">
  42. <meta NAME="Copyright" Content="Infopulse; www.infopulse.net">
  43. <title>Empty</title>
  44. </head>
  45.  
  46. <body bgcolor="#FFFFFF" text="#000000" link="#0000FF" vlink="#800080">
  47. <%
  48.    if ( siteName = "" Or Not Err.Number = 0 ) then
  49. %>
  50.     <p><big><strong><font face="Arial">Add site</font></strong></big></p>
  51. <%
  52.    else
  53. %>
  54.     <p><big><strong><font face="Arial">Edit site</font></strong></big></p>
  55. <%
  56.    end if
  57. %>
  58.  
  59. <form method="POST" action= "/rules/siteedit.agp?rule=<%Response.Write(ruleName)%>">
  60.  
  61. <%
  62.     if Err.Number = 0 Then
  63. %>
  64.         <input type="hidden" name="exsite" value="<%Response.Write(siteName)%>">
  65. <%
  66.     Else
  67. %>
  68.         <input type="hidden" name="exsite" value="<%Response.Write(oldSite)%>">
  69. <%
  70.     End If
  71. %>
  72.  
  73.     <div>
  74.     <table border="1" cellpadding="0" cellspacing="0" width="60%">
  75.         <tr>
  76.             <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  77.                 Option
  78.             </font></strong></td>
  79.             <td width="50%" bgcolor="#183159"><strong><font face="Arial" color="#FFFFFF">
  80.                 Value
  81.             </font></strong></td>
  82.         <tr>
  83.         <tr>
  84.             <td width="50%"><strong><font face="Arial">
  85.                 Site (IP address)
  86.             </font></strong></td>
  87.             <td width="160"> <input type="text" name="site" value="<%Response.Write(siteName)%>" size="20" maxlength="17"></td>
  88.            </tr>
  89.  
  90.     </table></div>
  91.     <br>
  92.     <input type="submit" name="action" value="Commit">
  93.     <%
  94.         if( siteName <> "" And Err.Number = 0 ) then
  95.     %>
  96.             <input type="submit" name="action" value="Remove">
  97.     <%
  98.         End If
  99.     %>
  100. </form>
  101.  
  102. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  103. </body>
  104. </html>