<!--#include file="../checkLogin.asp"-->
<!--#include file="../SQLconn.asp"-->

<%
  leibie =Request( "leibie" )
  bianhao= TRIM( Request( "bianhao" ) )
  xiaochanbianhao= TRIM( Request( "xiaochanbianhao" ) )
  mingcheng= TRIM( Request( "mingcheng" ) )
  shuliang = TRIM( Request( "shuliang" ) )
  jingshouren = TRIM( Request( "jingshouren" ) )
  jielingren = TRIM( Request( "jielingren" ) )
  yongtu = TRIM( Request( "yongtu" ) )
  shiyongdidian = TRIM( Request( "shiyongdidian" ) )
  inoutdate = TRIM( Request( "inoutdate" ) )
  jingshouren = TRIM( Request( "jingshouren" ) )
  beizhu = TRIM( Request( "beizhu" ) )
 
   set Rssave=server.createobject("adodb.recordset")
       Rssavesql="select *  from ZiChanWuPin where (id is null)" 
       Rssave.open Rssavesql,conn,1,3
       Rssave.addnew
	   Rssave("类别")=leibie
	   Rssave("编号")=bianhao
	   Rssave("校产编号")=xiaochanbianhao
	   Rssave("进出仓")="报损"
  
	   Rssave("借领人")=jielingren
	   Rssave("用途")=yongtu 
	   Rssave("存放地点")=shiyongdidian
       Rssave("数量")=-shuliang
	   Rssave("时间")=inoutdate
	   Rssave("经手人")=jingshouren
	   Rssave("备注")=beizhu
       Rssave("本单状态")="正常"
	  
	  
       Rssave.update
       Rssave.close
 

	 response.redirect   "WuPinBaoFei.asp?leibie="&leibie&"&bianhao="&bianhao&"&mingcheng="&mingcheng&"&rizhidate="&rizhidate
%>
<%=bianhao%>
