📄 count_manage.asp
字号:
<!--#include file="Conn.asp"-->
<!--#include file="Check.asp"-->
<!--#include file="Inc/Function.asp"-->
<!--#include file="Inc/Print.asp"-->
<%
Dim rs,sqltext
Dim cc,sumhk
Dim ma_id,ma_na,ma_mone,ma_pro,ma_money
Set rs=Server.Createobject("Adodb.RecordSet")
sqltext="Select ID,User_Name,Mone,Money From [HQ_User] Where Levels='"&oo7&"'"
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>
<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
ma_id = rs(0)
ma_na = rs(1)
ma_mone = rs(2)
ma_money = rs(3)
Set cc=Conn.Execute("Select Sum(DingJin),Sum(HuiKuan) From [Order] Where Manage_ID='"&ma_id&"'")
sumhk = cc(0)+cc(1)
%>
<tr bgcolor="#FFFFFF">
<td height="25">
<div align="center"><%=ma_na%></div></td>
<td>
<div align="center"><%=ma_money%></div></td>
<td>
<div align="center"><%=sumhk%></div></td>
<td>
<div align="center"><%=ma_money-sumhk%></div></td>
<td>
<div align="center"><%=ma_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>
</table>
</html>
<%
rs.Close
Conn.Close
Set rs = Nothing
Set Conn=Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -