sellshangpin1.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")
biaoma=request.form("biaoma")
kehu=request.form("kehu")
fukuan=request.form("fukuan")
zanfu=request.form("zanfu")
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 biaoma="" or kehu="" or fukuan="" or username="" or intime="" then
   Response.write"<script language=javascript>alert('至少有一项数据未填写或您填写错误！');history.back();</script>"
   Response.End
Else
summoney=shuliang*danjia
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
KC_count=rs.recordcount
if rs.eof=true then
response.write"<script language=javascript>alert('本商品未曾入过库，不能出库谢谢！');location.href='Sellshangpin.asp';</script>"
response.End
Else
Sql="insert into ChuKu (pinpai,guige,xinghao,shuliang,danjia,summoney,biaoma,kehu,fukuan,zanfu,username,intime,beizhu) values ('"&spname&"','"&ggname&"','"&xhname&"','"&shuliang&"','"&danjia&"','"&summoney&"','"&biaoma&"','"&kehu&"','"&fukuan&"','"&zanfu&"','"&username&"','"&intime&"','"&beizhu&"')"
conn.execute(sql)
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='SellShangpin.asp';</script>"
 else
    response.write"库存发生错误，请马上联系程序设计人，并且把您刚才的操作记录起来，以便处理，谢谢合作！"
 End if
end if
end if
%>