Sub  slConfirm()
Dim ID:ID=KS.G("ID")
Dim RSA:Set RSA=Server.CreateObject("ADODB.RECORDSET")
   RSA.Open "Select id,ProID,Amount,shifashu From KS_OrderItem Where ID In(" & ID  &")",conn,1,3
 If Not RSa.Eof Then   
do while not rsa.eof

   Conn.Execute("update [KS_OrderItem] set [shifashu]="&request.form("shuliang")&" Where ID='" & RSa(0) & "'")
   RSA.MoveNext
   loop
 End If
   rsa.close:set rsa=nothing

  End Sub 

自己在表里添加的