productinfoadd.asp

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

<% ModuleCode="M0635" %>
<!--#include file="../../Include/Reference.asp"-->
<%
Call PrintPageHead
%>
<!--#include file="../../Include/connect.asp"-->
<script Language="JavaScript">
<!--
function CheckSelect(RadioName)
{
    var HaveSelect=false;
    for (var i = 0; i < document.form9.elements.length; i++)
              {
                      var e = document.form9.elements[i];
                      if (e.name == RadioName)
                      {
                              if(e.checked) {
                                   HaveSelect=true;
                                   break;
                              }
                      }
	      }
    return HaveSelect;
}



function CheckAll()
{  
	//检查非空
	if (!CheckEmpty(form9.ProdCode, "产品编号"))	return false;
	if (!CheckEmpty(form9.ProdName, "产品名称"))	return false;
	if (!CheckEmpty(form9.ProdPrice, "直接售价"))		return false;
	if (!CheckReal(form9.ProdPrice, "直接售价"))		return false;
	if (!CheckEmpty(form9.ProdLevel, "优先级"))		return false;
	if (!CheckInteger(form9.ProdLevel, "优先级"))		return false;
	
	if(form9.STCode.value=="1") {
		if (!form9.BPCode1.checked) {
			alert("在服务权限中必须选中域名！");
			return false;
		}
	}
	if(form9.STCode.value=="2") {
		if (!form9.BPCode2.checked) {
			alert("在服务权限中必须选中虚拟主机！");
			return false;
		}
	}
	if(form9.STCode.value=="3") {
		if (!form9.BPCode3.checked) {
			alert("在服务权限中必须选中邮局！");
			return false;
		}
	}
	if(form9.STCode.value=="5") {
		if (!form9.BPCode1.checked && !form9.BPCode2.checked && !form9.BPCode3.checked) {
			alert("在服务权限中必须至少选中一项！");
			return false;
		}
	}
	
	
	if (form9.BPCode1.checked) {
		if (!CheckSelect("BPSubCode1")) {
			alert("必须选择一个域名类型！");
			return false;
		}
	}
	if (form9.BPCode2.checked) {
		if (!CheckEmpty(form9.MaxSize2, "空间大小"))		return false;
		if (!CheckInteger(form9.MaxSize2, "空间大小"))		return false;
		if (!CheckEmpty(form9.MaxUser2, "允许绑定域名"))		return false;
		if (!CheckInteger(form9.MaxUser2, "允许绑定域名"))		return false;
		if (!CheckEmpty(form9.MaxIIS2, "最大连接数"))		return false;
		if (!CheckInteger(form9.MaxIIS2, "最大连接数"))		return false;
		if (!CheckSelect("BPSubCode2")) {
			alert("必须选择一个虚拟主机类型！");
			return false;
		}
	}
	if (form9.BPCode3.checked) {
		if (!CheckEmpty(form9.MaxSize3, "邮局大小"))		return false;
		if (!CheckInteger(form9.MaxSize3, "邮局大小"))		return false;
		if (!CheckEmpty(form9.MaxUser3, "邮局用户个数"))		return false;
		if (!CheckInteger(form9.MaxUser3, "邮局用户个数"))		return false;
		if (!CheckSelect("BPSubCode3")) {
			alert("必须选择一个邮局类型！");
			return false;
		}
	}
	
	if (!CheckMoneys())	return false;
	
	//全部通过
	//submitonce(form9);
	return true;
}

-->
</script>
<table width="500" 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="form9" action="ProductInfoEdtDo.asp" method="post" onSubmit="return(CheckAll());">
        <tr height="28">
          <td bgcolor="<%=Opt_Table_BGColor%>" colspan="2">
          <strong>基本信息</td>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center" width="80">
            产品编号
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ProdCode" 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="ProdName" size="30" maxlength="100" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            产品种类
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <select name="STCode" class="input">
<%
ServiceType = Request.QueryString("ServiceType")

strSQL="Select * from T_DNS_ServiceType"
Set Rs1= Server.CreateObject("ADODB.Recordset")
Rs1.open strSQL,Cn
while not Rs1.eof
%>
            <option value="<%=Rs1("STCode")%>"
            <% if Rs1("STCode")=ServiceType then
            	Response.Write "Selected"
               end if
            %>
            ><%=Rs1("STName")%></option>
<%
	Rs1.movenext
wend
Rs1.Close
%>
            </select>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            产品图片
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ProdPic" size="30" maxlength="100" class="input">
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            市场售价
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ProdPrice" size="27" maxlength="8" class="input">
            元
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            产品说明
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <textarea name="ProdInfo" cols="50" rows="3" class="input"></textarea>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            产品备注
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <textarea name="ProdMemo" cols="50" rows="3" class="input"></textarea>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
           优&nbsp;先&nbsp;级
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <input type="text" name="ProdLevel" size="5" maxlength="5" class="input" value="1"> &nbsp;从小到大排列、显示
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            产品状态
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <Select name="ProdStat" 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">是否允许试用</td>
			<td bgcolor="<%=Opt_TD_BGColor2%>">
			<input type="radio" name="IfTest" value="1" checked>允许
			&nbsp;<input type="radio" name="IfTest" value="2" >不允许
			</td>
		</tr>
        <%
        'if ServiceType="1" or ServiceType="2" or ServiceType="3" then
        %>
        <tr height="30">
          <td bgcolor="<%=Opt_Table_BGColor%>" colspan="2">
            <strong>服务权限</strong>
          </td>
        </tr>
        <tr>
          <td bgcolor="<%=Opt_TD_BGColor2%>" colspan="2">
           <table width="100%" border="0" cellpadding="2" cellspacing="0">
            <%
            Set Rs2= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_ProdType"
            Rs1.open strSQL,Cn
            while not Rs1.eof
            %>
            <tr height="26" bgcolor="<%=Opt_TR_BGColor%>">
              <td>
                 <input type="checkbox" name="BPCode<%=Rs1("TypeCode")%>" value="Yes"><%=Rs1("TypeName")%>
              </td>
              <td colspan="3" align="right">
                 <%
                 if Rs1("TypeCode")<>"1" then
                 	if Rs1("TypeCode")="2" then
                 		%>
                 		空间大小:
                 		<input type="text" name="MaxSize<%=Rs1("TypeCode")%>" size="5" maxlength="8" class="input"> M
                 		&nbsp;
                 		允许绑定域名:
                 		<input type="text" name="MaxUser<%=Rs1("TypeCode")%>" size="3" maxlength="5" class="input">
                 		&nbsp;最大连接数:
                 		<input type="text" name="MaxIIS<%=Rs1("TypeCode")%>" size="3" maxlength="5" class="input">
                 		<%
                 	else
                 		%>
                 		邮局大小:
                 		<input type="text" name="MaxSize<%=Rs1("TypeCode")%>" size="5" maxlength="8" class="input"> M
                 		&nbsp;
                 		邮局用户个数:
                 		<input type="text" name="MaxUser<%=Rs1("TypeCode")%>" size="3" maxlength="5" class="input">
                 		<%
                 	end if
                 end if
                 %>
              </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 width=40></td>"
                       %>
                       <td>
                       <input type="radio" name="BPSubCode<%=Rs1("TypeCode")%>" value="<%=Rs2("BPCode")%>"><%=Rs2("BPName")%>
                       </td>
                       <%
                       i=i+1
                       Rs2.movenext
                 wend
                 Rs2.Close
                 %>
            </tr>
            <%
                Rs1.movenext
            wend
            Rs1.Close
            %>
            </table>
          </td>
        </tr>
        <%
        'end if
        %>
        <tr height="30">
          <td bgcolor="<%=Opt_Table_BGColor%>" colspan="2">
            <strong>产品价格（元）</strong>
          </td>
        </tr>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            用户级别
          </td>
          <td bgcolor="<%=Opt_TR_BGColor%>">
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
            <%
            strSQL="Select * from T_DNS_ProdYear order by ProdYear"
            Rs1.open strSQL,Cn,1,1
            I=Rs1.RecordCount
            while not Rs1.eof
            %>
            <td width="<%=100\I%>%" align="center">
              <%=Rs1("ProdYear")%>年
            </td>
            <%
            	Rs1.movenext
            wend
            Rs1.Close
            %>
            </tr>
            </table>
          </td>
        </tr>
        <%
            Set Rs2= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_UserLevel order by DispSeq"
            Rs1.open strSQL,Cn
            Z=Rs1.RecordCount
        	dim a(),b1()
        	redim a(Z)
            jj=0
            while not Rs1.eof            	
            	a(jj)=rs1("LevelCode")
            	jj=jj+1
        %>
        <tr height="24">
          <td bgcolor="<%=Opt_TR_BGColor%>" align="center">
            <%=Rs1("LevelName")%>
          </td>
          <td bgcolor="<%=Opt_TD_BGColor2%>">
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
            <tr>
            <%
            strSQL="Select * from T_DNS_ProdYear order by ProdYear"
            Rs2.open strSQL,Cn,1,1
            I=Rs2.RecordCount

        	redim b1(I)
            ii=0
            while not Rs2.eof
				b1(ii)=rs2("ProdYear")
            	ii=ii+1
            %>
            <td width="<%=100\I%>%" align="center">
             <input type="text" name="Price<%=Rs1("LevelCode") & Rs2("ProdYear")%>" size="3" maxlength="6" class="input">
            </td>
            <%
            	Rs2.movenext
            wend
            Rs2.Close
            %>
            </tr>
            </table>
          </td>
        </tr>
        <%
                Rs1.movenext
            wend
            Rs1.Close
            Cn.Close
            Set Rs1=nothing
            Set Rs2=nothing
            Set Cn=nothing
        %>
<script Language="JavaScript">
<!--
function CheckMoneys()
{
	nn1 = 0 ;
	<%
	k = 1
	l = Z
	m = I
	i = 0
	while (i < m )
		j = 0
	%>
		nn2 = 0 ;
	<%
		while (j < l)
	%>
			if (form9.Price<%=a(j)%><%=b1(i)%>.value != "")
			{
				nn2 = nn2 +1 ;
			}
	<%
			j = j + 1
		wend
	%>
		if (nn2!=0 && nn2!=<%=l%>)
		{
			alert("价格不能空.");
			form9.Price1<%=i+1%>.focus();
			return	false;
		}
		else
		{
			if (nn2!=0)
				nn1 = nn1 +1 ;
		}
	<%
		i = i +1 
	wend
	%>
	if (nn1==0)
	{
		alert("请输入价格!");
		return	false;
	}
	return true;
}
-->
</script>
        <tr height="40">
          <td 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
%>