<%@ Language=VBScript %>
<!--#include virtual="/inc-freehost-function/FreeHostFunctionMain.asp"-->
<%If session("admau")="" Then
	ef=True
	ec="授权非法，有可能是超时造成的。"
ElseIf not IsNumeric(Request("id"))  Then
	ef=True
	ec="ID应该是数字！"
ElseIf not IsNumeric(Request("ipid"))  Then
	ef=True
	ec="IPID应该是数字！"		
ElseIf not IsNumeric(Request("adslid"))  Then
	ef=True
	ec="adslid应该是数字！"			
elseIf session("cansetserver")="" Then
	ef=True
	ec="您没有此操作的权限。"
end if
if not ef then%>
<!--#include virtual="/inc-freehost-function/htmlwrite.asp"--><%=htmlwrite("html8")%>
<%=htmlwrite("html9")%>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0 background="img/midtop4.gif">
  <TBODY>
    <TR>
      <TD width=53 align="left" background="img/midtop1.gif"><strong> 　 </strong><font color="#FFFFFF">─<strong>&gt;</strong></font> </TD>
      <TD width="150"><table height="59"  border="0" cellpadding="0" cellspacing="0">
          <tr>
            <td width="7" background="img/midtop.gif">&nbsp;</td>
            <td width="120" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="servervpslist.asp"><font color="#FFFFFF">云服务器设置</font></a><a href="setnews.asp"></a></td>
            <td width="5" background="img/midtop2.gif">&nbsp;</td>
          </tr>
      </table></TD>
      <TD width="150" align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7" background="img/midtop.gif">&nbsp;</td>
          <td width="120" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="servercdnlist.asp"><font color="#FFFFFF">CDN服务器设置</font></a></td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></TD>
      <TD width="185" align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7" background="img/midtop.gif">&nbsp;</td>
          <td width="120" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="serverPORTlist.asp"><font color="#FFFFFF">端口转发服务器设置</font></a></td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></TD>
      <TD align="left"><table height="59"  border="0" cellpadding="0" cellspacing="0">
        <tr>
          <td width="7" background="img/midtop.gif">&nbsp;</td>
          <td width="200" align="center" valign="middle" background="img/r3.jpg" id="tableTop1" style="Cursor:hand"><a href="serverbindlist.asp"><font color="#FFFFFF">CDN专用智能DNS服务器设置</font></a></td>
          <td width="5" background="img/midtop2.gif">&nbsp;</td>
        </tr>
      </table></TD>
      <TD width=23 align="right"><IMG height=59 
                  src="img/rtop4.jpg" 
                  width=19></TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE width="100%" border=0 cellPadding=0 cellSpacing=0>
  <TBODY>
    <TR>
      <TD width=19 background="img/midlef.gif" id=rightid>&nbsp;</TD>
      <TD height="300" align="center" vAlign=top bgcolor="#FFFFFF"><br>
	  
<%
Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open Application("FreeHostDBlink")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_ServerVPSlist order by orderbyid desc,id asc"
if request("id")<>"" Then Sql="Select * from FreeHost.FreeHost_ServerVPSlist where id='"&Request("id")&"'"
		ds.Open Sql,conn,1,1
If ds.Eof Then%>
服务器列表为空.
<%else%>  
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td width="9%" height="24" align="center" background="img/tablebg.gif"><font color="#FFFFFF">编号</font></td>
    <td width="55%" align="center" background="img/tablebg.gif"><font color="#FFFFFF"><b>VPS</b>服务器名称</font></td>
    <td width="7%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">IP资源</font></td>
    <td width="7%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">拨号资源</font></td>
    <td height="24" colspan="3" align="center" background="img/tablebg.gif"><font color="#FFFFFF">操作</font></td>
    </tr>
<%while not ds.Eof
useportserver=ds("useportserver")
	Set dsPORTserver = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_ServerPORTlist where id='"&useportserver&"'"
		dsPORTserver.Open Sql,conn,1,1
If not dsPORTserver.Eof Then portperip=dsPORTserver("portperip")
%>

  <tr bgcolor="#E4EAF2">
    <td height="30" align="center"><%=ds("id")%></td>
    <td align="left">　　<%=ds("servername")%>(<%=ds("site")%>) IP:<%=ds("ip")%>
      <%if ds("agent1")<>"n" then%>
      　 代理名：<a href="searchagent.asp?username=<%=ds("agent1")%>"><font color="#0000FF"><%=ds("agent1")%></font></a>
      <%end if%>      　
      排队:<%=ds("orderbyid")%></td>
    <td align="center"><a href="serverVPSlist.asp?id=<%=ds("id")%>&op=ip">未用：
          <%
Set dsip = Server.CreateObject("ADODB.Recordset")	
		Sql="Select count(*) from FreeHost.FreeHost_Product_VPS_IP where ServerlistID='"&ds ("id")&"' and VPSID=0"
		dsip.Open Sql,conn,1,1
		response.write dsip(0)
%>
          <br>
  总IP：
  <%Set dsip = Server.CreateObject("ADODB.Recordset")	
		Sql="Select count(*) from FreeHost.FreeHost_Product_VPS_IP where ServerlistID='"&ds ("id")&"'"
		dsip.Open Sql,conn,1,1
		response.write dsip(0)%>
  <br>
  <%If dsip(0)=0 then%>
  <font color=red>修改</font>
  <%else%>
  修改
  <%End if%>
    </a></td>
    <td align="center"><a href="serverVPSlist.asp?id=<%=ds("id")%>&op=adsl">未用：
        <%
Set dsADSL = Server.CreateObject("ADODB.Recordset")	
		Sql="Select count(*) from FreeHost.FreeHost_Product_VPS_ADSL where ServerlistID='"&ds ("id")&"' and VPSID=0"
		dsADSL.Open Sql,conn,1,1
		response.write dsADSL(0)
%><br>

总数：
<%Set dsADSL = Server.CreateObject("ADODB.Recordset")	
		Sql="Select count(*) from FreeHost.FreeHost_Product_VPS_ADSL where ServerlistID='"&ds ("id")&"'"
		dsADSL.Open Sql,conn,1,1
		response.write dsADSL(0)%>
<br>
<%If dsADSL(0)=0 then%>
<font color=red>修改</font>
<%else%>
修改
<%End if%>
    </a></td>
    <td width="8%" align="center"><a href="serverVPSlist.asp?id=<%=ds("id")%>"><font color=black>修改</font></a></td>
    <td width="7%" align="center"><a href="serverVPSadm.asp?type=host&id=<%=ds("id")%>"><font color=black>管理</font></a></td>
    <td width="14%" align="center"><a href="VPStest.asp?id=<%=ds("id")%>&site=<%=ds("site")%>" target=_blank><font color=blue>系统自检>>></font></a></td>
  </tr>
<%
ds.movenext
wend%>
</table>
</div>
<%end if%>
<%if Request("op")="" then%>
<%if Request("id")<>"" then

	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_ServerVPSlist where id='"&Request("id")&"'"
		ds.Open Sql,conn,1,1
If not ds.Eof Then




%>
<form name="form1" method="post" action="serverVPSadd.asp" ID="Form1" >
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">修改旧的服务器</font></td>
  </tr>
  <tr bgcolor="#E4EAF2">
    <td width="9%" align="right">&nbsp;</td>
    <td width="91%" align="left"><p><br>      
        服务器命名：
            <input name="servername" type="text" id="servername" value="<%=ds("servername")%>" size="12">
  受控网址：
  <input name="site" type="text" id="site" value="<%=ds("site")%>" size="35">
  <br>
  排队顺序：
  <input name="orderbyid" type="text" id="orderbyid" size="4" maxlength="6" value="<%if isnull(ds("orderbyid")) then%>0<%else%><%=ds("orderbyid")%><%end if%>">
  (在前台如果有多台服务器让用户选取时，服务器的排序顺序，数值大排前面)<br>
  共享密码：
  <input name="FreeHostsharekey" type="password" id="FreeHostsharekey"  value="<%=ds("FreeHostsharekey")%>">
  　机房：
  <input name="netby" type="text" id="netby" value="<%=ds("netby")%>" size="10" maxlength="20">
  (或节点名)<br>
  服务器ＩＰ：
  <input name="ip" type="text" id="ip" value="<%=ds("ip")%>" size="20">
  <br>
  用户的VHD文件放置目录(虚拟硬盘的保存目录)：
  <input name="homedir" type="text" id="spacelimit" size="15" value="<%=ds("homedir")%>" maxlength="100">
  (这个分区用光后可以直接改成别的目录,目录名中不能有空格)<br>
  

  VHD文件的备份目录：
  <input name="backupdir" type="text" id="backupdir" size="20" value="<%=ds("backupdir")%>" maxlength="100">
  (不需要备份功能可以不填写,这个目录要保留足够大的空间)<br>
  启用自动数据备份功能：
  <input name="backupyes" type="checkbox" id="backupyes" value="y" <%if ds("backupyes")="y" then%>checked<%end if%> onClick="alert('注意！备份需要大量的硬盘空间,请检查备份目录的可用空间是否足够。')">
　每周
<input name="backupday" type="text" id="backupday" value="<%=ds("backupday")%>" size="2" maxlength="2">
(星期几，注意星期日为1,星期一为2,星期六为7，设置后不能更改不然会造成原来的备份文件不可用！)  <br>
  <br>
  最多可分配的的内存量(单位是M)：
  <input name="MAXRAM" type="text" id="MAXRAM" value="<%=ds("maxram")%>" size="5" maxlength="6">
  M (在使用动态内存的情况下不要超出2倍物理内存)<br>
  最多可分配的的硬盘空间(单位是G)：
  <input name="MAXSpace" type="text" id="MAXSpace" value="<%=ds("maxspace")%>" size="5" maxlength="6">
  G (您的硬盘的真实可用空间大小)<br>
  本服务器最多可开通的VPS数量：
  <input name="MAXVPS" type="text" id="MAXVPS" value="<%=ds("maxvps")%>" size="5" maxlength="6">
  个 (根据自己的资源情况设置)<br>
  物理服务器操作系统：
  <select name="OStype" id="OStype">
          <option value="Windows 2008R2" <%if ds("OStype")="Windows 2008R2" then%>selected<%end if%>>Windows 2008R2</option>
          <option value="Windows Server 2012" <%if ds("OStype")="Windows Server 2012" then%>selected<%end if%>>Windows Server 2012</option>
          <option value="Windows Server 2012R2" <%if ds("OStype")="Windows Server 2012R2" then%>selected<%end if%>>Windows Server 2012R2</option>
          <option value="Windows Server 2016" <%if ds("OStype")="Windows Server 2016" then%>selected<%end if%>>Windows Server 2016</option>		  
        </select>
        文件格式：
        <select name="vhdtype" id="vhdtype">
          <option value="vhd" <%if ds("vhdtype")="vhd" then%>selected<%end if%>>VHD格式，Windows 2008R2使用</option>
          <option value="vhdx" <%if ds("vhdtype")="vhdx" then%>selected<%end if%>>VHDX格式，Windows Server 2012/2016使用</option>
        </select>
        <br>
          虚拟交换机名称
：
          <input name="SwitchName" type="text" id="SwitchName" value="<%=ds("SwitchName")%>" size="20" maxlength="32">
(操作系统是win2012R2时必须设置，必须和服务器上的虚拟交换机（虚拟网络）名一样)<br>
第二虚拟交换机名称 ：
<input name="SwitchName2" type="text" id="SwitchName2" value="<%=ds("SwitchName2")%>" size="20" maxlength="32">
(一般不需要设置，一个VPS分配两个网卡时才要设置)<br>


          预装系统设置：<br>
          操作系统名称1:
          <input name="osname1" type="text" size="25" value="<%=ds("osname1")%>" maxlength="50">
          类型：
          <select name="osnametype1">
            <option value="0" <%if ds("osnametype1")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype1")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
          <input name="osfile1" type="text"  size="20" value="<%=ds("osfile1")%>" maxlength="100">
          (默认预装的系统，必须填写,不然预装功能无法使用,2003.vhdx可以在受控端下载的地方下载)<br>
          操作系统名称2:
          <input name="osname2" type="text" size="25" value="<%=ds("osname2")%>" maxlength="50">
          类型：
          <select name="osnametype2">
            <option value="0" <%if ds("osnametype2")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype2")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
          <input name="osfile2" type="text" value="<%=ds("osfile2")%>"  size="20" maxlength="100">
          (可以不设置，弹性云情况下多台可选服务器的预装操作系统VHDX必须顺序一致)<br>
          操作系统名称3:
          <input name="osname3" type="text" size="25" value="<%=ds("osname3")%>" maxlength="50">
          类型：
          <select name="osnametype3">
            <option value="0" <%if ds("osnametype3")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype3")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
          <input name="osfile3" type="text" value="<%=ds("osfile3")%>"  size="20" maxlength="100">
          (可以不设置)<br>
          操作系统名称4:
          <input name="osname4" type="text" size="25" value="<%=ds("osname4")%>" maxlength="50">
          类型：
          <select name="osnametype4">
            <option value="0" <%if ds("osnametype4")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype4")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
          <input name="osfile4" type="text" value="<%=ds("osfile4")%>"  size="20" maxlength="100">
          (可以不设置)<br>
          操作系统名称5:
          <input name="osname5" type="text" size="25" value="<%=ds("osname5")%>" maxlength="50">
类型：
          <select name="osnametype5">
            <option value="0" <%if ds("osnametype5")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype5")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile5" type="text" value="<%=ds("osfile5")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称6:
<input name="osname6" type="text" size="25" value="<%=ds("osname6")%>" maxlength="50">
类型：
          <select name="osnametype6">
            <option value="0" <%if ds("osnametype6")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype6")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile6" type="text" value="<%=ds("osfile6")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称7:
<input name="osname7" type="text" size="25" value="<%=ds("osname7")%>" maxlength="50">
类型：
          <select name="osnametype7">
            <option value="0" <%if ds("osnametype7")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype7")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile7" type="text" value="<%=ds("osfile7")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称8:
<input name="osname8" type="text" size="25" value="<%=ds("osname8")%>" maxlength="50">
类型：
          <select name="osnametype8">
            <option value="0" <%if ds("osnametype8")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype8")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile8" type="text" value="<%=ds("osfile8")%>"  size="20" maxlength="100">
(可以不设置)<br>

操作系统名称9:
<input name="osname9" type="text" size="25" value="<%=ds("osname9")%>" maxlength="50">
类型：
          <select name="osnametype9">
            <option value="0" <%if ds("osnametype9")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype9")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile9" type="text" value="<%=ds("osfile9")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称10:
<input name="osname10" type="text" size="25" value="<%=ds("osname10")%>" maxlength="50">
类型：
          <select name="osnametype10">
            <option value="0" <%if ds("osnametype10")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype10")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile10" type="text" value="<%=ds("osfile10")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称11:
<input name="osname11" type="text" size="25" value="<%=ds("osname11")%>" maxlength="50">
类型：
          <select name="osnametype11">
            <option value="0" <%if ds("osnametype11")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype11")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile11" type="text" value="<%=ds("osfile11")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称12:
<input name="osname12" type="text" size="25" value="<%=ds("osname12")%>" maxlength="50">
类型：
          <select name="osnametype12">
            <option value="0" <%if ds("osnametype12")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype12")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile12" type="text" value="<%=ds("osfile12")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称13:
<input name="osname13" type="text" size="25" value="<%=ds("osname13")%>" maxlength="50">
类型：
          <select name="osnametype13">
            <option value="0" <%if ds("osnametype13")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype13")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile13" type="text" value="<%=ds("osfile13")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称14:
<input name="osname14" type="text" size="25" value="<%=ds("osname14")%>" maxlength="50">
类型：
          <select name="osnametype14">
            <option value="0" <%if ds("osnametype14")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype14")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile14" type="text" value="<%=ds("osfile14")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称15:
<input name="osname15" type="text" size="25" value="<%=ds("osname15")%>" maxlength="50">
类型：
          <select name="osnametype15">
            <option value="0" <%if ds("osnametype15")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype15")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile15" type="text" value="<%=ds("osfile15")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称16:
<input name="osname16" type="text" size="25" value="<%=ds("osname16")%>" maxlength="50">
类型：
          <select name="osnametype16">
            <option value="0" <%if ds("osnametype16")=false then%>selected<%end if%>>Windows</option>
            <option value="1" <%if ds("osnametype16")=true then%>selected<%end if%>>Linux</option>
          </select>
          已装好的VHD文件位置：
<input name="osfile16" type="text" value="<%=ds("osfile16")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称17:
        <input name="osname17" type="text" size="25" value="<%=ds("osname17")%>" maxlength="50">
类型：
<select name="osnametype17">
  <option value="0" <%if ds("osnametype17")=false then%>selected<%end if%>>Windows</option>
  <option value="1" <%if ds("osnametype17")=true then%>selected<%end if%>>Linux</option>
</select>
已装好的VHD文件位置：
<input name="osfile17" type="text" value="<%=ds("osfile17")%>"  size="20" maxlength="100">
(可以不设置)<br>操作系统名称18:
        <input name="osname18" type="text" size="25" value="<%=ds("osname18")%>" maxlength="50">
类型：
<select name="osnametype18">
    <option value="0" <%if ds("osnametype18")=false then%>selected<%end if%>>Windows</option>
    <option value="1" <%if ds("osnametype18")=true then%>selected<%end if%>>Linux</option>
</select>
已装好的VHD文件位置：
<input name="osfile18" type="text" value="<%=ds("osfile18")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称19:
        <input name="osname19" type="text" size="25" value="<%=ds("osname19")%>" maxlength="50">
类型：
<select name="osnametype19">
  <option value="0" <%if ds("osnametype19")=false then%>selected<%end if%>>Windows</option>
  <option value="1" <%if ds("osnametype19")=true then%>selected<%end if%>>Linux</option>
</select>
已装好的VHD文件位置：
<input name="osfile19" type="text" value="<%=ds("osfile19")%>"  size="20" maxlength="100">
(可以不设置)<br>

操作系统名称20:
<input name="osname20" type="text" size="25" value="<%=ds("osname20")%>" maxlength="50">
类型：
<select name="osnametype20">
  <option value="0" <%if ds("osnametype20")=false then%>selected<%end if%>>Windows</option>
  <option value="1" <%if ds("osnametype20")=true then%>selected<%end if%>>Linux</option>
</select>
已装好的VHD文件位置：
<input name="osfile20" type="text" value="<%=ds("osfile20")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称21:
<input name="osname21" type="text" size="25" value="<%=ds("osname21")%>" maxlength="50">
类型：
<select name="osnametype21">
  <option value="0" <%if ds("osnametype21")=false then%>selected<%end if%>>Windows</option>
  <option value="1" <%if ds("osnametype21")=true then%>selected<%end if%>>Linux</option>
</select>
已装好的VHD文件位置：
<input name="osfile21" type="text" value="<%=ds("osfile21")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称22:
<input name="osname22" type="text" size="25" value="<%=ds("osname22")%>" maxlength="50">
类型：
<select name="osnametype22">
  <option value="0" <%if ds("osnametype22")=false then%>selected<%end if%>>Windows</option>
  <option value="1" <%if ds("osnametype22")=true then%>selected<%end if%>>Linux</option>
</select>
已装好的VHD文件位置：
<input name="osfile22" type="text" value="<%=ds("osfile22")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称23:
<input name="osname23" type="text" size="25" value="<%=ds("osname23")%>" maxlength="50">
类型：
<select name="osnametype23">
  <option value="0" <%if ds("osnametype23")=false then%>selected<%end if%>>Windows</option>
  <option value="1" <%if ds("osnametype23")=true then%>selected<%end if%>>Linux</option>
</select>
已装好的VHD文件位置：
<input name="osfile23" type="text" value="<%=ds("osfile23")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称24:
<input name="osname24" type="text" size="25" value="<%=ds("osname24")%>" maxlength="50">
类型：
<select name="osnametype24">
  <option value="0" <%if ds("osnametype24")=false then%>selected<%end if%>>Windows</option>
  <option value="1" <%if ds("osnametype24")=true then%>selected<%end if%>>Linux</option>
</select>
已装好的VHD文件位置：
<input name="osfile24" type="text" value="<%=ds("osfile24")%>"  size="20" maxlength="100">
(可以不设置)<br>
操作系统名称25:
<input name="osname25" type="text" size="25" value="<%=ds("osname25")%>" maxlength="50">
类型：
<select name="osnametype25">
  <option value="0" <%if ds("osnametype25")=false then%>selected<%end if%>>Windows</option>
  <option value="1" <%if ds("osnametype25")=true then%>selected<%end if%>>Linux</option>
</select>
已装好的VHD文件位置：
<input name="osfile25" type="text" value="<%=ds("osfile25")%>"  size="20" maxlength="100">
(可以不设置)    </p>
      <p><br>
                <br>
                以下为允许用户使用原始ISO文件安装操作系统功能的设置：(本功能只提供给10个云受控以上的用户使用)<br>
                <%for i=1 to 16%>
                ISO系统名称:
                <input name="ISOname<%=i%>" type="text" value="<%=ds("ISOname"&i)%>" size="26" maxlength="50">
                类型：
                <select name="ISOtype<%=i%>">
                      <option value="0" <%if ds("ISOtype"&i)=false then%>selected<%end if%>>Windows</option>
                      <option value="1" <%if ds("ISOtype"&i)=true then%>selected<%end if%>>Linux</option>
                                                    </select>
                ISO文件位置：
                <input name="ISOdir<%=i%>" type="text" size="40" maxlength="100" value="<%=ds("ISOdir"&i)%>">
                <br>
                <%next%>
                <br>
                以下为用户自己挂载光盘ISO文件功能的设置<br>
                <%for i=1 to 10%>
                光盘ISO名称：
                <input name="ToolName<%=i%>" type="text" value="<%=ds("ToolName"&i)%>" size="26" maxlength="50">
                ISO文件位置：
                <input name="Tooldir<%=i%>" type="text" size="50" maxlength="100" value="<%=ds("Tooldir"&i)%>">
                <br>
                <%next%>
        
                    <br>
                    本VPS为共享IP结构：<br>
                    <input type="radio" name="isONEip" value="0" <%if ds("isONEip")=false then%>checked<%end if%>>
                    否(默认)　　
                    <input type="radio" name="isONEip" value="1" <%if ds("isONEip")=true then%>checked<%end if%>>
                    是 可选的CDN服务器：
                    <select name="usecdn1" id="cdntype">
                      <%		
	Set dsCDNserver = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_ServerCDNlist where cdntype='共享IP的VPS专用' order by id asc"
		dsCDNserver.Open Sql,conn,1,1%>
                      <%if dsCDNserver.eof then%>		
                      <option value=0>没有可用的CDN服务器，请您定义CDN服务器</option>
                      <%end if
while not dsCDNserver.eof%>
                      <option value="<%=dsCDNserver("id")%>" <%if dsCDNserver("id")=ds("usecdn1") then%>selected<%end if%>><%=dsCDNserver("id")%>.<%=dsCDNserver("servername")%>(<%=dsCDNserver("ip")%>)</option>
                      <%
dsCDNserver.movenext
wend%>
                                                                      </select>
                    源端口
                    <input name="port" type="text" id="port" value="<%=ds("port")%>" size="4" maxlength="6"  readonly="true">
                    　　可选的转发服务器：
                    <select name="useportserver" id="cdntype">
                      <%		
	Set dsCDNserver = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_ServerPORTlist order by id asc"
		dsCDNserver.Open Sql,conn,1,1%>
                      <%if dsCDNserver.eof then%>
                      <option value=0>没有可用的端口转发服务器，请您定义转发服务器</option>
                      <%end if
while not dsCDNserver.eof%>
                      <option value=0>不使用转发服务器</option>
                      <option value="<%=dsCDNserver("id")%>" <%if dsCDNserver("id")=ds("useportserver") then%>selected<%end if%>><%=dsCDNserver("id")%>.<%=dsCDNserver("servername")%>(<%=dsCDNserver("ip")%>)</option>
                      <%
dsCDNserver.movenext
wend%>
                                                                      </select>
                    <br>
                    <br>
                    本VPS为集群结构：<br>
                    <input type="radio" name="IsCluster" value="0" <%if ds("IsCluster")=false then%>checked<%end if%>>
                    否(默认)　　
                    <input type="radio" name="IsCluster" value="1" <%if ds("IsCluster")=true then%>checked<%end if%>>
                    是 
          集群名
：
                    <input name="ClusterName" type="text" id="ClusterName" value="<%=ds("ClusterName")%>" size="20" maxlength="32">
                    　　节点(物理计算机)名
：
                    <input name="ComputerName" type="text" id="ComputerName" value="<%=ds("ComputerName")%>" size="20" maxlength="32">
                    <br>
                    <br>
                    本服务器是否进入自动优选开通的服务器资源列表：<br>
                    <input type="radio" name="Canselectnow" value="1" <%if ds("Canselectnow")=true then%>checked<%end if%>>
                    是(默认)　　
                    <input type="radio" name="Canselectnow" value="0" <%if ds("Canselectnow")=false then%>checked<%end if%>>
否　　　　资源列表中的分类编号：
                    <input name="typeid" type="text" id="typeid" size="4" maxlength="6" value="<%=ds("typeid")%>">
　                    <br>
                    <br>
                    <input type="submit" name="Submit" value="修改" ID="Submit1">
                    <input name="id" type="hidden" id="id" value="<%=ds("id")%>" size="12">
                    　　　　　　　　　　　　　　　　　　　　　　　　
                    <input name="delit" type="submit" id="delit" value="删除">
                    (删除是不可恢复的删除)<br>
                    <br>
      </p></td>
  </tr>
</table>
</div></form>

<%
end if
end if%>
<script language=JavaScript>
<!--

	function chkForm2(theform)
	{	
	  if (!(theform.site.value.indexOf("www.")<0))
			if(! confirm("受控网址不应该是www开头的域名，也不能和主控域名一样，是您在建立受控端时输入的网址。"))	return false;
		return true;
	}
//-->
</script>
<form name="form1" method="post" action="serverVPSadd.asp" ID="Form1"onsubmit="return chkForm2(this)">
  <DIV class="tableborder">
    <table width="100%"  border="0" cellspacing="1">
      <tr >
        <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">添加新的云服务器</font></td>
      </tr>
      <tr bgcolor="#E4EAF2">
        <td width="9%" align="right">&nbsp;</td>
        <td width="91%" align="left"><p><br>
            服务器命名：
                <input name="servername" type="text" id="servername" size="12">
  受控网址：
  <input name="site" type="text" id="site" value="http://" size="35">
  　<br>
  排队顺序：
        <input name="orderbyid" type="text" id="orderbyid" size="4" maxlength="6" value="0">
  (在前台如果有多台服务器让用户选取时，服务器的排序顺序，数值大排前面)<br>
  共享密码：
  <input name="FreeHostsharekey" type="password" id="FreeHostsharekey">
  <br>
  　 (此密码是星外虚拟主机管理平台主控端与当前受控端共享密码，请修改成一个14位以上的密码)<br>
  　 (此密码必须与此服务器“开始”-“7i24虚拟主机管理平台”-“修改共享密码[受控端]”一致）<br>
  机房：
  <input name="netby" type="text" id="netby" value="电信" size="10" maxlength="20">
  　服务器ＩＰ：
  <input name="ip" type="text" id="ip" size="20">
  <br>
  用户的VHD文件放置目录(虚拟硬盘的保存目录)：
  <input name="homedir" type="text" id="spacelimit" size="15" value="d:\vhd\" maxlength="100">
  (这个分区用光后可以直接改成别的目录)<br>
  
VHD文件的备份目录：
  <input name="backupdir" type="text"  size="20" value="d:\vhdbackup\" maxlength="100">
  (不需要备份功能可以不填写,这个目录要保留足够大的空间)<br>
  启用自动数据备份功能：
  <input name="backupyes" type="checkbox" id="backupyes" value="y"  onClick="alert('注意！备份用户网站需要大量的硬盘空间,请检查备份目录的可用空间是否足够。')">
  　每周
  <input name="backupday" type="text" id="backupday" value="5" size="2" maxlength="2">
  (星期几，注意星期日为1,星期一为2,星期六为7，设置后不能更改不然会造成原来的备份文件不可用！)  <br>
  <br>
  最多可分配的的内存量(单位是M)：
  <input name="MAXRAM" type="text" id="MAXRAM" value="4069" size="5" maxlength="6">
  M (在使用动态内存的情况下不要超出2倍物理内存)<br>
  最多可分配的的硬盘空间(单位是G)：
  <input name="MAXSpace" type="text" id="MAXSpace" value="500" size="5" maxlength="6">
  G (您的硬盘的真实可用空间大小)<br>
  本服务器最多可开通的VPS数量：
  <input name="MAXVPS" type="text" id="MAXVPS" value="8" size="5" maxlength="6">
  个 (根据自己的资源情况设置)<br>
  物理服务器操作系统：
  <select name="OStype" id="OStype">
      <option value="Windows Server 2016">Windows Server 2016</option>		    
      <option value="Windows Server 2012R2" selected>Windows Server 2012R2</option>  
      <option value="Windows Server 2012">Windows Server 2012</option>  
      <option value="Windows 2008R2">Windows 2008R2</option>
  </select>
  <br>
  虚拟交换机名称
  ：
  <input name="SwitchName" type="text" id="SwitchName" value="FreeHostNet" size="20" maxlength="32">
   (操作系统是win2012R2时必须设置，必须和服务器上的虚拟交换机（虚拟网络）名一样)<br>
   <br> 
  操作系统名称:
  <input name="osname1" type="text" size="25" value="Windows2003(32位)中文版" maxlength="50">
  类型：
  <select name="osnametype1">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  已装好的VHD文件位置：
  <input name="osfile1" type="text"  size="20" value="d:\osfile\2003.vhdx" maxlength="100">
  (必须填写,不然在线装操作系统的功能无法使用,2003.vhd可以在受控端下载的地方下载.)<br>
  操作系统名称:
  <input name="osname2" type="text" size="25" value="Windows2003(64位)" maxlength="50">
  类型：
  <select name="osnametype2">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  已装好的VHD文件位置：
  <input name="osfile2" type="text"  size="20" maxlength="100">
  (可以不设置)<br>
  操作系统名称:
  <input name="osname3" type="text" size="25" value="Windows2008(32位)中文版" maxlength="50">
  类型：
  <select name="osnametype3">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  已装好的VHD文件位置：
  <input name="osfile3" type="text"  size="20" maxlength="100">
  (可以不设置)<br>
  操作系统名称:
  <input name="osname4" type="text" size="25" value="Windows2008(64位)中文版" maxlength="50">
  类型：
  <select name="osnametype4">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  已装好的VHD文件位置：
  <input name="osfile4" type="text"  size="20" maxlength="100">
  (可以不设置)<br>
  操作系统名称:
  <input name="osname5" type="text" size="25" maxlength="50">
  类型：
  <select name="osnametype5">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  已装好的VHD文件位置：
  <input name="osfile5" type="text"  size="20" maxlength="100">
  (可以不设置)<br>
  操作系统名称:
  <input name="osname6" type="text" size="25" maxlength="50">
  类型：
  <select name="osnametype6">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  已装好的VHD文件位置：
  <input name="osfile6" type="text"  size="20" maxlength="100">
  (可以不设置)<br>
  操作系统名称:
  <input name="osname7" type="text" size="25" maxlength="50">
  类型：
  <select name="osnametype7">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  已装好的VHD文件位置：
  <input name="osfile7" type="text"  size="20" maxlength="100">
  (可以不设置)<br>
  操作系统名称:
  <input name="osname8" type="text" size="25" maxlength="50">
  类型：
  <select name="osnametype8">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  已装好的VHD文件位置：
  <input name="osfile8" type="text"  size="20" maxlength="100">
  (可以不设置)<br>
  <br> 
  以下为允许用户使用原始ISO文件安装操作系统功能的设置(本功能只提供给10个云受控以上的用户使用)<br>
  ISO系统名称:
  <input name="ISOname1" type="text" id="ISOname1" value="Windows2003R2sp2 ISO安装盘" size="26" maxlength="50">
  类型：
  <select name="ISOtype1" id="ISOtype1">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  ISO文件位置：
  <input name="ISOdir1" type="text" id="ISOdir1"  size="20" maxlength="100">
  (必须设置)<br>
  ISO系统名称:
  <input name="ISOname2" type="text" id="ISOname2" value="Windows2008 ISO安装盘" size="26" maxlength="50">
  类型：
  <select name="ISOtype2" id="ISOtype2">
      <option value="0" selected>Windows</option>
      <option value="1">Linux</option>
  </select>
  ISO文件位置：
  <input name="ISOdir2" type="text" id="ISOdir2"  size="20" maxlength="100">
  <br>
  ISO系统名称:
  <input name="ISOname3" type="text" id="ISOname3" size="26" maxlength="50">
类型：
<select name="ISOtype3" id="ISOtype3">
  <option value="0" selected>Windows</option>
  <option value="1">Linux</option>
</select>
ISO文件位置：
<input name="ISOdir3" type="text" id="ISOdir3"  size="20" maxlength="100">
<br>
ISO系统名称:
<input name="ISOname4" type="text" id="ISOname4" size="26" maxlength="50">
类型：
<select name="ISOtype4" id="ISOtype4">
  <option value="0" selected>Windows</option>
  <option value="1">Linux</option>
</select>
ISO文件位置：
<input name="ISOdir4" type="text" id="ISOdir4"  size="20" maxlength="100">
<br>
ISO系统名称:
<input name="ISOname5" type="text" id="ISOname5" size="26" maxlength="50">
类型：
<select name="ISOtype5" id="ISOtype5">
  <option value="0" selected>Windows</option>
  <option value="1">Linux</option>
</select>
ISO文件位置：
<input name="ISOdir5" type="text" id="ISOdir5"  size="20" maxlength="100">
<br>
ISO系统名称:
<input name="ISOname6" type="text" id="ISOname6" size="26" maxlength="50">
类型：
<select name="ISOtype6" id="ISOtype6">
  <option value="0" selected>Windows</option>
  <option value="1">Linux</option>
</select>
ISO文件位置：
<input name="ISOdir6" type="text" id="ISOdir6"  size="20" maxlength="100">
<br>
ISO系统名称:
<input name="ISOname7" type="text" id="ISOname7" size="26" maxlength="50">
类型：
<select name="ISOtype7" id="ISOtype7">
  <option value="0" selected>Windows</option>
  <option value="1">Linux</option>
</select>
ISO文件位置：
<input name="ISOdir7" type="text" id="ISOdir7"  size="20" maxlength="100">
<br>
<br>
用户自己挂载光盘ISO文件功能的设置：
<br>
光盘ISO名称:
<input name="ToolName1" type="text" id="ToolName1" size="26" maxlength="50">
ISO文件位置：
<input name="Tooldir1" type="text" id="Tooldir1"  size="20" maxlength="100">
(例如SQL2005,D:\tool\sql2005.iso)<br>
光盘ISO名称:
<input name="ToolName2" type="text" id="ToolName2" size="26" maxlength="50">
ISO文件位置：
<input name="Tooldir2" type="text" id="Tooldir2"  size="20" maxlength="100">
(例如SQL2008,D:\tool\sql2008.iso)<br>
              <br>
              本VPS为共享IP结构：<br>
              <input type="radio" name="isONEip" value="0" checked>
              否(默认)　　
              <input type="radio" name="isONEip" value="1" >
              是 可选的CDN服务器：
              <select name="usecdn1" id="cdntype">
            <%		
	Set dsCDNserver = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_ServerCDNlist where cdntype='共享IP的VPS专用' order by id asc"
		dsCDNserver.Open Sql,conn,1,1%>
            <%if dsCDNserver.eof then%>		
            <option value=0>没有可用的CDN服务器，请您定义CDN服务器</option>
            <%end if
while not dsCDNserver.eof%>
            <option value=<%=dsCDNserver("id")%>><%=dsCDNserver("id")%>.<%=dsCDNserver("servername")%>(<%=dsCDNserver("ip")%>)</option>
            <%
dsCDNserver.movenext
wend%>
              </select>
              源端口
              <input name="port" type="text" id="port" value="80" size="4" maxlength="6" readonly="true">
              　可选的转发服务器：
              <select name="useportserver" id="cdntype">
            <%		
	Set dsCDNserver = Server.CreateObject("ADODB.Recordset")	
Sql="Select * from FreeHost.FreeHost_ServerPORTlist order by id asc"
		dsCDNserver.Open Sql,conn,1,1%>
            <%if dsCDNserver.eof then%>
            <option value=0>没有可用的端口转发服务器，请您定义转发服务器</option>
            <%end if
while not dsCDNserver.eof%>
            <option value=0 selected>不使用转发服务器</option>
            <option value="<%=dsCDNserver("id")%>"><%=dsCDNserver("id")%>.<%=dsCDNserver("servername")%>(<%=dsCDNserver("ip")%>)</option>
            <%
dsCDNserver.movenext
wend%>
              </select>
              <br>
              <br>
              <input type="submit" name="Submit" value="添加" ID="Submit1">
              <br>
              <br>
          </p>
          </td>
      </tr>
    </table>
  </div>
</form>
<%elseif request("op")="ip" then%>

<br>
<%ServerlistID=Request("id")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_VPS_IP where ServerlistID='"&Request("id")&"' order by orderbyid desc,id asc"
if request.Form ("ipid")<>"" Then Sql="Select * from FreeHost.FreeHost_Product_VPS_IP where id='"&Request("ipid")&"'"

		ds.Open Sql,conn,1,1
If ds.Eof Then%>
此服务器IP资源为空.
<%else%>
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td width="8%" height="24" align="center" background="img/tablebg.gif"><font color="#FFFFFF">编号</font></td>
    <td align="center" background="img/tablebg.gif"><font color="#FFFFFF">IP</font></td>
    <td align="center" background="img/tablebg.gif"><font color="#FFFFFF">所属产品ID</font></td>
    <td align="center" background="img/tablebg.gif"><font color="#FFFFFF">起始端口(共享IP型)</font></td>
    <td align="center" background="img/tablebg.gif"><font color="#FFFFFF">结束端口(共享IP型)</font></td>
    <td width="13%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">交换机</font></td>
    <td width="10%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">操作</font></td>
  </tr>
<%while not ds.Eof%>

  <tr bgcolor="#E4EAF2" onmouseover=this.bgColor='#cccccc'; onmouseout=this.bgColor='#E4EAF2';>
    <td height="30" align="center" ><%=ds("id")%></td>
    <td width="36%" align="center"><%=ds("ip")%><%if ds("ipbyid")>0 then%> (附属于<%=ds("ipbyid")%>号IP)<%end if%></td>
    <td width="10%" align="center"><%If ds("VPSID")=0 and  ds("ipbyid")=0 then%>未分配<%else%>
      <a href="handvps1.asp?id=<%=ds("VPSID")%>"><%=ds("VPSID")%></a>
      <%End if%></td>
    <td width="9%" align="center"><%if ds("portstart")>0 then%><%=ds("portstart")%><%end if%></td>
    <td width="14%" align="center"><%if ds("portstart")>0 then%><%=ds("portstart")+portperip-1%><%end if%></td>
    <td align="center"><%=ds("SwitchName")%></td>
    <td align="center"><a href="serverVPSlist.asp?ipid=<%=ds("id")%>&id=<%=ServerlistID%>&op=ip"><font color=black>修改</font></a></td>
  </tr>
<%
ds.movenext
wend%>
</table>
</div>
<%End if%>
<br>
<%if Request("ipid")<>"" then
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_VPS_IP where id='"&Request("ipid")&"'"
		ds.Open Sql,conn,1,1
If not ds.Eof Then
ip=ds("ip")
IPmask=ds("IPmask")
IPgateway=ds("IPgateway")
IPdns1=ds("IPdns1")
IPdns2=ds("IPdns2")
orderbyid=ds("orderbyid")
VPSID=ds("VPSID")
ipid=ds("id")
ServerlistID=ds("ServerlistID")
portend=ds("portend")
portstart=ds("portstart")
ipbyid=ds("ipbyid")
SwitchName=ds("SwitchName")
end if
else
IPmask="255.255.255.0"
ipbyid="0"
SwitchName=1
end if%>
<form name="form1" method="post" action="serverVPSlistip-sub.asp" ID="Form1" >
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">IP资源设置</font></td>
  </tr>
  <tr bgcolor="#E4EAF2">
    <td width="9%" align="right">&nbsp;</td>
    <td width="91%" align="left"><br>      
<%If ipid<>"" then%>      编号：<%=ipid%><br><%End if%>
        IP：
        <input name="ip" type="text" id="ip" value="<%=ip%>" size="20" maxlength="50">
        <%if request("ipid")="" then%>
        (可以批量输入,例如输入192.168.0.2-51就代表输入了50个IP，共享IP类应该输入最少量的IP，不要超过60个)
        <%end if%><br>
		网卡中的子网掩码:
		<input name="IPmask" type="text" id="IPmask" value="<%=IPmask%>" size="20" maxlength="50">
(必须填写)<br>
		网卡中的网关的IP:
		<input name="IPgateway" type="text" id="IPgateway" value="<%=IPgateway%>" size="20" maxlength="50">
		(必须填写)<br>
		网卡中的DNS1的IP:
        <input name="IPdns1" type="text" id="IPdns1" value="<%=IPdns1%>" size="20" maxlength="50">
		(必须填写)<br>
		网卡中的DNS2的IP:
        <input name="IPdns2" type="text" id="IPdns2" value="<%=IPdns2%>" size="20" maxlength="50">        		(必须填写)<br>

        排序编号(数字大排前面)：
        <input name="orderbyid" type="text" id="orderbyid" value="<%=orderbyid%>" size="3" maxlength="50"><br>
		所属物理服务器编号：
		<input name="ServerlistID" type="text" id="ServerlistID" value="<%=ServerlistID%>" size="3" maxlength="50">		<br>
		所属虚拟交换机编号：
        <input name="SwitchName" type="text" id="SwitchName" value="<%=SwitchName%>" size="3" maxlength="50">
		默认是1，就是绑定到自检中的第一个虚拟交换机，双网卡的VPS可以设置到第二交换机，就是2<br>
附属于主IP的编号：
        <input name="ipbyid" type="text" id="ipbyid" value="<%=ipbyid%>" size="7" maxlength="50">
        (0代表这是主IP,不附属于别的IP,默认应该是0，特殊双线才要设置)<br>
<%If VPSID<>"" then%>
所属VPS的编号：
        <input name="VPSID" type="text" id="VPSID" value="<%=VPSID%>" size="7" maxlength="50">
        (0代表未分配)<br><%End if%><br>

<!--
起始端口(共享IP类VPS才有用)：
        <input name="portstart" type="text" id="portstart" value="<%=portstart%>" size="3" maxlength="50">
        (必须在2000以上，不同的IP之间不能重复，不填写系统会自动分配，建议不要填写)<br>
        结束端口(共享IP类VPS才有用)：
        <input name="portend" type="text" id="portstart" value="<%=portend%>" size="3" maxlength="50">
        (必须在2000以上，不同的IP之间不能重复，不填写系统会自动分配，建议不要填写)<br>
-->
<%If ipid="" then%>
<input type="submit" name="Submit" value="添加" ID="Submit1"><%if useportserver>0 then%>
共享IP类VPS，请您在添加所有IP后，再点端口转发服务器中的“<a href="serverPORTlist.asp?id=<%=useportserver%>" target="_blank">同步/自检</a>”，不然添加的IP没用。
<%end if%>
<%else%>
<input type="submit" name="modify" value="修改" ID="Submit2">
<input name="ipid" type="hidden" id="ipid" value="<%=ipid%>" size="12">
　　　　　　　　
<input type="submit" name="delit" value="删除" onClick="return chkForm(this)">
(删除是不可恢复的删除)<script language=JavaScript>
<!--
	function chkForm(theform)
	{
			if(! confirm("请确认是否要删除?\n注意，如果删除是没有办法恢复的。在删除IP前，请您仔细检查，必须是没有任何用户，没有任何产品在使用这个IP的参数，这样才能删除！"))
				return false;
	}
//-->
</script>
<%End if%>
  
<br>
<br></td>
  </tr>
</table></div>
</form>
<%elseif request("op")="adsl" then%><br>

<%ServerlistID=Request("id")
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_VPS_ADSL where ServerlistID='"&Request("id")&"' order by orderbyid desc"
if request.Form ("adslid")<>"" Then Sql="Select * from FreeHost.FreeHost_Product_VPS_ADSL where id='"&Request("adslid")&"'"

		ds.Open Sql,conn,1,1
If ds.Eof Then%>
此服务器拨号资源为空.
<%else%>
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td width="5%" height="24" align="center" background="img/tablebg.gif"><font color="#FFFFFF">编号</font></td>
    <td align="center" background="img/tablebg.gif"><font color="#FFFFFF">拨号用户名</font></td>
    <td align="center" background="img/tablebg.gif"><font color="#FFFFFF">拨号密码</font></td>
    <td align="center" background="img/tablebg.gif"><font color="#FFFFFF">VLAN ID</font></td>
    <td align="center" background="img/tablebg.gif"><font color="#FFFFFF">所属产品ID</font></td>
    <td width="10%" align="center" background="img/tablebg.gif"><font color="#FFFFFF">操作</font></td>
  </tr>
<%while not ds.Eof%>

  <tr bgcolor="#E4EAF2" onmouseover=this.bgColor='#cccccc'; onmouseout=this.bgColor='#E4EAF2';>
    <td height="30" align="center" ><%=ds("id")%></td>
    <td width="26%" align="center"><%=ds("ADSLname")%></td>
    <td width="26%" align="center"><%=ds("ADSLpass")%></td>
    <td width="24%" align="center"><%=ds("VLANid")%></td>
    <td width="9%" align="center"><%If ds("VPSID")=0  then%>未分配<%else%>
      <a href="handvps1.asp?id=<%=ds("VPSID")%>"><%=ds("VPSID")%></a>
      <%End if%></td>
    <td align="center"><a href="serverVPSlist.asp?adslid=<%=ds("id")%>&id=<%=ServerlistID%>&op=adsl"><font color=black>修改</font></a></td>
  </tr>
<%
ds.movenext
wend%>
</table>
</div>
<%End if%>
<br>
<%
if Request("adslid")<>"" then
	Set ds = Server.CreateObject("ADODB.Recordset")	
		Sql="Select * from FreeHost.FreeHost_Product_VPS_ADSL where id='"&Request("adslid")&"'"
		ds.Open Sql,conn,1,1
If not ds.Eof Then
ADSLname=ds("ADSLname")
ADSLpass=ds("ADSLpass")
orderbyid=ds("orderbyid")
VPSID=ds("VPSID")
VLANID=ds("VLANID")
adslid=ds("ID")
ServerlistID=ds("ServerlistID")
end if
else
SwitchName=1
end if
%>
<form name="form1" method="post" action="serverVPSlistADSL-sub.asp" ID="Form1" >
<DIV class="tableborder">
<table width="100%"  border="0" cellspacing="1">
  <tr >
    <td height="24" colspan="2" align="center" background="img/tablebg.gif"><font color="#FFFFFF">拨号资源设置</font></td>
  </tr>
  <tr bgcolor="#E4EAF2">
    <td width="9%" align="right">&nbsp;</td>
    <td width="91%" align="left"><br>      
<%If ipid<>"" then%>      编号：<%=ipid%><br><%End if%>
        拨号用户名：
        <input name="ADSLname" type="text" id="ADSLname" value="<%=ADSLname%>" size="20" maxlength="50">
        <%if request("adslid")="" then%>
        (没有这类资源的不用设置)
        <%end if%><br>
		拨号用户密码:
		<input name="ADSLpass" type="text" id="ADSLpass" value="<%=ADSLpass%>" size="20" maxlength="50">
		<br>
		VLAN ID：
        <input name="VLANID" type="text" id="VLANID" value="<%=VLANID%>" size="3" maxlength="6">		
        (可以不用设置)<br>		
        排序编号(数字大排前面)：
        <input name="orderbyid" type="text" id="orderbyid" value="<%=orderbyid%>" size="3" maxlength="50"><br>
		所属物理服务器编号：
		<input name="ServerlistID" type="text" id="ServerlistID" value="<%=ServerlistID%>" size="3" maxlength="50">		<br>		
<%If VPSID<>"" then%>
所属VPS的编号：
        <input name="VPSID" type="text" id="VPSID" value="<%=VPSID%>" size="7" maxlength="50">
        (0代表未分配)<br><%End if%><br>

<!--
起始端口(共享IP类VPS才有用)：
        <input name="portstart" type="text" id="portstart" value="<%=portstart%>" size="3" maxlength="50">
        (必须在2000以上，不同的IP之间不能重复，不填写系统会自动分配，建议不要填写)<br>
        结束端口(共享IP类VPS才有用)：
        <input name="portend" type="text" id="portstart" value="<%=portend%>" size="3" maxlength="50">
        (必须在2000以上，不同的IP之间不能重复，不填写系统会自动分配，建议不要填写)<br>
-->
<%If adslid="" then%>
<input type="submit" name="Submit" value="添加" ID="Submit1"><%if useportserver>0 then%>
<%end if%>
<%else%>
<input type="submit" name="modify" value="修改" ID="Submit2">
<input name="adslid" type="hidden" id="adslid" value="<%=adslid%>" size="12">
　　　　　　　　
<input type="submit" name="delit" value="删除" onClick="return chkForm(this)">
(删除是不可恢复的删除)<script language=JavaScript>
<!--
	function chkForm(theform)
	{
			if(! confirm("请确认是否要删除?\n注意，如果删除是没有办法恢复的。在删除IP前，请您仔细检查，必须是没有任何用户，没有任何产品在使用这个IP的参数，这样才能删除！"))
				return false;
	}
//-->
</script>
<%End if%>
  
<br>
<br></td>
  </tr>
</table></div>
</form>
<%end if%>
</TD>
      <TD width=18 background="img/midri.gif">&nbsp;</TD>
    </TR>
  </TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
  <TBODY>
    <TR>
      <TD width=30><IMG height=19 
                  src="img/rb1.jpg" 
                  width=30></TD>
      <TD 
                background=img/rb2.jpg>&nbsp;</TD>
      <TD width=30><IMG height=19 
                  src="img/rb3.jpg" 
                  width=30></TD>
    </TR>
  </TBODY>
</TABLE>
<%=htmlwrite("html10")%>
<%end if
if ef then
Response.Redirect "e.asp?e="&ec
end if%>
