<%

For Each objItem In Request.Form
Command1__StrQuantity = Request.Form(Cstr(objItem))
Command1__StrID = Cstr(objItem)
%>

<%

set Command1 = Server.CreateObject("ADODB.Command")
Command1.ActiveConnection = MM_conn_STRING
Command1.CommandText = "UPDATE orderdetail SET Quantity ='"&Command1__StrQuantity&"' WHERE ID = "&Command1__StrID
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()

%>
<%
next
%>
---------------------------------------------------------------------
Microsoft OLE DB Provider for ODBC Drivers (0x80040E10)
[Microsoft][ODBC Microsoft Access Driver] 参数不足，期待是 1。