?? checkspxs.asp
字號:
<%
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("請輸入銷售數(shù)量")
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> </p>
<p> </p>
<p> </p>
<p> </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>繼續(xù)銷售</strong></font>
</p>
</div>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -