outsave.asp

对学校物资管理系统的一份设计

<!--#include file = "Startup.asp"-->
<!-- #include file="Function.asp" -->
<%
id=replace(trim(request("id")),"'","")
wzname=request("wzname")
ckname=request("ckname")
out=request("out")
shuliang=request("shuliang")
jieshouren=request("jieshouren")
beizhu=request("beizhu")
sql2="update ckinfo set 数量=数量-"&shuliang&" where id="&id
oConn.execute(sql2)
set rs=server.CreateObject("adodb.recordset")
sql="select * from out"
rs.open sql,oConn,1,2
rs.addnew
rs("物资名称")=wzname
rs("仓库名称")=ckname
rs("出库去向")=out
rs("出库数量")=shuliang
rs("接收人")=jieshouren
rs("备注")=beizhu
rs.update
rs.close

response.write "<script>"
response.write "alert('出库完成！');"&chr(13)
response.write "window.close();"
response.write "</script>"

%>