serverinfoedt.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>
<%
strSQL="Select * from T_DNS_ServerInfo Where ServerCode='" & Request.QueryString("ServerCode") & "'"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.open strSQL,Cn,1,1
If Rs.Eof Then
	Response.Write "<br><br><br><br><p align='center'>没有找到该服务器的记录！"
	Rs.Close
	Cn.Close
	Call PrintPageBottom
	Response.End
end if
%>
<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());">
       <input type="hidden" name="ServerCode" value="<%=Rs("ServerCode")%>">
        <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" value="<%=Rs("ServerName")%>">
          </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")=Rs("TypeCode") 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" value="<%=Rs("ServerIP")%>">
          </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" value="<%=Rs("ServerPubIP")%>">
          </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" value="<%=Rs("ServerPara")%>">
            <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" value="<%=Rs("ServerOS")%>">
          </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" value="<%=Rs("ServerDataBase")%>">
          </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" value="<%=Rs("ServerCPU")%>">
          </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" value="<%=Rs("ServerMem")%>">
          </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" value="<%=Rs("ServerHW")%>">
          </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" value="<%=Rs("MaxSize")%>">
            M
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            <font color="<%=Opt_Font_IndexColor%>">已用空间</font>
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="RealSize" size="8" maxlength="8" class="input" value="<%=Rs("RealSize")%>" ReadOnly="True">
            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" value="<%=Rs("MaxUser")%>">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            <font color="<%=Opt_Font_IndexColor%>">目前用户</font>
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="RealUser" size="8" maxlength="6" class="input" value="<%=Rs("RealUser")%>" ReadOnly="True">
            &nbsp;&nbsp;
            服务个数:
            <font color="red">
            <%
            strSQL="select count(*) as aa from T_DNS_AllVH where ServerCode='" & Rs("ServerCode") & "'"
            Set CRs=Cn.Execute(strSQL)
            if CRs.Eof then
            	aa=0
            else
            	aa=CRs("aa")
            end if
            CRs.Close
            Set CRs=Nothing
            
            strSQL="select count(*) as bb from T_DNS_AllPost where ServerCode='" & Rs("ServerCode") & "'"
            Set CRs=Cn.Execute(strSQL)
            if CRs.Eof then
            	bb=0
            else
            	bb=CRs("bb")
            end if
            CRs.Close
            Set CRs=Nothing
            
            Response.Write Cint(aa)+Cint(bb)
            %>
            </font>
          </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" value="<%=Rs("ServerLevel")%>">
            &nbsp;&nbsp;
            数字越大越优先
          </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" <% if Rs("ServerStat")="1" then Response.Write "Selected" %>>正常</option>
            <option value="2" <% if Rs("ServerStat")="2" then Response.Write "Selected" %>>已满</option>
            <option value="3" <% if Rs("ServerStat")="3" then Response.Write "Selected" %>>停止</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")
            Set Rs3= 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="<%=Rs2("BPCode")%>"
                       <%
                       strSQL="Select * from T_DNS_ServerPower where ServerCode='" & Rs("ServerCode") & "' and BPCode='" & Rs2("BPCode") & "'"
                       Rs3.open strSQL,Cn
                       if Not Rs3.eof then Response.Write "Checked"
                       Rs3.Close
                       %>
                       ><%=Rs2("BPName")%>
                       </td>
                       <%
                       i=i+1
                       Rs2.movenext
                 wend
                 Rs2.Close
                 %>
            </tr>
            <%
                Rs1.movenext
            wend
            Rs1.Close
            Set Rs1=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="submit" class="button" value=" 删除 " name="act">
          </td>
        </tr>
        </form>
      </table>
    </td>
  </tr>
</table>
<%
Rs.Close
Cn.Close
Set Rs=Nothing
Set Cn=Nothing
Call PrintPageBottom
%>