home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 August / CHIP_08_2003.iso / Spesial / proxy / ProxPro / ProxyPro.exe / data1.cab / ConfigSite_Files / rules / GuestAccess.agp < prev    next >
Encoding:
Text File  |  2002-12-09  |  4.8 KB  |  142 lines
  1. <% 
  2.     path = SysInfo.SkinPath
  3.     dim szPath
  4.     szPath = "Table"
  5.     SkinTable = SysInfo.GetSkinParameter(szPath)
  6.     szPath = "Font"
  7.     SkinFont = SysInfo.GetSkinParameter(szPath)
  8.     szPath = "Link"
  9.     SkinLink = SysInfo.GetSkinParameter(szPath)
  10.     szPath = "VLink"
  11.     SkinVLink= SysInfo.GetSkinParameter(szPath)
  12. %>
  13. <%
  14.     command = Request.ReqParam("action")
  15.     ErrLine = Request.ReqParam("ErrLine")
  16.     if command = "Allow" Then 
  17.         Accounts.GuestAccessType = False
  18.         Response.Redirect("/Rules/GuestAccess.agp")
  19.     end if
  20.  
  21.     if command = "Deny" Then 
  22.         Accounts.GuestAccessType = True
  23.         Response.Redirect("/Rules/GuestAccess.agp")
  24.     end if
  25. %>
  26. <script language="JavaScript">
  27. <!--
  28. function MM_preloadImages() { //v3.0
  29.   var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  30.     var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
  31.     if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
  32. }
  33.  
  34. function MM_swapImgRestore() { //v3.0
  35.   var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
  36. }
  37.  
  38. function MM_findObj(n, d) { //v4.0
  39.   var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
  40.     d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  41.   if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  42.   for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  43.   if(!x && document.getElementById) x=document.getElementById(n); return x;
  44. }
  45.  
  46. function MM_swapImage() { //v3.0
  47.   var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  48.    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
  49. }
  50. //-->
  51. </script>
  52. <html>
  53. <head>
  54. <title>Professional GateKeeper - Infopulse</title>
  55. <!--              -->
  56. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
  57. <title>MediaFamily - Welcome</title>
  58.  
  59. </head>
  60. <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">
  61.   <tr> 
  62.     <td width="344"><img src="images/1_r1_c2.jpg" width="344" height="70"></td>
  63.     <td width="135"><img src="images/1_r1_c3.jpg" width="135" height="70"></td>
  64.     <td width="100"><a href="hlpRules.agp"><img src="images/1_r1_c4.jpg" width="100" height="70"border=0></a></td>
  65.     <td width="1000"> </td>
  66.   </tr>
  67. </table>
  68. <map name="n1_r4_c3Map"> 
  69.   <area shape="rect" coords="492,45,567,76" href="#">
  70. </map>
  71. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  72.   <tr valign=top>
  73.     <td width="100%" valign=top align=right>
  74. <a
  75.     href="addguestfilter.agp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('add_ip_addrs_filt.gif','','../images/add_ip_addrs_filt01.gif',1)" >
  76.     <img src="../images/add_ip_addrs_filt.gif" name='add_ip_addrs_filt.gif' alt="Create new IP address filter" border=0></a>
  77.     </td>
  78.   </tr>
  79. </table>
  80.  
  81. <p><big><strong><font face="Arial">
  82.         Restrictions for user Guest
  83. </font></strong></big></p>
  84. <%
  85.     If Not Len(ErrLine) = 0 Then
  86.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br><br>")
  87.     End If
  88. %>
  89.    <div>
  90.     <table border="1" cellpadding="0" cellspacing="0" width="100%">
  91.    <tr>
  92.         <%
  93.             if Accounts.GuestAccessType then
  94.                 msg = "DENY Guest access from all IP addresses, except these"
  95.             else
  96.                 msg = "ALLOW Guest access from all IP addresses, except these"
  97.             end if
  98.         %>
  99.  
  100.         <td width="80%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  101.             <%Response.Write(msg)%>
  102.         </font></strong></td>
  103.         <td align="center" width="20%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  104.             Action
  105.         </font></strong></td>
  106.    </tr>
  107.     <%Response.Write(Accounts.GuestMaskList)%>
  108.    </table></div>
  109. <br>
  110. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  111.   <tr valign=top>
  112.     <td width="100%" valign=top align=left><a
  113.     href="addguestfilter.agp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('add_ip_addrs_filt2.gif','','../images/add_ip_addrs_filt01.gif',1)" >
  114.     <img src="../images/add_ip_addrs_filt.gif" name='add_ip_addrs_filt2.gif' alt="Create new IP address filter" border=0></a>
  115.  
  116.     </td>
  117.   </tr>
  118. </table>
  119. <br>
  120. <form method="POST" action= "GuestAccess.agp">
  121.     <font face="Arial">
  122.     Press this button in order to 
  123.     <%
  124.         if Accounts.GuestAccessType then
  125.     %>
  126.             <input type="submit" name="action" value="Allow">
  127.     <%
  128.         else
  129.     %>
  130.             <input type="submit" name="action" value="Deny">
  131.     <%
  132.         end if
  133.     %>
  134.     Guest access from all IP adresses except those listed above.</font>
  135. </form>
  136.  
  137.  
  138. <br>
  139. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  140. </body>
  141. </html>
  142.