修改商品数量的问题

[renyao]

首先给出购买商品可以修改数量的代码，然后我作了个判断，当总价>=促销商品市场价的时候显示促销商品，这些我都完成了，可是现在问题是我正常购买商品如果是2个，那么可以对其不同设置数量，而当满足条件出来一个促销商品修改商量是正常的，当促销品有2个时，修改数量是2个促销品一起改动了，而且只能改第1个促销品有用，请问怎么解决？！先给出正常购买的代码，然后在回复中给出当满足条件出现促销品的代码，有劳大家解决下，谢谢！
set rs=server.CreateObject("adodb.recordset")
rs.open "select bookid,bookname,shichangjia,huiyuanjia,vipjia,dazhe,dazhe1 from shop_books where bookid in ("&bookid&") order by bookid",conn,1,1%>
<table width="96%" border="0" align="center" cellpadding="2" cellspacing="1" bgcolor="#FFFFFF">
<form name="form1" method="post" action="">
<tr>
<td width="48%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">商品名称</font></div></td>
<td width="13%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">市场价</font></div></td>
<td width="13%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">会员价</font></div></td>
<td width="13%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">VIP 价</font></div></td>
<td width="11%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">折扣</font></div></td>
<td width="7%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">数量</font></div></td>
<td width="12%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">小计</font></div></td>
<td width="9%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">修改数量</font></div></td>
</tr>
<%dim iii '定义总价
iii=0
dim bookscount,books '定义判断有几个bookid
bookscount=request.QueryString("id").count
do while not rs.eof
dim quatity '判断input 名
Quatity = CInt( Request( "hi"&rs("bookid")) )
If Quatity <=0 Then Quatity = 1
%>
<tr>
<td bgcolor="#F7E5F1" STYLE='border: 1 solid #CC99FF'><div align="center"><%=trim(rs("bookname"))%>
<input type=hidden name=bookname value=<%=trim(rs("bookname"))%>></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center"><%=formatnumber(rs("shichangjia"),2)&"元"%></div></td>
<input type=hidden name=huiyuanjia value=<%=rs("huiyuanjia")%>>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center"><font color="#FF6600"><%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></div></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center"><%=formatnumber(rs("vipjia"),2)&"元"%></div></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center"><%=formatnumber(rs("dazhe")*100/10,1)&"折"%></div></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center">
<input name="<%="hi"& rs("bookid")%>" type="text" size="3" value="<%=Quatity%>" 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'))">
</div></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center">
<%if Quatity<=1 then
response.write formatnumber(rs("huiyuanjia")*1,2)&"元"
else
response.write formatnumber(rs("huiyuanjia")*Quatity,2)&"元"
end if

iii=formatnumber(rs("huiyuanjia")*Quatity+iii,2 )
%>
</div></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center">
<input type="submit" name="Submit" value="修改" onclick="this.form.action='shopping.asp?id=<%=bookid%>';this.form.submit()">
</div></td>
</tr>
<%if bookscount=1 then books=rs("bookid")
rs.movenext
loop
rs.close
set rs=nothing%>

[renyao]

<%
dim rs6
set rs6=server.CreateObject("adodb.recordset")
rs6.open "select * from shop_books1",conn,1,1%>


<table width=96% border=0 align=center cellpadding=1 cellspacing=1 bgcolor=#CC99FF>

<tr>
<td width="48%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">商品名称</font></div></td>
<td width="13%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">市场价</font></div></td>
<td width="13%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">促销价</font></div></td>
<td width="7%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">数量</font></div></td>
<td width="12%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">小计</font></div></td>
<td width="9%" bgcolor="#FF99CC" style="border: 1 solid #CC99FF"><div align="center"><font color="#000000">修改数量</font></div></td>
</tr>


<%
dim scj,bookscount6,books6 '定义判断有几个bookid
bookscount6=request.QueryString("id").count

dim quatity6 '判断input 名
Quatity6 = CInt( Request( "ckxp"&rs6("bookid")) )
If Quatity6 <=0 Then Quatity6 = 1

do while not rs6.eof
scj=rs6("shichangjia")
if (Cint(iii) >= Cint(scj)) then
%>
<tr>
<td bgcolor="#F7E5F1" STYLE='border: 1 solid #CC99FF'><div align="center"><%=trim(rs6("bookname"))%>
<input type=hidden name=bookname value=<%=trim(rs6("bookname"))%>></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center"><%=formatnumber(rs6("shichangjia"),2)&"元"%></div></td>
<input type=hidden name=huiyuanjia value=<%=rs6("huiyuanjia")%>>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center"><font color="#FF6600"><%=formatnumber(rs6("huiyuanjia"),2)&"元"%></font></div></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center">
<input name="<%="ckxp"&rs6("bookid")%>" type="text" size="3" value="<%=Quatity6%>" 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'))">
</div></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center">
<%if Quatity6<=1 then
response.write formatnumber(rs6("huiyuanjia")*1,2)&"元"
else
response.write formatnumber(rs6("huiyuanjia")*Quatity6,2)&"元"
end if

iii=formatnumber(rs6("huiyuanjia")*Quatity6+iii,2 )
%>
</div></td>
<td bgcolor="#F7E5F1" style="border: 1 solid #CC99FF"><div align="center">
<input type="submit" name="Submit" value="修改" onclick="this.form.action='shopping.asp?id=<%=bookid%>';this.form.submit()">
</div></td>
</tr>

<%

else
Response.Write "没有符合要求的记录"

end if
if bookscount6=1 then books6=rs6("bookid")
rs6.movenext
loop
rs6.close
set rs6=nothing

%>

[renyao]

我怀疑和re.open数据库有关，正常购买是：
rs.open "select bookid,bookname,shichangjia,huiyuanjia,vipjia,dazhe,dazhe1 from shop_books where bookid in ("&bookid&") order by bookid",conn,1,1
而促销是：
rs6.open "select * from shop_books1",conn,1,1
不知道对不对，其他地方我真的想不到了

[renyao]

大家帮我T一下好吗？谢谢，CSDN不能连续回复超过3次的

[lqflsh]

up

[renyao]

谢谢帮忙T一下，这个问题是不是很难？到底哪里错了？

[changechange]

代码太长，从来没人愿意会这种帖子的

[renyao]

那就这么看正常购买修改数量代码：
<%dim iii '定义总价
iii=0
dim bookscount,books '定义判断有几个bookid
bookscount=request.QueryString("id").count
do while not rs.eof
dim quatity '判断input 名
Quatity = CInt( Request( "hi"&rs("bookid")) )
If Quatity <=0 Then Quatity = 1
%>
<input name="<%="hi"& rs("bookid")%>" type="text" size="3" value="<%=Quatity%>" 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'))">

促销品购买修改数量代码：
<%
dim scj,bookscount6,books6 '定义判断有几个bookid
bookscount6=request.QueryString("id").count

dim quatity6 '判断input 名
Quatity6 = CInt( Request( "hi"&rs6("bookid")) )
If Quatity6 <=0 Then Quatity6 = 0

do while not rs6.eof
scj=rs6("shichangjia")
if (Cint(iii) >= Cint(scj)) then
%>
<input name="<%="hi"&rs6("bookid")%>" type="text" size="3" value="<%=Quatity6%>" 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'))">

问题是我正常购买商品如果是2个，那么可以对其不同设置数量，而当满足条件出来一个促销商品修改商量是正常的，当促销品有2个时，修改数量是2个促销品一起改动了，而且只能改第1个促销品有用，请问怎么解决？！

[renyao]

UP

[renyao]

高手帮忙解决下，谢谢