home *** CD-ROM | disk | FTP | other *** search
- <%
- path = SysInfo.SkinPath
- dim szPath
- szPath = "Table"
- SkinTable = SysInfo.GetSkinParameter(szPath)
- szPath = "Font"
- SkinFont = SysInfo.GetSkinParameter(szPath)
- szPath = "Link"
- SkinLink = SysInfo.GetSkinParameter(szPath)
- szPath = "VLink"
- SkinVLink= SysInfo.GetSkinParameter(szPath)
- %>
- <script language="JavaScript">
- <!--
- function MM_preloadImages() { //v3.0
- var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
- var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
- if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
- }
-
- function MM_swapImgRestore() { //v3.0
- var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
- }
-
- function MM_findObj(n, d) { //v4.0
- var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
- d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
- if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
- for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
- if(!x && document.getElementById) x=document.getElementById(n); return x;
- }
-
- function MM_swapImage() { //v3.0
- var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
- if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
- }
- //-->
- </script>
- <html>
- <head>
- <title>Professional GateKeeper - Infopulse</title>
- <!-- -->
- <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
- <title>MediaFamily - Welcome</title>
-
- </head>
- <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">
- <tr>
- <td width="344"><img src="images/1_r1_c2.jpg" width="344" height="70"></td>
- <td width="135"><img src="images/1_r1_c3.jpg" width="135" height="70"></td>
- <td width="100"><a href="hlpServices.agp"><img src="images/1_r1_c4.jpg" width="100" height="70"border=0></a></td>
- <td width="1000"> </td>
- </tr>
- </table>
- <map name="n1_r4_c3Map">
- <area shape="rect" coords="492,45,567,76" href="#">
- </map>
-
- <%
-
- if Request.ReqParam("NewSubnet") = "Cancel" Then
- Response.Redirect("/services/editDHCP.agp")
- End If
-
-
- if Request.ReqParam("NewSubnet") = "Edit" Then
- NewSubnet
- End If
-
- if Request.ReqParam("NewSubnet") = "Add" Then
-
- On Error Resume Next
- Dim Time
- if Request.ReqParam("LeaseDuration") = "Unlimited" Then
- Time=4294967295
- Else
- Dim day,hour,minute
-
- day=Request.ReqParam("Day")
- hour=Request.ReqParam("Hour")
- minute=Request.ReqParam("Minute")
-
- if (day = "") then
- day =0
- end if
- if (hour ="") then
- hour=0
- end if
- if (minute ="") then
- minute = 0
- end if
-
- Time=day*24*3600+hour*3600+minute*60
-
-
- End if
-
- ' Response.Write(Request.ReqParam("SubnetMask"))
- ' Response.Write(Request.ReqParam("StartIp"))
- ' Response.Write(Request.ReqParam("EndIp"))
- ' Response.Write(Request.ReqParam("ExcludedAddress"))
- ' Response.Write(Time)
- ' Response.Write(Request.ReqParam("Name"))
-
-
- if Request.ReqParam("EnableLocal")<>"" then
- ComDhcp.AddNewSubnet Request.ReqParam("SubnetMask"),Request.ReqParam("StartIp"),Request.ReqParam("EndIp"),Request.ReqParam("ExcludedAddress"),Time,Request.ReqParam("Name"),1
- else
- ComDhcp.AddNewSubnet Request.ReqParam("SubnetMask"),Request.ReqParam("StartIp"),Request.ReqParam("EndIp"),Request.ReqParam("ExcludedAddress"),Time,Request.ReqParam("Name"),false
- end if
-
-
- If Not Err.Number = 0 Then
- ErrLine = Err.Description
- else
- Response.Redirect("/services/editDHCP.agp")
- End If
- End If
-
- If Not Err.Number = 0 Then
- ErrLine = Err.Description
- End If
-
- %>
-
- <%
- If Not Len(ErrLine) = 0 Then
- Response.Write("<B><FONT COLOR=""#FF0000"">" & ErrLine & "</FONT></B><br>")
- End If
- %>
-
-
- <%Sub NewSubnet() %>
-
- <form method="POST" action= "/services/DhcpNewSubnet.agp">
-
- <table border="1" cellpadding="0" cellspacing="0" width="100%">
-
-
- <tr>
- <td width="20%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
- Option
- </td>
- <td width="20%" bgcolor="<%Response.Write(SkinTable)%>"><strong><font face="Arial" color="<%Response.Write(SkinFont)%>">
- Value
- </td>
- </tr>
-
-
- <tr>
-
- <td width="30%">Subnet Mask</td>
- <td width="70%">
- <input type="text" size="55" name="SubnetMask" >
- </td>
- </tr>
-
- <tr>
-
- <td width="30%">Set as local subnet</td>
- <td width="70%">
- <input type="checkbox" size="55" name="EnableLocal" >
- </td>
- </tr>
-
- <tr>
- <td width="30%">Start Ip</td>
- <td width="70%">
- <input type="text" size="55" name="StartIp" >
- </td>
- </tr>
-
- <tr>
- <td width="30%">End Ip</td>
- <td width="70%">
- <input type="text" size="55" name="EndIp" >
- </td>
- </tr>
- <tr>
-
- <tr>
- <td width="30%">Excluded address</td>
- <td width="70%">
- <TEXTAREA name="ExcludedAddress" ROWS="5" COLS="47"></TEXTAREA>
- </td>
- </tr>
-
- <td width="30%">Name</td>
- <td width="70%">
- <input type="text" size="55" name="Name" >
- </td>
- </tr>
-
- </table>
- <center><H3>Lease Duration</H3></center>
- <table border="1" width="95%">
-
- <tr>
- <td width="10%">
- <center>
- <input type="radio" size="55" name="LeaseDuration" Value="Unlimited">
- </center>
- </td>
- <td width="90%">Unlimited</td>
- </tr>
-
- <tr>
- <td width="10%">
- <center>
- <input type="radio" size="55" name="LeaseDuration" Value="Limited To" CHECKED>
- </center>
- </td>
- <td width="90%">
- Limited To
- <input type="text" size="4" name="Day" > day(s)
- <input type="text" size="4" name="Hour" > Hour(s)
- <input type="text" size="4" name="Minute" > Minute(s)
- </td>
- </tr>
-
-
-
- </table>
- <p>
- <center>
- <input type="submit" name="NewSubnet" value="Add">
- <input type="submit" name="NewSubnet" value="Cancel">
- </center>
-
- </form>
- <%
- End Sub
- %>
-
-
-
-
-
-
-
- <font size="1" face="Arial"><%Response.Write(GateKeeper.Version)%></font>
-
- </body>
- </html>
-