checkspxs.asp

来自「企业进销存管理系统 企业级别的进销存管理系统」· ASP 代码 · 共 72 行

ASP
72 行
字号 
<%
xsid=request("hxsph")
spname=request("hspname")
jc=request("hjc")
cd=request("hcd")
gg=request("hgg")
bz=request("hbz")
dw=request("hdw")
dj=request("hdj")
je=request("hje")
khname=request("hkhname")
xsdate=request("hxsdate")
czy=request("hczy")
jsr=request("hjsr")
jsfs=request("hjsfs")
sl=request("hsl")
spid=request("hid")
ws=request("hws")
ss=request("hss")
ys=request("hys")
kcsl=request("hkcsl")
if request("hws")>0 then 
 whether="否"
else
 whether="是"
end if 
%>
<% if sl="0" or ss="0" then %>
<script language="JavaScript">
alert("请输入销售数量")
history.back(1)
</script>
<% end if%>
<%set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open application("dsn")
'加入商品销售表'
sql="insert into tab_sell (id, spid, spname, jc, cd, gg, bz, dw, dj, sl, je, khname, xsdate, czy, jsr, jsfs) values('"&xsid&"','"&spid&"','"&spname&"','"&jc&"','"&cd&"','"&gg&"','"&bz&"','"&dw&"',"&dj&","&sl&","&je&",'"&khname&"','"&xsdate&"','"&czy&"','"&jsr&"','"&jsfs&"')"
rs.open sql,conn,1,3
set rs=nothing
%>
<%set myrs=server.CreateObject("adodb.recordset")
'加入商品销售票号表'
sql="insert into tab_sellph(xsph, sl,ys,ss,ws,khname, xsdate, czy, jsr, jsfs, whether) values('"&xsid&"','"&sl&"',"&ys&","&ss&","&ws&",'"&khname&"','"&xsdate&"','"&czy&"','"&jsr&"','"&jsfs&"','"&whether&"')"
myrs.open sql,conn,1,3
set myrs=nothing
%>
<%'更新库存表'
set rec=server.CreateObject("adodb.recordset")
sql="update tab_kucun set kcsl=kcsl-"&sl&",kcje=(kcsl-"&sl&")*"&dj&" where id='"&spid&"'"
rec.open sql,conn,1,3
set rec=nothing
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link href="../style.css" rel="stylesheet" type="text/css">
</head>

<body>
<div align="center">
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p>&nbsp;</p>
  <p><font color="8080c0" size="2" face="幼圆"><strong> 销售成功单击</strong></font><a href="spxs.asp" target="_self">返回</a><font color="8080c0" size="2" face="幼圆"><strong>继续销售</strong></font> 
  </p>
</div>
</body>
</html>

checkspxs.asp - 源码说明

本页面展示了「企业进销存管理系统 企业级别的进销存管理系统」中的 checkspxs.asp 源码文件，采用 ASP 编程语言编写，共 72 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫开发者社区收录了大量与进销存管理相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?