<!--#include file=conn.asp-->

<%
select case Request("action")
       Case "updat"
            updatepp
       Case Else
            Response.redirect"bs_check.asp"
            Response.end   
end select

Sub updatepp
dim max,ppid,ppname,pporder,sql
max=request.form("ppid").count
For i=1 to max
 ppid=request.form("ppid")(i)
 guigei=request.form("guigei")(i)
 shuliang=request.form("shuliang")(i)
 danjia=request.form("danjia")(i)
 bmcl=request.form("bmcl")(i)
 cpzl=request.form("cpzl")(i)
 sql="Update bs_ddan Set guigei='"&guigei&"',shuliang='"&shuliang&"',danjia='"&danjia&"',bmcl='"&bmcl&"',cpzl='"&cpzl&"' Where ID="&ppid
 conn.execute(sql)
Next
response.write"<script language=javascript>alert('更新成功！');location.href='bs_check.asp';</script>"  
End sub

%>