📄 count_product.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Function.asp"-->
<!--#include file="Inc/Print.asp"-->
<%
Dim rs,sqltext
Dim pro_id,pro_na
Dim cc,sumhk
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext="Select Product_ID,Name From [Product] Order By ID Desc"
rs.Open sqltext,Conn,1,3
MaxPerPage=20
text="0123456789"
rs.PageSize=MaxPerPage
for i=1 to Len(Request.QueryString("page"))
checkpage = Instr(1,text,mid(Request.QueryString("page"),i,1))
if checkpage=0 then
exit for
end if
next
If checkpage<>0 then
If NOT IsEmpty(Request.QueryString("page")) Then
CurrentPage=Cint(Request.QueryString("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage= 1
End If
If not rs.eof Then rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if
%>
<html>
<head>
<title>管理中心</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="Image/style.css" type=text/css rel=stylesheet>
<script language="JavaScript" src="Image/js.js"></SCRIPT>
</head>
<body text="#000000">
<table cellpadding="0" cellspacing="0" border="0" width="98%" class="tableBorder" align=center>
<form action="" method=post id=form1 name=form1 onSubmit="return chk(this)">
<tr bgcolor=ffffff>
<th height=25 align="center">商品统计表</th>
</tr>
<tr bgcolor=ffffff>
<td class=forumrow> <table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#eeeeee">
<tr>
<td width="20%" height="24" class=forumrow>
<div align="center">商品名称</div></td>
<td width="15%" class=forumrow> <div align="center">销售数量</div></td>
<td width="15%" class=forumrow> <div align="center"></div></td>
<td width="15%" class=forumrow> <div align="center"></div></td>
<td width="35%" class=forumrow> <div align="center"></div></td>
</tr>
<%
i=0
Do While Not rs.Eof
pro_id = rs(0)
pro_na = rs(1)
Set cc=Conn.Execute("Select Sum(Out_ShuLiang),Sum(Tui_ShuLiang) From [Order2] Where Product_ID='"&pro_id&"'")
sumhk = cc(0)+cc(1)
%>
<tr bgcolor="#FFFFFF">
<td height="25">
<div align="center"><%=pro_na%></div></td>
<td>
<div align="center"><%=sumhk%></div></td>
<td>
<div align="center"></div></td>
<td>
<div align="center"></div></td>
<td>
<div align="center"></div></td>
</tr>
<%
i=i+1
if i >= MaxPerpage then exit do
rs.MoveNext
Loop
%>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="5">
<%
showpage()
%>
</td>
</tr>
<tr bgcolor="#FFFFFF">
<td height="25" colspan="5"><strong><a href="#" onClick="javascript:window.print();">打印票据</a></strong>
<a href="#" onclick="javascript:printpreview();"><strong>打印预览</strong></a></td>
</tr>
</table>
</td>
</tr>
</form>
</table>
</html>
<%
rs.Close
Conn.Close
Set rs = Nothing
Set Conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -