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="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 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">&nbsp;<%=rs1("sellautoid")%></td>
<td height="18" width="168"><%=Decode(rs1("productname"))%>&nbsp;<%=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> &nbsp

点击复制链接 与好友分享!回本站首页
您对本文章有什么意见或着疑问吗?请到论坛讨论您的关注和建议是我们前行的参考和动力
上一篇:用ASP实现分级权限控制
下一篇:Asp无组件上传进度条解决方案
相关文章

ASP.NET编程中的十大技巧

利用ASP实现对Web主机硬盘文件的读写

用ASP实现远程批量文件改名

在ASP中利用COM组件开发Web应用程序

用ASP编程控制在IIS建立Web站点

ASP升级程序

ASP六大对象介绍

在ASP中使用Oracle数据库技巧

Asp中调用VB编写的DLL

ASP中页面限权访问的几种方法

图文推荐
ASP控制每页打印行数
How to create RE
ASP控制每页打印行数
以类为单位的编程思想
ASP控制每页打印行数
Asp.Mvc 2.0用户登录
ASP控制每页打印行数
Asp.Mvc 2.0用户登录

分类:默认分类 时间:2012-01-02 人气:7
本文关键词:
分享到:

相关文章

  • ASP.NET MVC3 增加.修改和删除操作实例 2012-01-01

    本文章来给各位同学详细介绍在ASP.NET MVC3中实现数据的一些增加、修改和删除操作实例,各位学习mvc的同学可参考。 我们再新建一个表,名字命名为"Contact",打开"AndroidDB.edmx"文件,右键选择"从数据库更新模型"。这个前边已经介绍过,这里就不多说,这样在实体层就创建了"Contact"类及它的属性。接下来,我们新添加一个名为"ContactController"的控制器类,用来显示我们的留言表单并实现留言功能。我们先看看Controller中的代码,如下: 代码如下

  • 解决错误 'ASP 0178 : 80070005' 2012-01-01

      Server 对象 错误 'ASP 0178 : 80070005'   Server.CreateObject 访问错误   检查权限时,对 Server.CreateObject 的调用失败。拒绝对此对象的访问。   重置应用:C:Program FilesCommon Files的所有权限 给予相应的IIS组 USER访问权限。

  • asp.net Repeater排序用的控件应用与详解 2012-01-03

    asp教程.net repeater排序用的控件应用与详解 .aspx页代码 如果使用网站形式,那么将.cs文件放在app_code下,如果是webapplication则随便扔在那个目录下都可以 /----------------导入控件(网站方式--动态编译)--------------------/ <%@ register namespace="f.studio.webcontrols" tagprefix="fs" %> :也可以在web.config中做个全局配置,这样就

  • asp.net开发的web系统,记录简单LOG的方法 2012-01-10

    asp.net开发的web系统,记录简单LOG(什么时间哪个用户访问了什么页面,点击了什么按钮)的方法 页面效果: 相关代码: ''' <summary> ''' 初期化 ''' </summary> ''' <param name="sender"></param> ''' <param name="e"></param> ''' <remarks></remarks> Protected Sub

  • 一步一步学asp.net_Ajax登录设计 2012-01-11

    Ajax登录设计 任务需求:做一个登录,拥有自动记住账号和密码的功能,要保证安全性,ajax,无刷新,良好的用户体验.(母板页) 这是前台页面,要求实现用户登录 首先我们分析, 用户需求: 1. 登录以后,登录框隐藏,并且欢迎登录的框显示,并且,左上角登录的按钮消失,安全退出显示. 2. 如果选择记住帐号和密码,下次登录直接登录,并且保证安全性. 实现过程: 首先,登录的时候发出ajax请求,用户验证登录,登录以后,保存当前用户名和密码到cookies中,注意,密码要用md5加密,md5是根据用

  • asp.net Repeater控件详解 2012-01-12

    repeater控件在三个asp教程.net数据web控件中提供了最大的灵活性:它呈现的html标记是可以指定的。datagrid 或 datalist 会在预设的 html 标记中自动包含开发人员指定的内容。与它们不同的是,repeater 在呈现的时候将严格生成指定的 html 标记。 因此,如果不想用 html < table> 或者一系列 < span> 标记显示数据,而希望以其他方式显示数据,就必须使用 repeater 控件。 就像 datalist 一样,使

  • asp连接sqlserver数据库实现代码 2012-01-13

    本文章介绍了利用asp连接sqlserver数据库实例代码,连接方法有三种分别为通过ODBC DSN建立连接,通过oledb建立连接 通过driver建立连接三种,下面我们来看看第一种。 通过driver建立连接 代码如下 复制代码 <% Const DataBaseType=1 If DataBaseType=0 then DBPath="/jb51/news.asp" SqlNowString = "Now()" ystr=true nstr=false suiji="rnd(id)"

  • asp.net中C#的global关键字用法 2012-01-22

    global关键字像在php,asp中都是全局变量,但是在asp.net中是什么用法呢,下面我来介绍global关键字用法与注意事项吧。 如下代码: 代码如下 复制代码 using System; using System.Collections.Generic; using System.Linq; using System.Text; namespace globalFunc { class Program { static void Main(string[] args) { System

  • ASP.NET MVC的流程讲解 2012-01-26

    开始想这个标题的时候,很是忧郁到底叫什么标题会比较好哪,最后还是确定为讲解,虽然略显初级,但是很多概念,想通了还是比较有价值的。废话略过,开始! 1、MVC的基本开发流程 2、webform和MVC的选择 3、MVC的内部过程 1、MVC的开发流程 MVC的出现时微软在2009年左右开始提出的网站开发的新的发展方向,这个方面的开发官方解释是可以比较好的实现三层分离,而且分离之后,可以实现复用等相关好处,通常人们列举的例子是ui方面可以同时支持HTML网络或者WAP网络。但是其实个人的理解是,动态

Copyright (C) quwantang.com, All Rights Reserved.

趣玩堂 版权所有 京ICP备15002868号

processed in 0.056 (s). 10 q(s)