ASP控制每页打印行数的方法

FDS — Mon, 11 May 2009 10:12:27 +0000

在日常工作中，打印文档经常要使用，但是网页打印起来大部分都是不能控制的，这里分享一个用 ASP控制每页打印行数的方法。也许对你有一点点的启发哦！<%
pagenum=55′指定打印行数
%>

销售利润明细报表打印

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

销售利润汇总报表

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

销售单号

商品名称（规格）

客户

数量

单位

销售价

折%

进货价

小计

利润

付款

销售日期

<%
moncount2=0
moncount5=0
Do while not rs1.eof
%>

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














<%
rs1.movenext
end if
next
%>

<%=rs1(“sellautoid”)%>

<%=Decode(rs1(“productname”))%> <%=rs1(“productsize”)%>

<%=left(rs1(“gongshang”),9)%>

<%=rs1(“productnum”)%>

<%=rs1(“productdan”)%>

<%=formatNumber(rs1(“chaoshi”),varnum,-1)%>

<%=rs1(“youhui”)%>

<%=formatNumber(rs1(“productjia”),varnum,-1)%>

<%=formatNumber(rs1(“moncount1″),varnum,-1)%>

<%=formatNumber(rs1(“lirun1″),varnum,-1)%>

<%if trim(rs1(“fukuan”))=”欠款” then%><%=rs1(“fukuan”)%><%else%><%=rs1(“fukuan”)%><%end if%>

<%=rs1(“indate”)%>

<%
if not rs1.eof and i=pagenum+1 then ‘添加分页标记
%>

<%
end if
loop
rs1.close
set rs1=nothing
%>

销售单号

商品名称（规格）

客户

数量

单位

销售价

折%

进货价

小计

利润

付款

销售日期

现金利润：<%=formatNumber(moncount2,varnum,-1)%> <%if moncount5<>”" then%>欠款利润：<%=formatNumber(moncount5,varnum,-1)%><%end if%> <%if moncount5<>”" then%>毛利合计：<%=formatNumber(moncount5+moncount2,varnum,-1)%><%end if%>

<%
end if
conn.close
set conn=nothing
%>

3个步骤来实现asp模块化分页

FDS — Mon, 13 Apr 2009 14:40:20 +0000

通过3个步骤来实现模块化分页，1、查询语句块，2、显示记录块，3、输出分页效果

1、查询语句块

<%
取得当前文件名
temp = Split(request.ServerVariables(“URL”), “/”)
fy = temp(UBound(temp))
set rs=server.createobject(“adodb.recordset”)
if not isempty(request(“page”)) then
pagecount=cint(request(“page”))
else
pagecount=1
end if
sql=”select 查询语句”
rs.open sql,conn,1,1
rs.pagesize=10 分页记录数
if pagecount>rs.pagecount or pagecount<=0 then
pagecount=1
end if
if rs.eof and rs.bof then%>

对不起，没有符合搜索条件的记录！

2、显示记录块

<%
else
rs.AbsolutePage=pagecount
do while not rs.eof %>

显示的记录

<% i=i+2
rs.movenext
if i>=rs.PageSize then exit do
loop
%>

3、输出分页效果

    <% if rs.pagecount=1 then %>


    <%else%>

    >






<% end if %>
<% end if %>
共有[<%=rs.recordcount%>]条信息当前显示第 1～<%=rs.recordcount%>条

      <% page_start=(pagecount-1)*rs.pagesize
            if pagecount=1 then page_start=1
      page_end=rs.pagesize*pagecount
      if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
      共有[<%=rs.recordcount%>]信息
          <%
    if pagecount>5 and pagecount< rs.PageCount-5 and rs.pagecount>10 then
    qizu=pagecount-4
    min=pagecount+5
    response.write “首页 ”
    response.write “上一页 ”
    for ipage=qizu to min
             if ipage<>pagecount then
             response.write “”+cstr(ipage)+” ”
             else
             response.write “”&ipage&” “
             end if
    next
    response.write “下一页 ”
    response.write “尾页”
    end if
    if rs.PageCount<11 then
    for ipage=1 to rs.PageCount
             if ipage<>pagecount then
             response.write “”+cstr(ipage)+” ”
             else
             response.write “”&ipage&” “
             end if
    next
    end if
    if pagecount < 6 and rs.PageCount>10 then
    for ipage=1 to 10
             if ipage<>pagecount then
             response.write “”+cstr(ipage)+” ”
             else
             response.write “”&ipage&” “
             end if
    next
    response.write “尾页”
    end if
    if pagecount>rs.PageCount-6 and rs.PageCount>10 then
    response.write “首页 ”
    for ipage=rs.PageCount-9 to rs.PageCount
             if ipage<>pagecount then
             response.write “”+cstr(ipage)+” ”
             else
             response.write “”&ipage&” “
             end if
    next
    end if
             %>


   ”>”>”>”>”> 转到第
   页

共有[<%=rs.recordcount%>]条信息当前显示第 1～<%=rs.recordcount%>条
<% page_start=(pagecount-1)rs.pagesize if pagecount=1 then page_start=1 page_end=rs.pagesizepagecount if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%> 共有[<%=rs.recordcount%>]信息	<% if pagecount>5 and pagecount< rs.PageCount-5 and rs.pagecount>10 then qizu=pagecount-4 min=pagecount+5 response.write “首页 ” response.write “上一页 ” for ipage=qizu to min if ipage<>pagecount then response.write “”+cstr(ipage)+” ” else response.write “”&ipage&” “ end if next response.write “下一页 ” response.write “尾页” end if if rs.PageCount<11 then for ipage=1 to rs.PageCount if ipage<>pagecount then response.write “”+cstr(ipage)+” ” else response.write “”&ipage&” “ end if next end if if pagecount < 6 and rs.PageCount>10 then for ipage=1 to 10 if ipage<>pagecount then response.write “”+cstr(ipage)+” ” else response.write “”&ipage&” “ end if next response.write “尾页” end if if pagecount>rs.PageCount-6 and rs.PageCount>10 then response.write “首页 ” for ipage=rs.PageCount-9 to rs.PageCount if ipage<>pagecount then response.write “”+cstr(ipage)+” ” else response.write “”&ipage&” “ end if next end if %>	”>”>”>”>”> 转到第页

FDS's Blog » 分页

ASP控制每页打印行数的方法

3个步骤来实现asp模块化分页