服务器之家：专注于服务器技术及软件下载分享
分类导航

PHP教程|ASP.NET教程|Java教程|ASP教程|编程技术|正则表达式|C/C++|IOS|C#|Swift|Android|VB|R语言|JavaScript|易语言|vb.net|

香港云服务器
服务器之家 - 编程语言 - ASP教程 - ASP控制每页打印行数

ASP控制每页打印行数

2019-10-10 10:30asp代码网 ASP教程

ASP控制每页打印行数

  1. <% 
  2. pagenum=55'指定打印行数 
  3. %> 
  4. <HTML> 
  5. <HEAD> 
  6. <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
  7. <TITLE>销售利润明细报表打印</TITLE> 
  8. <style type="text/css"> 
  9. td {font-size:9pt; color:#000000} 
  10. A{text-decoration:none} 
  11. A:hover{color:#FF0000;text-decoration:derline}  
  12. .break{page-break-before:always} 
  13. </style> 
  14. </HEAD> 
  15. <script language="javascript"> 
  16. window.print() 
  17. </script> 
  18. <BODY style="border:none" topmargin="0" leftmargin="6" onload="javascrpt:pagesetup_default();"> 
  19. <script language="VbScript"> 
  20. dim hkey_root,hkey_path,hkey_key 
  21. hkey_root="HKEY_CURRENT_USER" 
  22. hkey_path="\Software\Microsoft\Internet Explorer\PageSetup" 
  23. function pagesetup_default() 
  24.     on error resume next 
  25.     Set RegWsh = CreateObject("WScript.Shell") 
  26.     hkey_key="\header"     
  27.     RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&b页&p/&P" 
  28.     hkey_key="\footer" 
  29.     RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"" 
  30. end function 
  31. </script> 
  32.  
  33. <% 
  34. kdname1=trim(request("kdname1")) 
  35. kdname2=trim(request("kdname2")) 
  36. keyword1=trim(request("keyword1")) 
  37. keyword2=trim(request("keyword2")) 
  38.  
  39.  if keyword1<>"" then 
  40.  today=keyword1 
  41.  else 
  42.  if kdname1="" then 
  43.  today=year(date())&"-"&month(date()) 
  44.  else 
  45.  today=kdname1&"至"&kdname2 
  46.  end if 
  47.  end if 
  48. %> 
  49.   <table border="0" cellspacing="0" cellpadding="0" align="center" width="740"  height="30"> 
  50.     <tr> 
  51.       <td align="center">销售利润汇总报表</td> 
  52.     </tr> 
  53.   </table> 
  54.  
  55. <%   
  56.  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"              
  57.  set rs1=server.createobject("adodb.recordset")               
  58.  rs1.open strSQL,conn,1,1  
  59. %>                
  60.   <table border="1" cellspacing="0" cellpadding="0" align="center" style="border-collapse: collapse"  bordercolor="#000000" width="740">              
  61.     <tr>              
  62.       <td align="center" height="20" bgcolor="#BDCBEE" width="70" >销售单号</td>              
  63.       <td align="center" height="20" bgcolor="#BDCBEE" width="168" >商品名称（规格）</td>              
  64.       <td align="center" height="20" bgcolor="#BDCBEE" width="121" >客户</td>              
  65.       <td align="center" height="20" bgcolor="#BDCBEE" width="30" >数量</td>              
  66.       <td align="center" height="20" bgcolor="#BDCBEE" width="24" >单位</td>              
  67.       <td align="center" height="20" bgcolor="#BDCBEE" width="50" >销售价</td>              
  68.       <td align="center" height="20" bgcolor="#BDCBEE" width="23" >折%</td>              
  69.       <td align="center" height="20" bgcolor="#BDCBEE" width="52" >进货价</td>              
  70.       <td align="center" height="20" bgcolor="#BDCBEE" width="55" >小计</td>              
  71.       <td align="center" height="20" bgcolor="#BDCBEE" width="45" >利润</td>              
  72.       <td align="center" height="20" bgcolor="#BDCBEE" width="25" >付款</td>              
  73.       <td align="center" height="20" bgcolor="#BDCBEE" width="61" >销售日期</td>              
  74.     </tr>  
  75.   </table> 
  76. <%              
  77.   moncount2=0              
  78.   moncount5=0              
  79.   Do while not rs1.eof   
  80. %> 
  81. <table border="1" cellpadding="0" cellspacing="0" width="740" align="center" style="border-collapse:collapse; font-size:10pt;color:#000000" bordercolor="#000000"> 
  82. <% 
  83. for i=1 to pagenum 
  84. if not rs1.eof then 
  85.   if trim(rs1("fukuan"))="欠款" then              
  86.   moncount6=Csng(rs1("lirun1"))              
  87.   moncount5=moncount5+moncount6              
  88.   else              
  89.   moncount3=Csng(rs1("lirun1"))              
  90.   moncount2=moncount2+moncount3              
  91.   end if   
  92. %>       
  93.     <tr>              
  94.       <td height="18" width="70"> <%=rs1("sellautoid")%></td>              
  95.       <td height="18" width="168"><%=Decode(rs1("productname"))%> <%=rs1("productsize")%></td>              
  96.       <td height="18" width="121"><%=left(rs1("gongshang"),9)%></td>             
  97.       <td height="18" width="30" align="center"><%=rs1("productnum")%></td>             
  98.       <td height="18" width="24" align="center"><%=rs1("productdan")%></td>             
  99.       <td height="18" width="50" align="right"><%=formatNumber(rs1("chaoshi"),varnum,-1)%></td>             
  100.       <td height="18" width="23" align="center"><%=rs1("youhui")%></td>             
  101.       <td height="18" width="52" align="right"><%=formatNumber(rs1("productjia"),varnum,-1)%></td>             
  102.       <td height="18" width="55" align="right"><%=formatNumber(rs1("moncount1"),varnum,-1)%></td>             
  103.       <td height="18" width="45" align="right"><%=formatNumber(rs1("lirun1"),varnum,-1)%></td>             
  104.       <td align="center" height="18" width="25"><%if trim(rs1("fukuan"))="欠款" then%><font color=blue><%=rs1("fukuan")%></font><%else%><%=rs1("fukuan")%><%end if%></td>             
  105.       <td height="18" width="61"><%=rs1("indate")%></td>             
  106.     </tr>  
  107. <% 
  108. rs1.movenext 
  109. end if 
  110. next 
  111. %> 
  112. </table> 
  113. <% 
  114. if not rs1.eof and i=pagenum+1 then '添加分页标记 
  115. %> 
  116.   <div class="break"> </div> 
  117.   <table border="0" cellpadding="0" cellspacing="0" width="740" height="12" align="center"><tr><td height="12"></td></tr></table> 
  118.   <table border="1" cellspacing="0" cellpadding="0" align="center" width="740" style="border-collapse: collapse"  bordercolor="#000000">  
  119.     <tr>              
  120.       <td align="center" height="20" bgcolor="#BDCBEE" width="70" >销售单号</td>              
  121.       <td align="center" height="20" bgcolor="#BDCBEE" width="168" >商品名称（规格）</td>              
  122.       <td align="center" height="20" bgcolor="#BDCBEE" width="121" >客户</td>              
  123.       <td align="center" height="20" bgcolor="#BDCBEE" width="30" >数量</td>              
  124.       <td align="center" height="20" bgcolor="#BDCBEE" width="24" >单位</td>              
  125.       <td align="center" height="20" bgcolor="#BDCBEE" width="50" >销售价</td>              
  126.       <td align="center" height="20" bgcolor="#BDCBEE" width="23" >折%</td>              
  127.       <td align="center" height="20" bgcolor="#BDCBEE" width="52" >进货价</td>              
  128.       <td align="center" height="20" bgcolor="#BDCBEE" width="55" >小计</td>              
  129.       <td align="center" height="20" bgcolor="#BDCBEE" width="45" >利润</td>              
  130.       <td align="center" height="20" bgcolor="#BDCBEE" width="25" >付款</td>              
  131.       <td align="center" height="20" bgcolor="#BDCBEE" width="61" >销售日期</td>              
  132.     </tr>  
  133. <% 
  134. end if 
  135. loop 
  136. rs1.close      
  137. set rs1=nothing      
  138. %>   
  139. </table>   
  140.   <table border="1" cellpadding="0" cellspacing="0" width="740" height="20" align="center" style="border-collapse: collapse"  bordercolor="#000000"> 
  141.     <tr>             
  142.        <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>             
  143.      </tr>    
  144.    </table>             
  145. <% 
  146. end if 
  147. conn.close  
  148. set conn=nothing  
  149. %>  
  150.  
  151. </BODY> 
  152. </HTML> 
  • 打印
  • 行数
  • asp

    • 延伸 · 阅读

    精彩推荐
    最近更新
    编辑推荐
    阅读排行
    热门标签
    内置对象 　 生成页面 　 while 　 if 　 多行注释 　 recordset 　 adodb 　 广告 　 问题 　 WebService 　 设置管理 　 日志管理 　 ABP 　 ViewState 　 Application 　 Session 　 动态 　 Webform 　 Conn.Execute 　 Rs.Open 　 vbs 　 FormatDate 　 日期格式化 　 返回 　 信息提示 　 asp代码 　 Weekday 　 错误捕获 　 在线压缩 　 网页 　
    © 2019-2025 服务器之家(www.zzvips.com) 版权所有关于我们联系我们版权申明网站地图
    555