28,391
社区成员
发帖
与我相关
我的任务
分享
conn.open application("strconn")
conn.begintrans
set rs=server.CreateObject("adodb.recordset")
sql = "select top 1 * from sunline_rk"
rs.open sql,application("strconn"),1,3
rs.addnew
rs("wzid") = wzid
rs("pzbh") = rkpz
rs("ktime") = rktime
rs("rhckid") =rhckid
rs("sl") = wzsl
rs("dj") = wzdj
rs("je") =wzje
rs.update
'修改物资数量
call editwzsl("rk",rhckid,wzid,wzsl,wzname,rhck,wzdj)
if conn.errors.count>0 then
'errors.clear
conn.rollbacktrans
response.Write "<script>alert('保存中发生错误,请返回重试!')</"&"script>"
response.End()
else
conn.commitTrans
end if
rs.close
set rs=nothing