📄 count_customer.asp

📁 一个做得非常精美的进存销系统,可惜某些功能上做了限制．
💻 ASP
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Function.asp"-->
<!--#include file="Inc/Print.asp"-->
<%
Dim rs,sqltext
Dim cu_id,cu_na,cu_mone,cu_am
Dim cc,sumhk
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext="Select Customer_ID,Customer,Mone,AllMoney From [Customer] 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
cu_id = rs(0)
cu_na = rs(1)
cu_mone = rs(2)
cu_am = rs(3)
Set cc=Conn.Execute("Select Sum(DingJin),Sum(HuiKuan) From [Order] Where Customer_ID='"&cu_id&"'")
sumhk = cc(0)+cc(1)
%>
          <tr bgcolor="#FFFFFF"> 
            <td height="25"> 
              <div align="center"><%=cu_na%></div></td>
            <td> 
              <div align="center"><%=cu_am%></div></td>
            <td> 
              <div align="center"><%=sumhk%></div></td>
            <td> 
              <div align="center"><%=cu_am-sumhk%></div></td>
            <td> 
              <div align="center"><%=cu_mone%></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 + -