home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 August / CHIP_08_2003.iso / Spesial / proxy / ProxPro / ProxyPro.exe / data1.cab / ConfigSite_Files / services / LocalAddresses.agp < prev    next >
Encoding:
Text File  |  2002-12-09  |  5.7 KB  |  192 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="hlpServices.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.  
  60. <%
  61.     if Request.ReqParam("action") = "Delete" Then
  62.         Dialer.DeleteLocalAddress 1,Request.ReqParam("mask")
  63.         If Not Err.Number = 0 Then 
  64.             ErrLine = Err.Description
  65.         End If
  66.     End If
  67.  
  68. if Request.ReqParam("action") = "Edit" Then
  69.  
  70.     if(Request.ReqParam("bIp")="TRUE") then
  71.         Response.Redirect("LocalIp.agp?action=Edit&mask=" & Request.ReqParam("mask") )
  72.     else
  73.         Response.Redirect("LocalDomain.agp?action=Edit&mask=" & Request.ReqParam("mask") )
  74.     end if
  75.  
  76. End If
  77.  
  78. %>
  79.     <p><big><strong><font face="Arial">Edit the Dialer service</font></strong></big></p>
  80. <%
  81.     If Not Len(ErrLine) = 0 Then
  82.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  83.     End If
  84. %>
  85.  
  86.  
  87.  
  88. <p><big><strong><font face="Arial">IP Address Masks</font></strong></big></p>
  89.  
  90.  
  91.  
  92. <table border="1" cellpadding="0" cellspacing="0" width="100%">
  93. <tr>
  94.     <td bgcolor="<%Response.Write(SkinTable)%>" NOWRAP><strong><font face="Arial" color="<%Response.Write(SkinFont)%>"> Mask </font></strong></td>
  95.     <td bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>"> Action </font></strong></td>
  96. </tr>
  97.  
  98. <tr>
  99.     
  100.     <%
  101.     FirstIp=""
  102.     Dialer.InitLocalIMask
  103.     FirstIp = Dialer.GetNextLocalIp 
  104.     while(Len(FirstIp))
  105.     %>
  106.     <tr>
  107.         <td width="80%"><strong><font face="Arial">
  108.         <%
  109.             Response.Write(FirstIp)
  110.         %>
  111.         </font></strong></td>
  112.         <form method="POST" action= "LocalAddresses.agp">
  113.         <td width="20%">
  114.             <input type="hidden" name="mask" value="<%Response.Write(FirstIp)%>" >
  115.             <input type="hidden" name="bIp" value="TRUE" >
  116.             <input type="submit" name="action" value="Edit">
  117.             <input type="submit" name="action" value="Delete">
  118.         </td>        
  119.         </form>
  120.     </tr>
  121.     <%
  122.     FirstIp=Dialer.GetNextLocalIp 
  123.     wend
  124.     %>    
  125.  
  126. </table>
  127.  
  128. <p><big><strong><font face="Arial">Domain Name Masks</font></strong></big></p>
  129.  
  130.  
  131. <table border="1" cellpadding="0" cellspacing="0" width="100%">
  132. <tr>
  133.     <td bgcolor="<%Response.Write(SkinTable)%>" NOWRAP><strong><font face="Arial" color="<%Response.Write(SkinFont)%>"> Mask </font></strong></td>
  134.     <td bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>"> Action </font></strong></td>
  135. </tr>
  136.  
  137. <tr>
  138.     
  139.     <%
  140.     FirstIp=""
  141.     Dialer.InitLocalIMask
  142.     FirstIp = Dialer.GetNextLocalDomain
  143.     while(Len(FirstIp))
  144.     %>
  145.  
  146.     <tr>
  147.         <td width="80%"><strong><font face="Arial">
  148.         
  149.         <%
  150.             Response.Write(FirstIp)
  151.         %>
  152.         </font></strong></td>
  153.         <form method="POST" action= "LocalAddresses.agp">
  154.         <td width="20%">
  155.             <input type="hidden" name="mask" value="<%Response.Write(FirstIp)%>" >
  156.             <input type="hidden" name="bIp" value="FALSE" >
  157.             <input type="submit" name="action" value="Edit">
  158.             <input type="submit" name="action" value="Delete">
  159.         </td>        
  160.         </form>
  161.     </tr>
  162.  
  163.     <%
  164.     FirstIp=Dialer.GetNextLocalDomain
  165.     wend
  166.     %>    
  167.  
  168. </table>
  169.  
  170.  
  171.  
  172. </div>
  173. <br>
  174. <H4>
  175. <font face="Arial">
  176. <a
  177.     href="LocalIp.agp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('add_loc_ip_msk.gif','','../images/add_loc_ip_msk01.gif',1)" >
  178.     <img src="../images/add_loc_ip_msk.gif" name='add_loc_ip_msk.gif' alt="Add new local IP mask" border=0></a>
  179.  
  180. <a
  181.     href="LocalDomain.agp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('add_domain-name.gif','','../images/add_domain-name01.gif',1)" >
  182.     <img src="../images/add_domain-name.gif" name='add_domain-name.gif' alt="Add local domain-name mask" border=0></a>
  183.  
  184. </font>
  185. </H4>
  186. <br>
  187. <br>
  188. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  189. <br>
  190. </body>
  191. </html>
  192.