📄 stock.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<html><head><link href="css.css" rel="stylesheet" type="text/css">
<title>三角进销存－商品库存</title></head>
<body>
<table width="100%" class=inputb><tr><td align=center>商品库存</td></tr></table>
<br>
<%
Set Rs=server.createobject("adodb.recordset")
response.write"<table border=1 width=100% cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff>"
response.write"<tr bgcolor=#cccfff><td align=center>库存编号</td><td align=center>商品名称</td><td align=center>商品规格</td><td align=center>商品型号</td><td align=center>库存数量</td><td align=center>库存状态</td><td align=center>库存成本</td></tr>"
Set rs1=server.createobject("adodb.recordset")
Sql="select * from KuCun where KC_shuliang>0"
rs.open Sql,conn,1,1
x=rs.recordcount
Redim pinpai(x),guige(x),xinghao(x),kshuliang(x),id(x)
for i=0 to x-1
id(i)=rs("id")
pinpai(i)=rs("KC_cpname")
guige(i)=rs("KC_cpgg")
xinghao(i)=rs("KC_cpxh")
kshuliang(i)=rs("KC_shuliang")
Sqlstr="select * from JinKu where pinpai='"&pinpai(i)&"' and guige='"&guige(i)&"' and xinghao='"&xinghao(i)&"' order by id desc"
rs1.open sqlstr,conn,1,1
shuliang=rs1("shuliang")
summoney=rs1("summoney")
if kshuliang(i)<=shuliang then
chengben=kshuliang(i)*rs1("danjia")
else
do 'while kshuliang(i)>shuliang
rs1.movenext
shuliang=shuliang+rs1("shuliang")
summoney=summoney+rs1("summoney")
if kshuliang(i)<=shuliang then exit do
loop
l=(shuliang-kshuliang(i))*rs1("danjia")
chengben=summoney-l
end if
rs1.close
rs.movenext
response.write"<tr bgcolor=#f1f1f1><td align=center>"&id(i)&"</td><td align=center>"&pinpai(i)&"</td><td align=center>"&guige(i)&"</td><td align=center>"&xinghao(i)&"</td><td align=center>"&kshuliang(i)&"</td>"
if kshuliang(i)<=5 then
response.write"<td align=center>库存不足</td>"
else
response.write"<td align=center>正常</td>"
end if
response.write"<td align=center>"&chengben&"元</td></tr>"
next
response.write"</table>"
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -