home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 August / CHIP_08_2003.iso / Spesial / proxy / ProxPro / ProxyPro.exe / data1.cab / ConfigSite_Files / services / DhcpNewSubnet.agp < prev    next >
Encoding:
Text File  |  2002-12-09  |  6.2 KB  |  245 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("NewSubnet") = "Cancel" Then
  62.             Response.Redirect("/services/editDHCP.agp")                    
  63.     End If
  64.  
  65.  
  66.     if Request.ReqParam("NewSubnet") = "Edit" Then
  67.         NewSubnet
  68.     End If
  69.     
  70.     if Request.ReqParam("NewSubnet") = "Add" Then
  71.     
  72.         On Error Resume Next    
  73.         Dim Time
  74.         if Request.ReqParam("LeaseDuration") = "Unlimited" Then
  75.             Time=4294967295
  76.         Else
  77.             Dim day,hour,minute
  78.  
  79.             day=Request.ReqParam("Day")
  80.             hour=Request.ReqParam("Hour")
  81.             minute=Request.ReqParam("Minute")
  82.  
  83.             if (day = "") then
  84.                 day =0
  85.             end if
  86.             if (hour ="") then
  87.                 hour=0
  88.             end if
  89.             if (minute ="") then
  90.                 minute = 0
  91.             end if
  92.             
  93.             Time=day*24*3600+hour*3600+minute*60
  94.             
  95.  
  96.         End if
  97.  
  98. '        Response.Write(Request.ReqParam("SubnetMask"))
  99. '        Response.Write(Request.ReqParam("StartIp"))
  100. '        Response.Write(Request.ReqParam("EndIp"))
  101. '        Response.Write(Request.ReqParam("ExcludedAddress"))
  102. '        Response.Write(Time)
  103. '        Response.Write(Request.ReqParam("Name"))
  104.  
  105.  
  106.         if Request.ReqParam("EnableLocal")<>"" then
  107.             ComDhcp.AddNewSubnet Request.ReqParam("SubnetMask"),Request.ReqParam("StartIp"),Request.ReqParam("EndIp"),Request.ReqParam("ExcludedAddress"),Time,Request.ReqParam("Name"),1
  108.         else
  109.             ComDhcp.AddNewSubnet Request.ReqParam("SubnetMask"),Request.ReqParam("StartIp"),Request.ReqParam("EndIp"),Request.ReqParam("ExcludedAddress"),Time,Request.ReqParam("Name"),false
  110.         end if
  111.  
  112.         
  113.         If Not Err.Number = 0 Then 
  114.             ErrLine = Err.Description
  115.         else
  116.             Response.Redirect("/services/editDHCP.agp")                    
  117.         End If
  118.     End If
  119.     
  120.     If Not Err.Number = 0 Then 
  121.         ErrLine = Err.Description
  122.     End If
  123.  
  124. %>
  125.  
  126. <%
  127.     If Not Len(ErrLine) = 0 Then
  128.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  129.     End If
  130. %>
  131.  
  132.  
  133. <%Sub NewSubnet() %>
  134.  
  135. <form method="POST" action= "/services/DhcpNewSubnet.agp">
  136.         
  137.     <table border="1" cellpadding="0" cellspacing="0" width="100%">
  138.  
  139.  
  140.     <tr>
  141.         <td width="20%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  142.              Option
  143.         </td>        
  144.         <td width="20%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  145.              Value
  146.         </td>        
  147.     </tr>
  148.         
  149.         
  150.         <tr>
  151.  
  152.         <td width="30%">Subnet Mask</td>
  153.         <td width="70%">
  154.                 <input type="text" size="55" name="SubnetMask" >
  155.             </td>        
  156.         </tr>
  157.         
  158.         <tr>
  159.  
  160.         <td width="30%">Set as local subnet</td>
  161.         <td width="70%">
  162.                 <input type="checkbox" size="55" name="EnableLocal" >
  163.             </td>        
  164.         </tr>
  165.  
  166.         <tr>
  167.         <td width="30%">Start Ip</td>
  168.         <td width="70%">
  169.             <input type="text" size="55" name="StartIp" >
  170.         </td>        
  171.         </tr>
  172.         
  173.         <tr>
  174.         <td width="30%">End Ip</td>
  175.         <td width="70%">
  176.                 <input type="text" size="55" name="EndIp" >
  177.         </td>        
  178.         </tr>
  179.         <tr>
  180.         
  181.         <tr>
  182.         <td width="30%">Excluded address</td>
  183.         <td width="70%">
  184.                 <TEXTAREA  name="ExcludedAddress" ROWS="5" COLS="47"></TEXTAREA> 
  185.             </td>        
  186.         </tr>
  187.  
  188.         <td width="30%">Name</td>
  189.         <td width="70%">
  190.                 <input type="text" size="55" name="Name" >
  191.             </td>        
  192.         </tr>
  193.         
  194.     </table>
  195.                             <center><H3>Lease Duration</H3></center>
  196.     <table border="1" width="95%">
  197.  
  198.         <tr>
  199.         <td width="10%">
  200.         <center>
  201.                 <input type="radio" size="55" name="LeaseDuration" Value="Unlimited">
  202.         </center>
  203.         </td>        
  204.         <td width="90%">Unlimited</td>
  205.         </tr>
  206.  
  207.         <tr>
  208.         <td width="10%">
  209.         <center>
  210.                 <input type="radio" size="55" name="LeaseDuration" Value="Limited To" CHECKED>
  211.         </center>
  212.         </td>        
  213.         <td width="90%">
  214.             Limited To
  215.             <input type="text" size="4" name="Day" > day(s)
  216.             <input type="text" size="4" name="Hour" > Hour(s)
  217.             <input type="text" size="4" name="Minute" > Minute(s)
  218.         </td>
  219.         </tr>
  220.     
  221.     
  222.     
  223.     </table>
  224.     <p>
  225.     <center>
  226.     <input type="submit" name="NewSubnet" value="Add">
  227.     <input type="submit" name="NewSubnet" value="Cancel">
  228.     </center>
  229.  
  230. </form>
  231. <%
  232. End Sub
  233. %>
  234.  
  235.  
  236.  
  237.     
  238.  
  239.  
  240.  
  241. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  242.  
  243. </body>
  244. </html>
  245.