现在这个购物车可以接受传递过来的值，但id的值老是为“1”更新数量时也不准确，请大家帮忙改改，谢谢了！
下面是代码
<%@LANGUAGE="VBSCRIPT"%>

<%
if not IsObject(session("cart")) then
Set session("cart")=CreateObject("Scripting.Dictionary")
end if
Set cart=session("cart")
productID=Cstr(request("productID"))
dim detail(1)
detail(0)=Int(request("quantity"))
if request("productID")<>"" then
if cart.Exists(productID) then
cart.Remove(productID)
end if
cart.add productID,detail
end if
keys=cart.keys
items=cart.items
set session("cart")=cart
%>





href="index/index.css" type=text/css rel=stylesheet>

<% For i = 0 To cart.Count -1 %> <% Dim list__MMColParam list__MMColParam = "1" if (Request.QueryString("keys(i)") <> "") then list__MMColParam = Request.QueryString("keys(i)") %> <% set list = Server.CreateObject("ADODB.Recordset") list.ActiveConnection = MM_conn_STRING list.Source = "SELECT * FROM pro_table WHERE id = " + Replace(list__MMColParam, "'", "''") + "" list.CursorType = 0 list.CursorLocation = 2 list.LockType = 3 list.Open() %> <% list.Close() %> <% next %> 商品名称 购买数量 更新 删除 <%=(list.Fields.Item("proname").value)%> 总价合计： ￥<%=price%> 继续选购 付款