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

<%
  leibie =Request( "leibie" )
  bianhao= TRIM( Request( "bianhao" ) )
  xiaochanbianhao= TRIM( Request( "xiaochanbianhao" ) )
  xiaochanleixing= TRIM( Request( "xiaochanleixing" ) )
  mingcheng= TRIM( Request( "mingcheng" ) )
  shuliang = TRIM( Request( "shuliang" ) )
  jiaqian = TRIM( Request( "jiaqian" ) )
  inoutdate = TRIM( Request( "inoutdate" ) )
  jingshouren = TRIM( Request( "jingshouren" ) )
 cunfangdidian = TRIM( Request( "cunfangdidian" ) )
 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("单价")=jiaqian
       Rssave("数量")=shuliang
	   Rssave("时间")=inoutdate
	   Rssave("借领人")=""
	   Rssave("经手人")=jingshouren
	   Rssave("存放地点")=cunfangdidian
       Rssave("备注")=beizhu
	   Rssave("本单状态")="正常"
	  
	  
       Rssave.update
       Rssave.close
 

	 response.redirect   "WuPinJinChu.asp?leibie="&leibie&"&xiaochanleixing="&xiaochanleixing&"&bianhao="&bianhao&"&mingcheng="&mingcheng
%>
<%=bianhao%>
