ASP建的网站，有两个页面的数据不能关联，请专业人士帮忙，最佳答案可追加20分

Question

如图，修改上面的数量提交后，下一个页面的数量值关联不上，不能同步。两个截图的代码附在后面，望专业高手指教，谢谢！最佳答案追加分。

Answer 1

截图1代码：
<td width="9%" height="25" align="center" background="../images/page-left-001.gif">选中/清除</td>
<td width="34%" align="center" background="../images/page-left-001.gif">商品名称</td>
<td width="6%" align="center" background="../images/page-left-001.gif">数量</td>
<td width="12%" align="center" background="../images/page-left-001.gif">类别</td>
<td width="12%" align="center" background="../images/page-left-001.gif">ä»·æ ¼</td>
<td width="12%" align="center" background="../images/page-left-001.gif">总计</td>
<td width="15%" align="center" background="../images/page-left-001.gif">修改数量</td>
</tr>
<%
session("price")=trim(request("price"))
if session("price")="1" then
price1="db_price"
session("price_name")="吊牌价"
else
price1="db_price1"
session("price_name")="订货价"
end if
ProductList = Session("ProductList")
Products = Split(Request("id"), ",")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList

if request("payment")="去收银台" or request("payment")="去收银台" then

response.redirect "ProOrder.asp"
end if

If Request("shopShow") = "Yes" Then
ProductList = ""
Products = Split(Request("id"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
End If

If Request("qingkong") = "清空购物车" or Request("qingkong") = "清空购物车" Then
Session("ProductList") = ""
response.redirect "Cart.asp"
Response.end

End If

If Len(Session("ProductList")) = 0 Then%>

<tr>

<td align="center" height=100 colspan="7">您的购物车为空，<a href="index.asp?db_id=1&class_id=0&id=1"><b>继续购物</b></a></td>
</tr>

<%
else
%>

<%
Set rsshop=Server.CreateObject("ADODB.RecordSet")
strsql = "SELECT * FROM db_products WHERE id IN ("&Session("ProductList")&") ORDER BY id DESC"
rsshop.open strsql,conn,1,1
%>

<%
Sum = 0
SumS = 0
Quatity = 1
Do While Not rsshop.EOF
Quatity = CInt( Request.Form( "Q_" & rsshop("id")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rsshop("id")) )
If Quatity <= 0 Then Quatity = 1
End If

Session(rsshop("id")) = Quatity

'if Session("F_userName") = "" then
strvipprice = rsshop(price1)
'else
' strvipprice = rsshop("F_memberPrice")
'end if
Sum = Sum + strvipprice*Quatity
Sum=Round(Sum,2)
SumS = SumS + ProScore*Quatity
%>
<tr>
<td height="28" align="center">
<input class=shopinput2 type="CheckBox" name="id" value="<%=rsshop("id")%>" Checked></td>
<td><%=rsshop("db_title")%></td>
<td align="center">
<input class=shopinput1 type="Text" id="<%="Q_" & rsshop("id")%>" name="<%="Q_" & rsshop("id")%>" value="<%=Quatity%>" onchange='javascript:this.form.submit();name="cmdShow"' size="3" ></td>
<td align="center"><%=session("price_name")%></td>
<td align="center"><%=strvipprice%>元</td>
<td align="center"><%=Round((strvipprice)*Quatity,2) %>元</td>
<td align="center">
<input class=shopinput2 type=button value="修改数量" onclick="location.href='Cart.asp'"> </td>
</tr>
<%
rsshop.MoveNext
Loop

rsshop.close
set rsshop=nothing
end if
%>
<tr>
<td height="29" colspan="7" align="left"> 折后总计：<font color="#FF6600"><%=FormatNumber(Round(Sum,2)) %></font> 元</td>
----------------------------------------------------------------------------------------------------

截图2代码：
<td width="11%" height="30" align="center" background="../images/page-left-001.gif">编号</td>
<td width="41%" align="center" background="../images/page-left-001.gif">商品名称</td>
<td width="8%" align="center" background="../images/page-left-001.gif">数量</td>
<td width="14%" align="center" background="../images/page-left-001.gif">类别</td>
<td width="13%" align="center" background="../images/page-left-001.gif">您的价格</td>
<td width="13%" align="center" background="../images/page-left-001.gif">总价</td>
</tr>
<%
if session("price")="1" then
price1="db_price"
else
price1="db_price1"
end if
Set rsshop=Server.CreateObject("ADODB.RecordSet")
strsql = "SELECT * FROM db_products WHERE id IN ("&Session("ProductList")&") ORDER BY id DESC"
rsshop.open strsql,conn,1,1
%>

<%
Sum = 0
SumS = 0
Quatity = 1

Do While Not rsshop.EOF
Quatity = CInt( Request.Form( "Q_" & rsshop("id")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rsshop("id")) )
If Quatity <= 0 Then Quatity = 1
End If

Session(rsshop("id")) = Quatity

strvipprice = rsshop(price1)

Sum = Sum + strvipprice*Quatity
Sum=Round(Sum,2)
SumS = SumS + ProScore*Quatity
%>
<tr>
<td height="25" align="center"><%=rsshop("id")%></td>
<td align="center"><%=rsshop("db_title")%></td>
<td align="center"><%=Quatity%></td>
<td align="center"><%=session("price_name")%></td>
<td align="center"><%=strvipprice%>元</td>
<td align="center"><%=Round((YourPricex + strvipprice)*Quatity,2) %></td>
</tr>
<%
rsshop.MoveNext
Loop
rsshop.close
set rsshop=nothing
%>
<tr>
<td height="29" colspan="6" align="left">

</font>

折后总计<font color="#FF6600"><%=FormatNumber(Round(Sum,2)) %></font> 元</td>

Answer 2

在上面的“数量”里填写3后，应该是要点击后面的“修改数量”按钮才算是修改完毕。
点击“修改数量”按钮后再去收银台！

Answer 3

截图1代码：
<td width="9%" height="25" align="center" background="../images/page-left-001.gif">选中/清除</td>
<td width="34%" align="center" background="../images/page-left-001.gif">商品名称</td>
<td width="6%" align="center" background="../images/page-left-001.gif">数量</td>
<td width="12%" align="center" background="../images/page-left-001.gif">类别</td>
<td width="12%" align="center" background="../images/page-left-001.gif">价格</td>
<td width="12%" align="center" background="../images/page-left-001.gif">总计</td>
<td width="15%" align="center" background="../images/page-left-001.gif">修改数量</td>
</tr>
<%
session("price")=trim(request("price"))
if session("price")="1" then
price1="db_price"
session("price_name")="吊牌价"
else
price1="db_price1"
session("price_name")="订货价"
end if
ProductList = Session("ProductList")
Products = Split(Request("id"), ",")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList

if request("payment")="去收银台" or request("payment")="去收银台" then

response.redirect "ProOrder.asp"
end if

If Request("shopShow") = "Yes" Then
ProductList = ""
Products = Split(Request("id"), ", ")
For I=0 To UBound(Products)
PutToShopBag Products(I), ProductList
Next
Session("ProductList") = ProductList
End If

If Request("qingkong") = "清空购物车" or Request("qingkong") = "清空购物车" Then
Session("ProductList") = ""
response.redirect "Cart.asp"
Response.end

End If

If Len(Session("ProductList")) = 0 Then%>

<tr>

<td align="center" height=100 colspan="7">您的购物车为空，<a href="index.asp?db_id=1&class_id=0&id=1"><b>继续购物</b></a></td>
</tr>

<%
else
%>

<%
Set rsshop=Server.CreateObject("ADODB.RecordSet")
strsql = "SELECT * FROM db_products WHERE id IN ("&Session("ProductList")&") ORDER BY id DESC"
rsshop.open strsql,conn,1,1
%>

<%
Sum = 0
SumS = 0
Quatity = 1
Do While Not rsshop.EOF
Quatity = CInt( Request.Form( "Q_" & rsshop("id")) )
If Quatity <= 0 Then
Quatity = CInt( Session(rsshop("id")) )
If Quatity <= 0 Then Quatity = 1
End If

Session(rsshop("id")) = Quatity

'if Session("F_userName") = "" then
strvipprice = rsshop(price1)
'else
' strvipprice = rsshop("F_memberPrice")
'end if
Sum = Sum + strvipprice*Quatity
Sum=Round(Sum,2)
SumS = SumS + ProScore*Quatity
%>
<tr>
<td height="28" align="center">
<input class=shopinput2 type="CheckBox" name="id" value="<%=rsshop("id")%>" Checked></td>
<td><%=rsshop("db_title")%></td>
<td align="center">
<input class=shopinput1 type="Text" id="<%="Q_" & rsshop("id")%>" name="<%="Q_" & rsshop("id")%>" value="<%=Quatity%>" onchange='javascript:this.form.submit();name="cmdShow"' size="3" ></td>
<td align="center"><%=session("price_name")%></td>
<td align="center"><%=strvipprice%>元</td>
<td align="center"><%=Round((strvipprice)*Quatity,2) %>元</td>
<td align="center">
<input class=shopinput2 type=button value="修改数量" onclick="location.href='Cart.asp'"> </td>
</tr>
<%
rsshop.MoveNext
Loop

rsshop.close
set rsshop=nothing
end if
%>
<tr>
<td height="29" colspan="7" align="left">    折后总计：<font color="#FF6600"><%=FormatNumber(Round(Sum,2)) %></font> 元</td>

Answer 4

源代码呢