addsn.asp

这是惠州城市超市购物管理系统的源代码

                <option value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option>
                <% rs.movenext
loop
end if
        rs.close
        set rs = nothing
%>
              </select> <font color="#FF0000">&nbsp;</font></td>
          </tr>
          <tr> 
            <td rowspan="7" width="8%">&nbsp;</td>
            <td width="13%"> 
              <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_ziduan where ziduanorder=1 ",conn,1,1
%>
              <input type="text" name="mch" size="12" value="<%=rs_s("ziduanname")%>" class="wenbenkuang"> 
              <%
rs_s.close
set rs_s=nothing
%>
            </td>
            <td colspan="2"> <input name="shopname" class="wenbenkuang" type="text" id="shopname" size="30">
              　浮动价 
              <select name="fudongjia" size=1 class="wenbenkuang">
                <%set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * from shop_fudong order by id ",conn,1,1
if rs_s.recordcount=0 then
response.write "请先添加浮动价"
else
while not rs_s.eof
%>
                <option value=<%=rs_s("id")%> ><%=rs_s("shuoming")%></option>
                <%
rs_s.movenext
wend
end if%>
              </select> </td>
          </tr>
          <tr> 
            <td width="13%"> 
              <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_ziduan where ziduanorder=2 ",conn,1,1
%>
              <input type="text" name="pp" size="12" value="<%=rs_s("ziduanname")%>" class="wenbenkuang"> 
              <%
rs_s.close
set rs_s=nothing
%>
            </td>
            <td colspan="2"> <input name="pingpai" type="text" id="pingpai" size="20" class="wenbenkuang"> 
              <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_pingpai order by pingpaiorder ",conn,1,1
%>
              <select name="select" class="wenbenkuang" onChange="(document.myform.pingpai.value=this.options[this.selectedIndex].value)">
                <option selected>请选择品牌</option>
                <%
while not rs_s.eof
%>
                <option value="<%=rs_s("pingpainame")%>"><%=rs_s("pingpainame")%></option>
                <%
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
              </select> </td>
          </tr>
          <tr> 
            <td width="13%"> 
              <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_ziduan where ziduanorder=3 ",conn,1,1
%>
              <input type="text" name="isbn1" size="12" value="<%=rs_s("ziduanname")%>" class="wenbenkuang"> 
              <%
rs_s.close
set rs_s=nothing
%>
            </td>
            <td colspan="2"> <input name="isbn" type="text" id="isbn" size="30" class="wenbenkuang"> 
            </td>
          </tr>
          <tr> 
            <td width="13%"> 
              <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_ziduan where ziduanorder=4 ",conn,1,1
%>
              <input type="text" name="jj" size="12" value="<%=rs_s("ziduanname")%>" class="wenbenkuang"> 
              <%
rs_s.close
set rs_s=nothing
%>
            </td>
            <td colspan="2"> <input name="shopchuban" type="text" id="shopchuban" size="10"  class="wenbenkuang"> 
              <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_danwei order by danweiorder ",conn,1,1
%>
              <select name="select" class="wenbenkuang" onChange="(document.myform.shopchuban.value=this.options[this.selectedIndex].value)">
                <option selected>请选择单位</option>
                <%
while not rs_s.eof
%>
                <option value="<%=rs_s("danweiname")%>"><%=rs_s("danweiname")%></option>
                <%
rs_s.movenext
wend
rs_s.close
set rs_s=nothing
%>
              </select> </td>
          </tr>
          <tr> 
            <td width="13%"> 
              <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_ziduan where ziduanorder=5 ",conn,1,1
%>
              <input type="text" name="jg" size="12" value="<%=rs_s("ziduanname")%>" class="wenbenkuang"> 
              <%
rs_s.close
set rs_s=nothing
%>
            </td>
            <td colspan="2">市场价 
              <input name="shichangjia" class="wenbenkuang" type="text" id="shichangjia" size="6" onKeyPress	= "return regInput(this,	/^\d*\.?\d{0,2}$/,		String.fromCharCode(event.keyCode))" 
		onpaste		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		event.dataTransfer.getData('Text'))">
              元，会员价 
              <input name="huiyuanjia" class="wenbenkuang" type="text" id="huiyuanjia" size="6" onKeyPress	= "return regInput(this,	/^\d*\.?\d{0,2}$/,		String.fromCharCode(event.keyCode))" 
		onpaste		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		event.dataTransfer.getData('Text'))">
              元，VIP价 
              <input name="vipjia" class="wenbenkuang" type="text" id="vipjia" size="6" onKeyPress	= "return regInput(this,	/^\d*\.?\d{0,2}$/,		String.fromCharCode(event.keyCode))" 
		onpaste		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^\d*\.?\d{0,2}$/,		event.dataTransfer.getData('Text'))">
              元</td>
          </tr>
          <tr> 
            <td width="13%"> 
              <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_ziduan where ziduanorder=6 ",conn,1,1
%>
              <input type="text" name="zl" size="12" value="<%=rs_s("ziduanname")%>" class="wenbenkuang"> 
              <%
rs_s.close
set rs_s=nothing
%>
            </td>
            <td colspan="2">库存： 
              <input name="kucun" class="wenbenkuang" type="text" id="kucun" value="0" size="8" onKeyPress	= "return regInput(this,	/^[0-9]*$/,		String.fromCharCode(event.keyCode))"
		onpaste		= "return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('Text'))" >
              已销售： 
              <input name="chengjiaocount" class="wenbenkuang" type="text" id="chengjiaocount" value="0" size="8" onKeyPress	= "return regInput(this,	/^[0-9]*$/,		String.fromCharCode(event.keyCode))"
		onpaste		= "return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('Text'))" readonly>
              积分： 
              <input name="yeshu" type="text" class="wenbenkuang" id="yeshu" value="0" size="6" onKeyPress	= "return regInput(this,	/^[0-9]*$/,		String.fromCharCode(event.keyCode))"
		onpaste		= "return regInput(this,	/^[0-9]*$/,		window.clipboardData.getData('Text'))"
		ondrop		= "return regInput(this,	/^[0-9]*$/,		event.dataTransfer.getData('Text'))" > 
            </td>
          </tr>
          <tr > 
            <td width="13%"> 
              <%
set rs_s=server.createobject("adodb.recordset")
rs_s.open "select * From shop_ziduan where ziduanorder=11 ",conn,1,1
%>
              <input type="text"  size="12" value="<%=rs_s("ziduanname")%>" class="wenbenkuang"> 
              <%
rs_s.close
set rs_s=nothing
%>
            <td colspan="2"> <input name="sftc" type="text" id="sftc" size="30" class="wenbenkuang"> 
              <select name="select11" class="wenbenkuang" onChange="(document.myform.sftc.value=this.options[this.selectedIndex].value)">
                <option selected>请选择是否弹出</option>
                <option value="_blank">弹出</option>
                <option value="">不弹出</option>
              </select>
              （默认为不弹出） </td>
          </tr>
          <tr > 
            <td width="8%" rowspan="10"> <div align="center"></div></td>
            <td width="13%">