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

如何防止网页的复制和剪贴操作？

FDS — Mon, 27 Oct 2008 05:20:19 +0000

有时候，为了防止别人复制自己的网页内容，我们需要防止网页上的复制和剪贴操作，看看下面的例子。

<body oncopy="return false;" oncut="return false;"> 复制这些文字试试看效果。 </body>

提示：你可以先修改部分代码再运行。

如何禁止在网页中的粘贴动作？

FDS — Sun, 26 Oct 2008 12:57:50 +0000

如何禁止在网页中的粘贴动作？以下是一个例子，大家参考一下。

<body onpaste="return false"> <input value="">试着粘贴文字看看 </body>

提示：你可以先修改部分代码再运行。

如何禁止在网页选取来防止复制操作？

FDS — Fri, 24 Oct 2008 06:50:23 +0000

如何禁止在网页选取来防止复制操作？请看下面的实例。

<body onselectstart="return false"> 试着用鼠标选取文字看看。 </body>

提示：你可以先修改部分代码再运行。

如何彻底屏蔽网页鼠标右键菜单？

FDS — Thu, 23 Oct 2008 06:23:36 +0000

偶尔的时候，我会需要彻底屏蔽网页鼠标右键菜单，以下就是屏蔽网页鼠标右键菜单的方法。

<body oncontextmenu=return(false)> 用鼠标右键试试看效果呀。 </body>

提示：你可以先修改部分代码再运行。

FDS's Blog » 网页

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

如何防止网页的复制和剪贴操作？

如何禁止在网页中的粘贴动作？

如何禁止在网页选取来防止复制操作？

如何彻底屏蔽网页鼠标右键菜单？