addshangpin1.asp

很不错的进销存系统, 本系统适用于轮胎经销使用

<!--#include file=conn.asp-->
<!--#include file=function.asp-->
<!--#include file=cookies.asp-->
<%
spname=guolu(request.form("sppp"))
ggname=guolu(request.form("ggname"))
xhname=guolu(request.form("xhname"))
shuliang=request.form("shuliang")
danjia=request.form("danjia")
fukuan=request.form("fukuan")
username=request.form("username")
intime=request.form("intime")
beizhu=request.form("beizhu")
If spname="" or ggname="" or xhname="" or IsNumeric(shuliang)=false or danjia="" or username="" or intime="" then
   response.write"<script language=javascript>alert('至少有一项数据填写错误！');history.back();</script>"
   response.end
Else
   summoney=shuliang*danjia
   sql="insert into JinKu (pinpai,guige,xinghao,shuliang,danjia,summoney,fukuan,username,intime,beizhu) values ('"&spname&"','"&ggname&"','"&xhname&"','"&shuliang&"','"&danjia&"','"&summoney&"','"&fukuan&"','"&username&"','"&intime&"','"&beizhu&"')"
   conn.ExeCute(sql)
End if

Set Rs=Server.Createobject("adodb.recordset")

'*****查询库存表中是否有本产品库存．如果有增加库存数量，如没有则建立本产品库存*******

Sqlstr="Select * from KuCun where KC_cpname='"&spname&"' and KC_cpgg='"&ggname&"' and KC_cpxh='"&xhname&"'"
Rs.Open Sqlstr,Conn,1,3
if rs.eof=true then
Sqlstr="Insert Into KuCun (KC_cpname,KC_cpgg,KC_cpxh,KC_shuliang) values ('"&spname&"','"&ggname&"','"&xhname&"','"&shuliang&"')"
Conn.ExeCute(Sqlstr)
Response.write"<script language=javascript>alert('本次入库成功，请到库存核实数量！');location.href='AddShangpin.asp';</script>"
Else
KC_count=rs.recordcount
 if KC_count=1 then
    KC_sum=rs("KC_shuliang")+shuliang
    Sqlstr="Update KuCun Set KC_shuliang='"&KC_sum&"' where ID="&Rs("id")
    Conn.ExeCute(Sqlstr)
    Response.write"<script language=javascript>alert('库存添加成功！');location.href='AddShangpin.asp';</script>"
 else
    response.write"库存发生错误，请马上联系程序设计人，并且把您刚才的操作记录起来，以便处理，谢谢合作！"
 End if
End if
%>