当前位置: 首页 > 图文教程 > 网络编程 > ASP > ASP控制每页打印行数

ASP
ASP 3.0高级编程（二十七）
ASP 3.0高级编程（二十八）
ASP 3.0高级编程（二十九）
ASP 3.0高级编程（三十）
ASP中时间函数的使用(一)
ASP中时间函数的使用(二)
ASP中时间函数的使用(三)
.NET之ASP WebApplication快速入门(1)
.NET之ASP WebApplication快速入门(2)
.NET之ASP WebApplication快速入门(3)
.NET之ASP WebApplication快速入门(4)
.NET之ASP WebApplication快速入门(5)
asp.NET特写
ASP 3.0高级编程（七）
ASP 3.0高级编程（八）
ASP.NET 入门的五个步骤
ASP 组件指南
XML 数据的编码方式
ASP 3.0高级编程（九）
ASP 3.0高级编程（十）

No. « 147 148 149 150 »

技术文章搜索

关键字

ASP控制每页打印行数

出处:互联网   整理: 软晨网（RuanChen.com）   发布: 2009-09-13   浏览: 150 ::
收藏到网摘: n/a

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