saveshangpin.asp

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

<meta HTTP-EQUIV="Content-Type" CONTENT="text/html; charset=gb2312">
<!--#include file="../Inc/Config.asp" -->
<!--#include file="../Inc/dbconn.asp" -->
<!--#include file="Style.asp" -->

<%
spbianma=Trim(Request.Form("spbianhao"))
spname=Trim(Request.Form("spname")) 
spdanwei=Request.Form("spdanwei") 
spgonghuo=Request.Form("spgonghuo") 
qita=Request.Form("spqita1") 
qitaqi=Request.Form("spqita2") 
spbeizhu=Request.Form("spbeizhu") 
shuliang=0
  set rs=conn.execute("select * from [pro_SHANGPIN] where shangpinbianma ='"&spbianma&"'")
  if not (rs.bof or rs.eof) then 
              
                response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('该商品编号已经存在！');"	'警告
				response.write"location.href='addshangpin.asp';"	'跳转到页面
				response.write "</script>"	
				'Response.clear
                rs.close
				set rs=nothing
				'Response.clear
		'		                  
  else

   set rst=server.CreateObject("adodb.recordset")
  
   sql="EXEC jxc_spsave '"& spbianma & "','" & spname &"','" & spdanwei &"','" & spgonghuo &"','" &qita &"','" & qitaqi &"','" &spbeizhu &"'"
                               
                rst.Open sql,Conn 
' 对仓库的操作！基础版没什么含量,添加商品自动在库存中加数据

  set rck =server.CreateObject("adodb.recordset")
  sqlck="EXEC jxc_savecangku'" &spbianma &"','"&spname&"','"&shuliang&"','"& spgonghuo&"','"&spbeizhu&"'"
  rck.Open sqlck,Conn 
set rck=nothing
set rst=nothing
call endconn()
                response.write "<script language=javascript>"	'Javascript 开始
				response.write"alert('添加完毕');"	'警告
				response.write"location.href='addshangpin.asp';"	'跳转到页面
				response.write "</script>"	
                 
                
				'Response.clear

  end if

    
'Response.clear




%>