📄 monthpandian.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=cookies.asp-->
<html><head><link href="css.css" rel="stylesheet" type="text/css">
<title>三角进销存-月度盘点</title></head>
<body><center><form name="myform" action="" method="post">请输入要查看的月份：<input name="x" type="text" class="inputa"> <input name="submit" type="submit" class="inputb" value="确定"></form></center>
<%
x=request.form("x")
if not isnumeric(x) or x="" then
x=cint(Month(Date()))
end if
Set Rs=Server.createobject("adodb.recordset")
'本月入库商品数量总数
Sql="select sum(shuliang) from JinKu where month(intime)="&x
rs.open Sql,conn,1,1
JinSum=rs(0)
rs.close
'本月入库商品总金额
Sql="select sum(summoney) from jinKu where month(intime)="&x
rs.open Sql,conn,1,1
Jinmoney=rs(0)
rs.close
'本月销售商品总数
Sql="select sum(shuliang) from ChuKu where month(intime)="&x
rs.open Sql,conn,1,1
ChuSum=rs(0)
rs.close
'本月销售商品总金额
Sql="select sum(summoney) from ChuKu where month(intime)="&x
rs.open Sql,conn,1,1
Sellmoney=rs(0)
rs.close
'本月耗费支出金额
Sql="select sum(qianshu) from ZhiChu where month(intime)="&x
rs.open Sql,conn,1,1
Zhimoney=rs(0)
rs.close
'本月杂项收入金额
sql="select sum(qianshu) from ShouRu where month(intime)="&x
rs.open Sql,conn,1,1
Rumoney=rs(0)
rs.close
'本月质量胎理赔费用总额
sql="select sum(money) from zhiliang where month(intime)="&x
rs.open sql,conn,1,1
lipeimoney=rs(0)
rs.close
Set rs=nothing
Set conn=nothing
response.write"<table width=100% class=inputb><tr><td align=center>本月入库与销售数量</td></tr></table>"
response.write"<br>"
response.write"<table align=center border=1 width=300 cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff>"
response.write"<tr bgcolor=#f1f1f1><td align=center width=150 >本月共入库商品数量为：</td><td align=center width=150 >"&Jinsum&"条</td></tr>"
response.write"<tr bgcolor=#f1f1f1><td align=center width=150 >本月共销售商品数量为：</td><td align=center width=150 >"&Chusum&"条</td></tr>"
response.write"<tr bgcolor=#f1f1f1><td align=center width=150 >本月库内剩余商品数量：</td><td align=center width=150 >"&jinsum-chusum&"条</td></tr>"
response.write"</table><br>"
response.write"<table width=100% class=inputb><tr><td align=center>本月财务支出</td></tr></table>"
response.write"<table align=center border=1 width=300 cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff>"
response.write"<tr bgcolor=#f1f1f1><td align=center width=150 >本月耗费支出总额为：</td><td align=center width=150 >"&Zhimoney&"元</td></tr>"
response.write"<tr bgcolor=#f1f1f1><td align=center width=150 >本月入库支出总额为：</td><td align=center width=150 >"&Jinmoney&"元</td></tr>"
response.write"</table><br>"
response.write"<table width=100% class=inputb><tr><td align=center>本月财务收入</td></tr></table>"
response.write"<table align=center border=1 width=300 cellpadding=0 cellspacing=0 bordercolorlight=#cccccc bordercolordark=#ffffff>"
response.write"<tr bgcolor=#f1f1f1><td align=center width=150 >本月销售收入总额为：</td><td align=center width=150 >"&Sellmoney&"元</td></tr>"
response.write"<tr bgcolor=#f1f1f1><td align=center width=150 >本月理赔收费总额为：</td><td align=center width=150 >"&lipeimoney&"元</td></tr>"
response.write"<tr bgcolor=#f1f1f1><td align=center width=150 >本月杂项收入总额为：</td><td align=center width=150 >"&Rumoney&"元</td></tr>"
response.write"</table>"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -