- <%
- pagenum=55'指定打印行数
- %>
- <HTML>
- <HEAD>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
- <TITLE>销售利润明细报表打印</TITLE>
- <style type="text/css">
- td {font-size:9pt; color:#000000}
- A{text-decoration:none}
- A:hover{color:#FF0000;text-decoration:derline}
- .break{page-break-before:always}
- </style>
- </HEAD>
- <script language="javascript">
- window.print()
- </script>
- <BODY style="border:none" topmargin="0" leftmargin="6" onload="javascrpt:pagesetup_default();">
- <script language="VbScript">
- dim hkey_root,hkey_path,hkey_key
- hkey_root="HKEY_CURRENT_USER"
- hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
- function pagesetup_default()
- on error resume next
- Set RegWsh = CreateObject("WScript.Shell")
- hkey_key="\header"
- RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&b页&p/&P"
- hkey_key="\footer"
- RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
- end function
- </script>
- <%
- kdname1=trim(request("kdname1"))
- kdname2=trim(request("kdname2"))
- keyword1=trim(request("keyword1"))
- keyword2=trim(request("keyword2"))
- if keyword1<>"" then
- today=keyword1
- else
- if kdname1="" then
- today=year(date())&"-"&month(date())
- else
- today=kdname1&"至"&kdname2
- end if
- end if
- %>
- <table border="0" cellspacing="0" cellpadding="0" align="center" width="740" height="30">
- <tr>
- <td align="center">销售利润汇总报表</td>
- </tr>
- </table>
- <%
- strSQL="select autoid,sellautoid,productxili,productname,productsize,productnum,productdan,productjia,chaoshi,tiaoma,youhui,fukuan,moncount1,gongshang,lirun1,username,indate,fudate from sell where officename='"&trim(request.cookies("Myoffice"))&"' and monthjie='0' and (year(indate)=year(getdate()) and month(indate)=month(getdate())) and zhuofei is null order by autoid desc"
- set rs1=server.createobject("adodb.recordset")
- rs1.open strSQL,conn,1,1
- %>
- <table border="1" cellspacing="0" cellpadding="0" align="center" style="border-collapse: collapse" bordercolor="#000000" width="740">
- <tr>
- <td align="center" height="20" bgcolor="#BDCBEE" width="70" >销售单号</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="168" >商品名称(规格)</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="121" >客户</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="30" >数量</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="24" >单位</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="50" >销售价</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="23" >折%</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="52" >进货价</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="55" >小计</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="45" >利润</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="25" >付款</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="61" >销售日期</td>
- </tr>
- </table>
- <%
- moncount2=0
- moncount5=0
- Do while not rs1.eof
- %>
- <table border="1" cellpadding="0" cellspacing="0" width="740" align="center" style="border-collapse:collapse; font-size:10pt;color:#000000" bordercolor="#000000">
- <%
- for i=1 to pagenum
- if not rs1.eof then
- if trim(rs1("fukuan"))="欠款" then
- moncount6=Csng(rs1("lirun1"))
- moncount5=moncount5+moncount6
- else
- moncount3=Csng(rs1("lirun1"))
- moncount2=moncount2+moncount3
- end if
- %>
- <tr>
- <td height="18" width="70"> <%=rs1("sellautoid")%></td>
- <td height="18" width="168"><%=Decode(rs1("productname"))%> <%=rs1("productsize")%></td>
- <td height="18" width="121"><%=left(rs1("gongshang"),9)%></td>
- <td height="18" width="30" align="center"><%=rs1("productnum")%></td>
- <td height="18" width="24" align="center"><%=rs1("productdan")%></td>
- <td height="18" width="50" align="right"><%=formatNumber(rs1("chaoshi"),varnum,-1)%></td>
- <td height="18" width="23" align="center"><%=rs1("youhui")%></td>
- <td height="18" width="52" align="right"><%=formatNumber(rs1("productjia"),varnum,-1)%></td>
- <td height="18" width="55" align="right"><%=formatNumber(rs1("moncount1"),varnum,-1)%></td>
- <td height="18" width="45" align="right"><%=formatNumber(rs1("lirun1"),varnum,-1)%></td>
- <td align="center" height="18" width="25"><%if trim(rs1("fukuan"))="欠款" then%><font color=blue><%=rs1("fukuan")%></font><%else%><%=rs1("fukuan")%><%end if%></td>
- <td height="18" width="61"><%=rs1("indate")%></td>
- </tr>
- <%
- rs1.movenext
- end if
- next
- %>
- </table>
- <%
- if not rs1.eof and i=pagenum+1 then '添加分页标记
- %>
- <div class="break"> </div>
- <table border="0" cellpadding="0" cellspacing="0" width="740" height="12" align="center"><tr><td height="12"></td></tr></table>
- <table border="1" cellspacing="0" cellpadding="0" align="center" width="740" style="border-collapse: collapse" bordercolor="#000000">
- <tr>
- <td align="center" height="20" bgcolor="#BDCBEE" width="70" >销售单号</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="168" >商品名称(规格)</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="121" >客户</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="30" >数量</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="24" >单位</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="50" >销售价</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="23" >折%</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="52" >进货价</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="55" >小计</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="45" >利润</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="25" >付款</td>
- <td align="center" height="20" bgcolor="#BDCBEE" width="61" >销售日期</td>
- </tr>
- <%
- end if
- loop
- rs1.close
- set rs1=nothing
- %>
- </table>
- <table border="1" cellpadding="0" cellspacing="0" width="740" height="20" align="center" style="border-collapse: collapse" bordercolor="#000000">
- <tr>
- <td><font color="#FF0000"><b>现金利润:</b></font><b><%=formatNumber(moncount2,varnum,-1)%></b> <%if moncount5<>"" then%><b><font color="#FF0000">欠款利润</font>:<%=formatNumber(moncount5,varnum,-1)%></b><%end if%> <%if moncount5<>"" then%><b><font color="#FF0000">毛利合计:</font><%=formatNumber(moncount5+moncount2,varnum,-1)%></b><%end if%></td>
- </tr>
- </table>
- <%
- end if
- conn.close
- set conn=nothing
- %>
- </BODY>
- </HTML>
ASP控制每页打印行数
2019-10-10 10:30asp代码网 ASP教程
ASP控制每页打印行数
延伸 · 阅读
- 2019-10-10Asp无组件上传进度条解决方案
- 2019-10-10用ASP实现分级权限控制
- 2019-10-10如何把ASP编写成DLL
- 2019-10-10asp程序错误详细说明例表
- 2019-10-10ASP生成静态htm页面基本代码
- 2019-10-10ASP在服务器自动解压RAR文件
精彩推荐
- ASP教程
ASP XML编程objXML.async = False
XML数据组合进ASP应用程序的时候,需要做的第一件事是访问XML文件的内容。 ...
- ASP教程
ASP隐藏真实文件的下载功能实现代码
将下边的文件保存为Download.asp就可以了,然后根据需要传要下载的文件过来就可以了。 ...
- ASP教程
SmartHTTP 简易HttpRequest类(ASP)
SmartHTTP 简易HttpRequest类(ASP),需要的朋友可以参考下。...
- ASP教程
用asp获取微软安全更新列表的代码 小偷程序
用asp获取微软安全更新列表的代码,其实就是小偷程序,原理比较简单,学习asp小偷程序的朋友可以参考下。更好的代码可以下载脚本之家提供的源码。...
- ASP教程
浅谈ASP数据库下载漏洞
没有完美的东西,所以有漏洞在所难免,漏洞产生后随之而来的就是各种应对的招数,比如改数据库的后缀、修改数据库的名字等等。很多人以为只要这么...
- ASP教程
asp 类型转换函数大全
asp 类型转换的实现函数 ...
- ASP教程
asp 实现的冒泡排序程序
asp 实现的冒泡排序程序程序代码,需要的朋友可以参考下。...
- ASP教程
asp取得数组中的最大值的方法
asp取得数组中的最大值的方法, 该函数的作用是取得一组数组中最大的一个值,非常实用且精典,值得收藏! ...