ASP控制每页打印行数_应用技巧

 
<%
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>

时间： 2024-09-26 19:46:46

ASP控制每页打印行数_应用技巧的相关文章

ASP控制每页打印行数

打印|控制 <%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:#00

asp控制xml数据库的经典代码_应用技巧

NO.1--建立一个XML数据库data.xml <?xml version="1.0"?> <records> <record> <name>caca</name> <qq>154222225</qq> <email>root@3ney.com</email> </record> <records> NO.2--建立对象CreateObject 建立da

[水晶报表]RECORDNUMBER应用之控制每页显示行数及隔行换色.

控制|水晶报表|显示 经常有人问到如何限定每页显示行数的限定,还看到有人用拉高字段的方法.呵呵 下面简单说一下,其中公式用的是 Crystal语法,数据库用的是水晶报表自己带的Access数据库我以Orders表为例. 首先选几个字段作个简单的报表,,画个小格子,预览一下.每行的数据显示满页,共21页 我们限定每页显示10行 在设计节上点右键选"节专家",操作"详细资料"节.后面几步依图所示,加一个公式控制页面显示 再预览的时候,就发现已经是84页了,如我们所要:)

ASP.NET程序中常用代码汇总_实用技巧

1. 打开新的窗口并传送参数: //传送参数: response.write("<script>window.open('*.aspx?id="+this.DropDownList1.SelectIndex+"&id1="++"')</script>") //接收参数: string a = Request.QueryString("id"); string b = Request.QueryS

ASP分页类(支持多风格变换)_应用技巧

这个分页使用的是0游标,也就是Rs.Open Sql,Conn,0,1.但是感觉也快不了多少,10万条数据的分页时间300多豪秒之间. 复制代码 代码如下: <% '****************************** '名称:分页类 '日期:2005/12/3 '作者:西楼冷月 '网址:www.xilou.net | www.chinaCMS.org '描述:无 '版权:转载请注名出处,作者 '****************************** Class Page Priv

ASP脚本的执行顺序详细说明_应用技巧

首先我们先来了解一下ASP页面执行的流程 1.IIS找到ASP文件,提交给ASP引擎(一般是ASP.DLL)处理. 2.引擎打开这个ASP文件,找出<%和%>之间的内容,当然还有<script runAt="server">和对应的</script>之间的内容,这些内容称为脚本块.只有脚本块里的内容被引擎解析,其他内容不管,作为没有意义的字符插在脚本块之间.有必要说明一下的是,其实被解析的内容还不止这些,<!--#include ***--&g

asp.net Linq TO Sql 分页方法_实用技巧

分页方法 复制代码 代码如下: /// <summary> /// /// </summary> /// <typeparam name="T"></typeparam> /// <param name="replist">控件ID</param> /// <param name="DataSource">数据源</param> /// <par

ASP编码必备的8条原则_应用技巧

ASP是Active Server Page的缩写,意为"动态服务器页面".ASP是微软公司开发的代替CGI脚本程序的一种应用,它可以与数据库和其它程序进行交互,是一种简单.方便的编程工具.在这里仅就代码优化进行一些简单讨论. 1.声明VBScript变量 在ASP中,对vbscript提供了强劲的支持,能够无缝集成vbscript的函数.方法,这样给扩展ASP的现有功能提供了很大便利.由于ASP中已经模糊了变量类型的概念,所以,在进行ASP与vbscript交互的过程中,很多程序员也

不用模板只用ASP+FSO生成静态HTML页的一个方法_应用技巧

不用模板,只用ASP+FSO生成静态HTML页的一个方法(对于内容密集型页面特别适用)  转载请注明:转自http://goaler.xicp.net FSO生成静态HTML文件的时候替换模板标签一直是一个很麻烦的问题,至少我是这么认为的,还要别外做一个模板,麻烦!,我今天看见有一个方法可以解决这个问题 如一个正常的index.asp页面,并且用ASP代码调出数据库中的内容,另建一个makehtml.asp的页面,加入一个textarea域,假设为name="body",将index.