home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 August / CHIP_08_2003.iso / Spesial / proxy / ProxPro / ProxyPro.exe / data1.cab / ConfigSite_Files / proxies / curentproxies.agp < prev    next >
Encoding:
Text File  |  2002-12-09  |  7.0 KB  |  225 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="hlpProxies.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">Current proxies</font></strong></big></p>
  60. <div align="center"><center>
  61. <table border="1" cellpadding="0" cellspacing="0" width="100%">
  62.     <tr>
  63.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  64.             Type
  65.         </font></strong></td>
  66.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  67.             Description
  68.         </font></strong></td>
  69.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  70.             Running
  71.         </font></strong></td>
  72.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  73.             Enabled
  74.         </font></strong></td>
  75.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  76.             Log
  77.         </font></strong></td>
  78.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  79.             In
  80.         </font></strong></td>
  81.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  82.             Fwd
  83.         </font></strong></td>
  84.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  85.             Out
  86.         </font></strong></td>
  87.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  88.             OutIP
  89.         </font></strong></td>
  90.         <td align="center" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  91.             Action
  92.         </font></strong></td>
  93.     </tr>
  94. <%
  95.     for i = 1 to Proxies.count
  96.        Set proxy = Proxies.item(i)
  97.             strProps = proxy.GetPropertyNames
  98. %>
  99.     <tr>
  100.         <td align="center"><strong><font face="Arial">
  101.             <%Response.Write(proxy.Type)%>
  102.         </font></strong></td>
  103.         
  104.         <%
  105.             propVal = "-"
  106.             if( InStr(strProps,"Description") > 0 ) then
  107.                 propVal = proxy.GetStringProperty("ProxyDescription")
  108.                 if Len(propVal) = 0 Then
  109.                     propVal = "<b>-</b>"
  110.                 End if
  111.             End if    
  112.         %>
  113.         <td align="center"><font face="Arial">
  114.             <%Response.Write(propVal)%>
  115.         </font></td>
  116.         
  117.         <td align="center"><font face="Arial">
  118.             <%
  119.                 if proxy.Running Then
  120.                     Response.Write("Yes")
  121.                 Else
  122.                     Response.Write("<b><font color=""#ff0000"">No</font></b>")
  123.                 End If
  124.             %>
  125.         </font></td>
  126.         <%
  127.             propVal = "<b>-</b>"
  128.             if( InStr(strProps,"Enabled") > 0 ) then
  129.                 propVal = proxy.GetBoolProperty("Enabled")
  130.                 if propVal Then
  131.                     propVal = "Yes"
  132.                 Else
  133.                     propVal = "No"
  134.                 End if
  135.             End if
  136.         %>
  137.         <td align="center"><font face="Arial">
  138.             <%Response.Write(propVal)%>
  139.         </font></td>
  140.  
  141.         <%
  142.             propVal = "<b>-</b>"
  143.             if( InStr(strProps,"Logging") > 0 ) then
  144.                 propVal = proxy.GetBoolProperty("Logging")
  145.                 if propVal Then
  146.                     propVal = "Yes"
  147.                 Else
  148.                     propVal = "No"
  149.                 End if
  150.             End if    
  151.         %>
  152.         <td align="center"><font face="Arial">
  153.             <%Response.Write(propVal)%>
  154.         </font></td>
  155.  
  156.         <%
  157.             propVal = "<b>-</b>"
  158.             if( InStr(strProps,"Input_Port") > 0 ) then
  159.                 propVal = proxy.GetNumberProperty("Input_Port")
  160.             End if    
  161.         %>
  162.         <td align="center"><font face="Arial">
  163.             <%Response.Write(propVal)%>
  164.         </font></td>
  165.  
  166.         <%
  167.             propVal = "<b>-</b>"
  168.             if( InStr(strProps,"Forwarding_Enabled") > 0 ) then
  169.                 propVal = proxy.GetBoolProperty("Forwarding_Enabled")
  170.                 if propVal Then
  171.                     propVal = "Yes"
  172.                 Else
  173.                     propVal = "No"
  174.                 End if
  175.             End if    
  176.         %>
  177.         <td align="center"><font face="Arial">
  178.             <%Response.Write(propVal)%>
  179.         </font></td>
  180.  
  181.         <%
  182.             propVal = "<b>-</b>"
  183.             if( InStr(strProps,"Output_Port") > 0 ) then
  184.                 propVal = proxy.GetNumberProperty("Output_Port")
  185.                 if propVal = 0 Then
  186.                     propVal = "<b>-</b>"
  187.                 end if
  188.             End if    
  189.         %>
  190.         <td align="center"><font face="Arial">
  191.             <%Response.Write(propVal)%>
  192.         </font></td>
  193.  
  194.         <%
  195.             propVal = "<b>-</b>"
  196.             if( InStr(strProps,"Output_Address") > 0 ) then
  197.                 propVal = proxy.GetStringProperty("Output_Address")
  198.                 if Len(propVal) = 0 Then
  199.                     propVal = "<b>-</b>"
  200.                 End if
  201.             End if    
  202.         %>
  203.         <td align="center"><font face="Arial">
  204.             <%Response.Write(propVal)%>
  205.         </font></td>
  206.  
  207.       <form action="/proxies/editproxy.agp" method="POST">
  208.         <td align="center" nowrap="True">
  209.             <input type="hidden" name="ProxyNo" value="<%Response.Write( i )%>" >
  210.             <input type=submit name="action" value="   Edit   ">
  211.             <input type=submit name="action" value="Delete">
  212.         </td>
  213.       </form>
  214.     </tr>
  215. <%
  216.     next
  217. %>
  218.     </table>
  219. </center></div>
  220. <br>
  221. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  222.  
  223. </body>
  224. </html>
  225.