home *** CD-ROM | disk | FTP | other *** search
/ Chip 2003 August / CHIP_08_2003.iso / Spesial / proxy / ProxPro / ProxyPro.exe / data1.cab / ConfigSite_Files / services / AdvanceSubnet.agp next >
Encoding:
Text File  |  2002-12-09  |  7.2 KB  |  213 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. <p><big><strong><font face="Arial">DHCP options for <br><%Response.Write(Request.ReqParam("identifier"))%></font></strong></big></p>
  60.  
  61.  
  62. <%
  63.     if Request.ReqParam("action") = "Commit" Then
  64.     
  65.         On Error Resume Next
  66.         ComDhcp.DhcpOption (Request.ReqParam("identifier"),-1) ="refresh"
  67.         Dim count 
  68.         count =1
  69.         
  70.         while (count <> 60 )
  71.             count=count+1
  72.     
  73.         if Request.ReqParam(count) = "ON" then
  74.             ComDhcp.DhcpOption (Request.ReqParam("identifier"),count) =Request.ReqParam ( count+100 )
  75.         end if
  76.  
  77.         wend
  78.                 
  79.         If Err.Number = 0 Then 
  80.              Response.Redirect("/services/editdhcp.agp")
  81.             
  82.         End If
  83.  
  84.     End if
  85.  
  86. %>
  87.  
  88. <%
  89.     If Not Len(ErrLine) = 0 Then
  90.         Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
  91.     End If
  92. %>
  93.  
  94.  
  95. <%    Dim identifier    
  96.     identifier    =    Request.ReqParam("identifier")
  97.     Dim ArrayProp(66)
  98.             ArrayProp(1)="" 
  99.             ArrayProp(2)="2. Time Offset" 
  100.             ArrayProp(3)="3. Router" 
  101.             ArrayProp(4)="4. Time Server" 
  102.             ArrayProp(5)="5. Name Server" 
  103.             ArrayProp(6)="6. Domain Name Server" 
  104.             ArrayProp(7)="7. Log Server" 
  105.             ArrayProp(8)="8. Cookie Server" 
  106.             ArrayProp(9)="9. LPR Server" 
  107.             ArrayProp(10)="10. Impress Server" 
  108.             ArrayProp(11)="11. Resource Location Server" 
  109.             ArrayProp(12)="12. Host name" 
  110.             ArrayProp(13)="13. Boot File Size" 
  111.             ArrayProp(14)="14. Merit Dump File" 
  112.             ArrayProp(15)="15. Domain Name" 
  113.             ArrayProp(16)="16. Swap Server" 
  114.             ArrayProp(17)="17. Root Path" 
  115.             ArrayProp(18)="18. Extensions Path" 
  116.             ArrayProp(19)="19. IP Forwarding Enable/Disable (value=0 or 1)" 
  117.             ArrayProp(20)="20. Non-Local Source Routing Enable/Disable (value=0 or 1)" 
  118.             ArrayProp(21)="21. Policy Filter" 
  119.             ArrayProp(22)="22. Maximum Datagram Reassembly Size" 
  120.             ArrayProp(23)="23. Default IP Time-to-live" 
  121.             ArrayProp(24)="24. Path MTU Aging Timeout" 
  122.             ArrayProp(25)="25. Path MTU Plateau Table" 
  123.             ArrayProp(26)="26. Interface MTU" 
  124.             ArrayProp(27)="27. All Subnets are Local" 
  125.             ArrayProp(28)="28. Broadcast Address" 
  126.             ArrayProp(29)="29. Perform Mask Discovery" 
  127.             ArrayProp(30)="30. Mask Supplier" 
  128.             ArrayProp(31)="31. Perform Router Discovery" 
  129.             ArrayProp(32)="32. Router Solicitation Address" 
  130.             ArrayProp(33)="33. Static Route" 
  131.             ArrayProp(34)="34. Trailer Encapsulation" 
  132.             ArrayProp(35)="35. ARP Cache Timeout" 
  133.             ArrayProp(36)="36. Ethernet Encapsulation" 
  134.             ArrayProp(37)="37. TCP Default TTL" 
  135.             ArrayProp(38)="38. TCP Keepalive Interval" 
  136.             ArrayProp(39)="39. TCP Keepalive Garbage" 
  137.             ArrayProp(40)="40. Network Information Service Domain" 
  138.             ArrayProp(41)="41. Network Information Servers" 
  139.             ArrayProp(42)="42. Network Time Protocol Servers" 
  140.             ArrayProp(43)="43. Vendor Specific Information" 
  141.             ArrayProp(44)="44. NetBIOS over TCP/IP Name Server" 
  142.             ArrayProp(45)="45. NetBIOS over TCP/IP Datagram Distribution Server" 
  143.             ArrayProp(46)="46. NetBIOS over TCP/IP Node Type" 
  144.             ArrayProp(47)="47. NetBIOS over TCP/IP Scope" 
  145.             ArrayProp(48)="48. X Window System Font Server" 
  146.             ArrayProp(49)="49. X Window System Display Manager" 
  147.             ArrayProp(50)="" 
  148.             ArrayProp(51)="" 
  149.             ArrayProp(52)="" 
  150.             ArrayProp(53)="" 
  151.             ArrayProp(54)="" 
  152.             ArrayProp(55)="55. Parameter Request List" 
  153.             ArrayProp(56)="56. Message" 
  154.             ArrayProp(57)="57. Maximum DHCP Message Size" 
  155.             ArrayProp(58)="" 
  156.             ArrayProp(59)="" 
  157.             ArrayProp(60)="60. Class-identifier" 
  158.             ArrayProp(61)="61. Client-identifier" 
  159.  
  160.  
  161. %>
  162.  
  163. <form method="POST" action= "/services/AdvanceSubnet.agp">
  164. <input type="hidden" name="identifier" value="<%Response.Write(identifier)%>">
  165. <br>
  166.  
  167. <table border="1" cellpadding="0" cellspacing="0" width="100%">   
  168.     <tr>
  169.             <td  bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  170.             Enable
  171.             </font></strong></td>
  172.             <td  bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  173.             Subnet Options
  174.             </font></strong></td>
  175.             <td  bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
  176.             Subnet Value
  177.             </font></strong></td>
  178.     </tr>
  179.     
  180. <%
  181.     Dim counter 
  182.     counter =1
  183.     while (counter <> 61 )
  184.     counter=counter+1
  185.     if (ArrayProp(counter)<>"") then
  186.  
  187. %>
  188.  
  189.   <tr>
  190.  
  191.     <input type="hidden" size=14 name="identifier" value="<%Request.Write(Request.ReqParam("identifier"))%>" >             
  192.     <td width="5%"><font face="Arial"><input type="checkbox" name=<%Response.Write(counter)%> value="ON" <% if ComDhcp.DhcpOption (identifier,counter)<>"" then Response.Write("checked") end if%>></td>
  193.     <td width="40%"><strong><font face="Arial"><%Response.Write(ArrayProp(counter))%></B></td>
  194.     <td width="55%"><font face="Arial"><input type="text" size="35" name=<%Response.Write(counter+100)%> value="<%Response.Write(ComDhcp.DhcpOption (identifier,counter)) %>"> </td>
  195.  
  196.  </tr>
  197.  
  198. <%
  199.     end if
  200.         
  201.     wend %>
  202.  
  203. </table>
  204.  
  205.  
  206. <p><input type="submit" name="action" value="Commit"></p>
  207. </form>
  208.  
  209. <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
  210.  
  211. </body>
  212. </html>
  213.