addshenghe.asp

基础进销存BS系统 ASP+Sql 功能不断完善中

<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<%
dim id,rukubianhao,rst,sql,flag
id=Trim(Request("id"))
rukubianhao=Trim(Request("rukubianhao"))
flag="是"

  set rs = server.CreateObject("adodb.recordset")
  sql="select * from pro_rukudan  where rukubianhao='"&rukubianhao&"'"
  rs.Open sql,conn,0,2,1   
 for i=1 to 10
 if rs.EOF or rs.BOF then exit for
  bianhao1=rs("rkshangpinbianhao")
  shuliang1=rs("rkshuliang")
  'response.write "数量为："&id&"<BR>"
 
  set rst=server.CreateObject("adodb.recordset") 
  sql="exec jxc_updatecangku '"&bianhao1&"','"&shuliang1&"'"
  rst.open sql ,conn

  rs.movenext
  set rst =nothing
  next
'上面是 对仓库的商品数量添加，下面对审核的入库单 增加标志“是”完全中文不用1或者0：）
    
  set rst=server.CreateObject("adodb.recordset") 
  sql="exec jxc_updaterukujiben '"&rukubianhao&"','"&id&"','"&flag&"'"
  rst.open sql ,conn
  set rst =nothing


call endconn()
 response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('添加完毕！');"	'警告
				response.write"location.href='shenhe.asp';"	'跳转到页面
				response.write "</script>"


%>