home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 August / CHIP_08_2003.iso / Spesial / proxy / ProxPro / ProxyPro.exe / data1.cab / ConfigSite_Files / policies / content.agp next >
Encoding:
Text File  |  2002-12-09  |  6.1 KB  |  167 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. <script language="JavaScript">
  14. <!--
  15. function MM_preloadImages() { //v3.0
  16.   var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
  17.     var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
  18.     if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
  19. }
  20.  
  21. function MM_swapImgRestore() { //v3.0
  22.   var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
  23. }
  24.  
  25. function MM_findObj(n, d) { //v4.0
  26.   var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
  27.     d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  28.   if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  29.   for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  30.   if(!x && document.getElementById) x=document.getElementById(n); return x;
  31. }
  32.  
  33. function MM_swapImage() { //v3.0
  34.   var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
  35.    if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
  36. }
  37. //-->
  38. </script>
  39. <html>
  40. <head>
  41. <title>Professional GateKeeper - Infopulse</title>
  42. <!--              -->
  43. <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
  44. <title>MediaFamily - Welcome</title>
  45.  
  46. </head>
  47. <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">
  48.   <tr> 
  49.     <td width="344"><img src="images/1_r1_c2.jpg" width="344" height="70"></td>
  50.     <td width="135"><img src="images/1_r1_c3.jpg" width="135" height="70"></td>
  51.     <td width="100"><a href="hlpPolicies.agp"><img src="images/1_r1_c4.jpg" width="100" height="70"border=0></a></td>
  52.     <td width="1000"> </td>
  53.   </tr>
  54. </table>
  55. <map name="n1_r4_c3Map"> 
  56.   <area shape="rect" coords="492,45,567,76" href="#">
  57. </map>
  58.  
  59. <p><big><strong><font face="Arial">Policies on the HTTP-Configuration engine</font></strong></big></p>
  60. <%
  61.     if Accounts.Groups.count() > 0 Then
  62. %>
  63. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  64.   <tr valign=top>
  65.     <td width="100%" valign=top align=right><a
  66.     href="policyedit.agp?type=User" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('new_user_policy.gif','','../images/new_user_policy01.gif',1)" >
  67.     <img src="../images/new_user_policy.gif" name='new_user_policy.gif' alt="Create new user policy" border=0></a>
  68.     <a href="policyedit.agp?type=Group" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('new_group_policy.gif','','../images/new_group_policy01.gif',1)" >
  69.     <img src="../images/new_group_policy.gif" name='new_group_policy.gif' alt="Create new group policy" border=0></a>
  70.     </td>
  71.   </tr>
  72. </table>
  73. <%
  74. Else
  75. %>
  76. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  77.   <tr valign=top>
  78.     <td width="100%" valign=top align=right>
  79. <a
  80.     href="policyedit.agp?type=User" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('new_user_policy.gif','','../images/new_user_policy01.gif',1)" >
  81.     <img src="../images/new_user_policy.gif" name='new_user_policy.gif' alt="Create new user policy" border=0></a>
  82.   </tr>
  83. </table>
  84. <%
  85. End if
  86. %>
  87. <br>
  88. <div align="center"><center>
  89. <table border="1" cellpadding="0" cellspacing="0" width="100%">
  90.    <tr>
  91.     <td width="50%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  92.         Name
  93.     </font></strong></td>
  94.     <td width="25%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  95.         Type
  96.     </font></strong></td>
  97.     <td width="25%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  98.         Access
  99.     </font></strong></td>
  100.    </tr>
  101.    <%
  102.     for i = 1 to Policies.count
  103.         Set userPol = Policies.item(i)
  104.         
  105.         On Error Resume Next
  106.         Set Users = Accounts.Users
  107.         Set user = Users.item( userPol.Name )
  108.         If Not Err.Number = 0 Then 
  109.             sType = "Group"
  110.         else
  111.             sType = "User"
  112.         End If
  113.         
  114.         link = "<a href=""policyedit.agp?name=" & userPol.Name & "&type=" & sType & """>" & userPol.Name & "</a>"
  115.    %>
  116.    <tr>
  117.     <td width="50%"><font face="Arial">
  118.          
  119.         <%Response.Write(link)%>
  120.     </font></td>
  121.     <td width="25%"><font face="Arial">
  122.         <%Response.Write(sType)%>
  123.     </font></td>
  124.     <td width="25%"><font face="Arial">
  125.          
  126.         <%Response.Write(userPol.Right)%>
  127.     </font></td>
  128.    </tr>
  129.    <%
  130.     next
  131.    %>
  132. </table>
  133. </center></div>
  134. <p>
  135. <%
  136.     if Accounts.Groups.count() > 0 Then
  137. %>
  138. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  139.   <tr valign=top>
  140.     <td width="100%" valign=top align=left><a
  141.     href="policyedit.agp?type=User" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('new_user_policy.gif2','','../images/new_user_policy01.gif',1)" >
  142.     <img src="../images/new_user_policy.gif" name='new_user_policy.gif2' alt="Create new user policy" border=0></a>
  143.     <a href="policyedit.agp?type=Group" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('new_group_policy.gif2','','../images/new_group_policy01.gif',1)" >
  144.     <img src="../images/new_group_policy.gif" name='new_group_policy.gif2' alt="Create new group policy" border=0></a>
  145.     </td>
  146.   </tr>
  147. </table>
  148. <%
  149. Else
  150. %>
  151. <table border="0" cellpadding="0" cellspacing="1" width="100%">
  152.   <tr valign=top>
  153.     <td width="100%" valign=top align=left>
  154. <a
  155.     href="policyedit.agp?type=User" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('new_user_policy.gif2','','../images/new_user_policy01.gif',1)" >
  156.     <img src="../images/new_user_policy.gif" name='new_user_policy.gif2' alt="Create new user policy" border=0></a>
  157.   </tr>
  158. </table>
  159. <%
  160. End if
  161. %>
  162. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  163. </body>
  164. </html>
  165.  
  166.  
  167.