ASP控制每頁(yè)打印行數(shù)
<%
pagenum=55'指定打印行數(shù)
%>
<HTML>
<HEAD>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<TITLE>銷(xiāo)售利潤(rùn)明細(xì)報(bào)表打印</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頁(yè)&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">銷(xiāo)售利潤(rùn)匯總報(bào)表</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" >銷(xiāo)售單號(hào)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="168" >商品名稱(chēng)（規(guī)格）</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="121" >客戶(hù)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="30" >數(shù)量</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="24" >單位</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="50" >銷(xiāo)售價(jià)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="23" >折%</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="52" >進(jìn)貨價(jià)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="55" >小計(jì)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="45" >利潤(rùn)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="25" >付款</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="61" >銷(xiāo)售日期</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 '添加分頁(yè)標(biāo)記
%>
<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" >銷(xiāo)售單號(hào)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="168" >商品名稱(chēng)（規(guī)格）</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="121" >客戶(hù)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="30" >數(shù)量</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="24" >單位</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="50" >銷(xiāo)售價(jià)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="23" >折%</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="52" >進(jìn)貨價(jià)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="55" >小計(jì)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="45" >利潤(rùn)</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="25" >付款</td>
<td align="center" height="20" bgcolor="#BDCBEE" width="61" >銷(xiāo)售日期</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>現(xiàn)金利潤(rùn)：</b></font><b><%=formatNumber(moncount2,varnum,-1)%></b> <%if moncount5<>"" then%><b><font color="#FF0000">欠款利潤(rùn)</font>：<%=formatNumber(moncount5,varnum,-1)%></b><%end if%> <%if moncount5<>"" then%><b><font color="#FF0000">毛利合計(jì)：</font><%=formatNumber(moncount5+moncount2,varnum,-1)%></b><%end if%></td>
</tr>
</table>
<%
end if
conn.close
set conn=nothing
%>
</BODY>
</HTML>
- Windows 2003 IIS 6.0 搭建可建虛擬機(jī)的asp+.net+php+jsp+mysql+mssql
- asp循環(huán)行數(shù)輸出函數(shù)
- asp php 清空access mysql mssql數(shù)據(jù)庫(kù)的代碼
- ASP+MSSQL2000 數(shù)據(jù)庫(kù)被批量注入后的解決方法
- asp連接mssql2005的代碼
- asp刪除mssql數(shù)據(jù)庫(kù)中沒(méi)有記錄的圖片代碼
- asp實(shí)現(xiàn)的查詢(xún)某關(guān)鍵詞在MSSQL數(shù)據(jù)庫(kù)位置的代碼
- asp實(shí)現(xiàn)獲取MSSQL數(shù)據(jù)庫(kù)表指定條件行數(shù)的函數(shù)
相關(guān)文章
asp下使用數(shù)組存放數(shù)據(jù)的代碼...2007-11-11
asp jmail發(fā)郵件 詳細(xì)解析...2007-11-11
asp的程序能實(shí)現(xiàn)偽靜態(tài)化的方法
asp的程序能實(shí)現(xiàn)偽靜態(tài)化的方法...2007-03-03
web文件管理器的后續(xù)開(kāi)發(fā)...2007-03-03
LINE9的目錄瀏覽源程序...2006-08-08
完美解決PJ的Cookies保存時(shí)限問(wèn)題!可選擇記錄登陸時(shí)長(zhǎng)!
完美解決PJ的Cookies保存時(shí)限問(wèn)題!可選擇記錄登陸時(shí)長(zhǎng)!...2007-02-02
新增加一個(gè)防垃圾評(píng)論的asp代碼，鄙視垃圾
最近開(kāi)通了，可以發(fā)表評(píng)論就一直被垃圾評(píng)論和留言困擾，一直沒(méi)有找到很好的解決辦法。今天發(fā)現(xiàn)了這個(gè)可以防止垃圾評(píng)論的asp代碼,特提供給大家，希望大家能擺脫2007-12-12
在ASP中使用均速分頁(yè)法提高分頁(yè)速度的方法...2007-03-03
asp HTTP 500錯(cuò)誤 常見(jiàn)問(wèn)題分析
這個(gè)問(wèn)題一般錯(cuò)誤不是很大，大家可以參考下面的步驟解決。2009-03-03
這篇文章主要介紹了ASP中限制某些字符留言評(píng)論,原理就是通過(guò)instr函數(shù)查找。感覺(jué)很簡(jiǎn)單，寫(xiě)起來(lái)還是有點(diǎn)手生，感覺(jué)阿會(huì)南2014-07-07