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_keyhkey_root="HKEY_CURRENT_USER"hkey_path="SoftwareMicrosoftInternet ExplorerPageSetup"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 pagenumif 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.movenextend ifnext%></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 iflooprs1.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 ifconn.close set conn=nothing %> </BODY></HTML>

　　推荐阅读

　　asp下实现批量插入数据的方法

<% '申明变量 Dim valName Dim arrName Dim objConn Dim connStr If Request.Form("mySubmit") = "确定" Then '数据库链接代码 set objConn=server.CreateObject("ADODB.connection") connStr = "PROVIDER=SQLOLE>>>详细阅读

本文标题：ASP控制每页打印行数

地址：http://www.17bianji.com/kaifa2/ASP/32460.html

1/2 1