serverinfoadd.asp

蓝芒3.0A最新所有功能完整破解版

<% ModuleCode="M0615" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(form3.ServerName, "服务器名称"))		return false;
	if (!CheckEmpty(form3.ServerIP, "内部IP"))		return false;
	if (!CheckEmpty(form3.ServerPubIP, "外部IP"))		return false;
	if (!CheckInteger(form3.MaxSize, "最大空间"))			return false;
	if (!CheckInteger(form3.MaxUser, "最大用户数"))			return false;
	if (!CheckInteger(form3.ServerLevel, "优先级"))			return false;
	//全部通过
	//submitonce(form3);
	return true;
}

function SelectAll()
{
    for (var i = 0; i < document.form3.elements.length; i++)
              {
                      var e = document.form3.elements[i];
                      if (e.name.substring(0,6) == 'BPCode')
                      {
                              e.checked = form3.allbox.checked;
                      }
	      }	
}
-->
</script>
<table width="450" cellspacing="0" cellpadding="0" border="0" align="center">
  <tr>
    <td>
     <font color="<%=Opt_Font_TitleColor%>" class="titletext"><strong>添加服务器</strong></font>
    </td>
    <td align="right">
     <a href="#" onclick="javascript:history.go(-1)" class="a2">返回</a>
    </td>
  </tr>
  <tr>
    <td colspan="2">
      <table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="<%=Opt_Table_BGColor%>">
       <form name="form3" action="ServerInfoEdtDo.asp" method="post" onSubmit="return(CheckAll());">
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            服务器名称
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerName" size="30" maxlength="50" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            服务器类型
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <select name="TypeCode" class="input">
<%
strSQL="Select * from T_DNS_ServerType"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn
while not Rs1.eof
%>
            <option value="<%=Rs1("TypeCode")%>"
            <% if Rs1("TypeCode")=Request.QueryString("ServerType") then
            	Response.Write "Selected"
               end if
            %>
            ><%=Rs1("TypeName")%></option>
<%
	Rs1.movenext
wend
Rs1.Close
%>
            </select>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            内部IP
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerIP" size="30" maxlength="15" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            外部IP
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerPubIP" size="30" maxlength="15" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            系统参数
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerPara" size="30" maxlength="30" class="input">
            <br>
            虚拟主机填写三级域名的后缀/邮局填写WEB绑定站点的站点号
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            操作系统
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerOS" size="30" maxlength="30" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            数据库
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerDataBase" size="30" maxlength="30" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            CPU描述
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerCPU" size="30" maxlength="30" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            内存描述
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerMem" size="30" maxlength="20" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            硬盘描述
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerHW" size="30" maxlength="20" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            最大空间
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="MaxSize" size="8" maxlength="8" class="input">
            M
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            最大用户
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="MaxUser" size="8" maxlength="6" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            优先级
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ServerLevel" size="8" maxlength="4" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            状态
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <Select name="ServerStat" class="input">
            <option value="1">正常</option>
            <option value="2">已满</option>
            <option value="3">停止</option>
            </select>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            服务权限<br>
            <input type="checkbox" name="allbox" value="Y" OnClick="SelectAll();">全选
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
           <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <%
            Set Rs2= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdType"
            Rs1.open strSQL,Cn
            while not Rs1.eof
            %>
            <tr height="22">
              <td colspan="3">
                 <strong><%=Rs1("TypeName")%></strong>
              </td>
            </tr>
                 <%
                 i=0
                 strSQL="Select * from T_DNS_ProdBasicPower where TypeCode='" & Rs1("TypeCode") & "'"
                 Rs2.open strSQL,Cn
                 while not Rs2.eof
                       if i mod 3 =0 then Response.Write "<tr>"
                       %>
                       <td>
                       <input type="checkbox" name="BPCode<%=Rs2("BPCode")%>" value="Yes"><%=Rs2("BPName")%>
                       </td>
                       <%
                       i=i+1
                       Rs2.movenext
                 wend
                 Rs2.Close
                 %>
            </tr>
            <%
                Rs1.movenext
            wend
            Rs1.Close
            Cn.Close
            Set Rs1=nothing
            Set Cn=nothing
            %>
            </table>
          </td>
        </tr>
        <tr height="26">
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2" align="center">
            <input type="submit" class="button" value=" 添加 " name="act">
            &nbsp;
            <input type="reset" class="button" value=" 重置 ">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
Call PrintPageBottom
%>