productinfoedt.asp

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

            	  Rs2.open strSQL,Cn
            	  if Rs2.eof then
            	  	sBPCode="xxxxxxxx"
            %>
            <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>
            <%         
                 else
                 	sBPCode=Rs2("BPCode")
            %>
            <tr height="26" bgcolor="<%=Opt_TR_BGColor%>">
              <td>
                 <input type="checkbox" name="BPCode<%=Rs1("TypeCode")%>" value="Yes" Checked><%=Rs1("TypeName")%>
              </td>
              <td colspan="3" align="right">
              <%
				if Rs1("TypeCode")<>"1" then
					if Rs1("TypeCode")="2" then
					    Response.Write "空间大小:"
					else
					    Response.Write "邮局大小:"
					end if
					%>
					<input type="text" name="MaxSize<%=Rs1("TypeCode")%>" size="5" maxlength="8" class="input" value="<%=Rs2("MaxSize")%>"> M
					   &nbsp;
					<%
					if Rs1("TypeCode")="2" then
					    Response.Write "允许绑定域名:"
					else
					    Response.Write "邮局用户个数:"
					end if
					%>
					<input type="text" name="MaxUser<%=Rs1("TypeCode")%>" size="3" maxlength="5" class="input" value="<%=Rs2("MaxUser")%>">
					<%
					if Rs1("TypeCode")="2" then
					%>
                 		&nbsp;最大连接数:
                 		<input type="text" name="MaxIIS<%=Rs1("TypeCode")%>" size="3" maxlength="5" class="input" value="<%=Rs2("MaxIIS")%>">
					<%
					end if
					%>
				<%
				end if
              %>
              </td>
            </tr>   
                 <%
                 end if
                 Rs2.Close
                 
                      
                 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")%>" <% if Rs2("BPCode")=sBPCode then Response.Write "Checked" %>><%=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 Rs3= Server.CreateObject("ADODB.Recordset")
            Set Rs4= Server.CreateObject("ADODB.Recordset")
            strSQL="Select * from T_DNS_UserLevel order by DispSeq"
            Rs1.open strSQL,Cn,1,1
            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"
            Rs3.open strSQL,Cn,1,1
            I=Rs3.RecordCount
        	redim b1(I)
            ii=0            
            while not Rs3.eof
				b1(ii)=rs3("ProdYear")
            	ii=ii+1
            	 strSQL="Select ProdPrice from T_DNS_ProdPrice where ProdCode='" & Rs("ProdCode") & +_
            	 "' and LevelCode='" & Rs1("LevelCode") & "' and ProdYear=" & Rs3("ProdYear")
                 Rs4.open strSQL,Cn
                 if not Rs4.eof then
                 	ProdPrice=CStr(Rs4("ProdPrice"))
                 else
                 	ProdPrice=""
                 end if
                 Rs4.Close
            %>
            <td width="<%=100\I%>%" align="center">
             <input type="text" name="Price<%=Rs1("LevelCode") & Rs3("ProdYear")%>" size="3" maxlength="6" class="input" value="<%=ProdPrice%>">
            </td>
            <%
            	Rs3.movenext
            wend
            Rs3.Close
            %>
            </tr>
            </table>
          </td>
        </tr>
        <%
                Rs1.movenext
            wend
            Rs1.Close
            Set Rs1=nothing
            Set Rs2=nothing
            Set Rs3=nothing
            Set Rs4=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="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
%>