home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 August / CHIP_08_2003.iso / Spesial / proxy / ProxPro / ProxyPro.exe / data1.cab / ConfigSite_Files / rules / siteedit.agp < prev    next >
Encoding:
Text File  |  2002-12-09  |  6.0 KB  |  195 lines
  1. <%
  2.  
  3.     dim szPath
  4.     szPath = "Table"
  5.     SkinTable = SysInfo.GetSkinParameter(szPath)
  6.     szPath = "Font"
  7.     SkinFont = SysInfo.GetSkinParameter(szPath)
  8.     
  9.     ruletype = Request.ReqParam("ruletype")
  10.     ruleName = Request.ReqParam("rule")
  11.     Set rule = Rules.item(ruleName)
  12.     action = Request.ReqParam("action")
  13.     siteName = Request.ReqParam("site")
  14.     if action = "Cancel" Then
  15.         Response.Redirect( "/rules/rule.agp?rule=" & ruleName &"&ruletype=" & ruletype)
  16.    end if
  17.     
  18. if ruletype="site" then    
  19.     if (action = "Commit") or (action="" AND Request.ReqParam("modifysite") = "true") then
  20.         if siteName <> "" Then
  21.             oldSite = Request.ReqParam("exsite")
  22.             if oldSite <> "" then
  23.                 rule.DelSite(oldSite)
  24.             end if
  25.             On Error Resume Next
  26.             rule.AddSite(siteName)
  27.             If Err.Number = 0 Then
  28.                 rule.Commit
  29.                 Response.Redirect( "/rules/rule.agp?rule=" & ruleName &"&ruletype=" & ruletype)
  30.             End If
  31.         End If
  32.     end if
  33.     if action = "Remove" then
  34.         rule.DelSite(siteName)
  35.         rule.Commit
  36.         Response.Redirect( "/rules/rule.agp?rule=" & ruleName &"&ruletype=" & ruletype)
  37.     end if
  38.     if action = "Deny" then
  39.         
  40.         rule.SitesPermitted = True
  41.         rule.Commit
  42.         Response.Redirect( "/rules/rule.agp?rule=" & ruleName &"&ruletype=" & ruletype)
  43.     end if
  44.     if action = "Allow" then
  45.         
  46.         rule.SitesPermitted = False
  47.         rule.Commit
  48.         Response.Redirect( "/rules/rule.agp?rule=" & ruleName &"&ruletype=" & ruletype)
  49.     end if
  50. end if
  51. if ruletype="word" then    
  52.     if (action = "Commit") or (action="" AND Request.ReqParam("modifysite") = "true") then
  53.         if siteName <> "" Then
  54.             oldSite = Request.ReqParam("exsite")
  55.             if oldSite <> "" then
  56.                 rule.DelWord(oldSite)
  57.             end if
  58.             On Error Resume Next
  59.             'Response.Write ("<HR>" & siteName & "<HR>")
  60.             rule.AddWord(siteName)
  61.             'Response.Write ("<HR>" & siteName & "<HR>")
  62.             
  63.             If Err.Number = 0 Then
  64.                 rule.Commit
  65.                 Response.Redirect( "/rules/rule.agp?rule=" & ruleName &"&ruletype=" & ruletype)
  66.             End If
  67.         End If
  68.     end if
  69.     if action = "Remove" then
  70.         rule.DelWord(siteName)
  71.         rule.Commit
  72.         Response.Redirect( "/rules/rule.agp?rule=" & ruleName &"&ruletype=" & ruletype)
  73.     end if
  74. end if
  75. %>
  76. <script language="JavaScript">
  77. <!--
  78. function MM_preloadImages() { //v3.0
  79.   var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  80.     var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
  81.     if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
  82. }
  83.  
  84. function MM_swapImgRestore() { //v3.0
  85.   var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
  86. }
  87.  
  88. function MM_findObj(n, d) { //v4.0
  89.   var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
  90.     d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  91.   if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  92.   for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  93.   if(!x && document.getElementById) x=document.getElementById(n); return x;
  94. }
  95.  
  96. function MM_swapImage() { //v3.0
  97.   var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  98.    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
  99. }
  100. //-->
  101. </script>
  102. <html>
  103. <head>
  104. <title>Professional GateKeeper - Infopulse</title>
  105. <!--              -->
  106. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
  107. <title>MediaFamily - Welcome</title>
  108.  
  109. </head>
  110. <body bgcolor="#FFFFFF" text="#000000" topmargin="0" leftmargin="0" marginwidth="0" marginheight="0" background="../images/backgr_x.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
  111.   <tr> 
  112.     <td width="344"><img src="images/1_r1_c2.jpg" width="344" height="70"></td>
  113.     <td width="135"><img src="images/1_r1_c3.jpg" width="135" height="70"></td>
  114.     <td width="100"><a href="hlpRules.agp"><img src="images/1_r1_c4.jpg" width="100" height="70"border=0></a></td>
  115.     <td width="1000"> </td>
  116.   </tr>
  117. </table>
  118. <map name="n1_r4_c3Map"> 
  119.   <area shape="rect" coords="492,45,567,76" href="#">
  120. </map>
  121. <%
  122.     if (Err.Number <> 0) then
  123.        Response.Write("<B><FONT COLOR=""#FF0000"">" & Err.Description & "</FONT></B><br>")
  124.     end if
  125.  
  126.    if ( siteName = "" Or Not Err.Number = 0 ) then
  127. %>
  128.     <p><big><strong><font face="Arial">Add <%Response.Write(ruletype)%></font></strong></big></p>
  129. <%
  130.    else
  131. %>
  132.     <p><big><strong><font face="Arial">Edit <%Response.Write(ruletype)%></font></strong></big></p>
  133. <%
  134.    end if
  135. %>
  136.  
  137. <form method="POST" action= "/rules/siteedit.agp?rule=<%Response.Write(ruleName)%>&ruletype=<%Response.Write(ruletype)%>">
  138.  
  139. <%
  140.     if Err.Number = 0 Then
  141. %>
  142.         <input type="hidden" name="exsite" value="<%Response.Write(siteName)%>">
  143. <%
  144.     Else
  145. %>
  146.         <input type="hidden" name="exsite" value="<%Response.Write(oldSite)%>">
  147. <%
  148.     End If
  149. %>
  150.  
  151. <input type="hidden" name="modifysite" value="true">
  152.  
  153.     <div>
  154.     <table border="1" cellpadding="0" cellspacing="0" width="80%">
  155.         <tr>
  156.             <td width="40%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  157.                 Option
  158.             </font></strong></td>
  159.             <td width="60%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  160.                 Value
  161.             </font></strong></td>
  162.         <tr>
  163.         <tr>
  164.             <td width="40%"><strong><font face="Arial">
  165.         <%
  166.             if( ruletype <> "word" ) then 
  167.         %>                
  168.                 Site (IP address or <br> URL containing...)
  169.         <%
  170.         Else
  171.         %>
  172.                 Restricted Word
  173.         <%
  174.         End If
  175.         %>
  176.             </font></strong></td>
  177.             <td width="60%"> <input type="text" name="site" value="<%Response.Write(siteName)%>" size="30" maxlength="256"></td>
  178.            </tr>
  179.  
  180.     </table></div>
  181.     <br>
  182.     <input type="submit" name="action" value="Commit">
  183.     <input type="submit" name="action" value="Cancel">
  184.     <%
  185.         if( siteName <> "" And Err.Number = 0 ) then
  186.     %>
  187.             <input type="submit" name="action" value="Remove">
  188.     <%
  189.         End If
  190.     %>
  191. </form>
  192.  
  193. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  194. </body>
  195. </html>