仓酷云

标题: ASP网站制作之ASP把持每页打印行数 [打印本页]

作者: 飘灵儿 时间: 2015-1-16 23:38
标题: ASP网站制作之ASP把持每页打印行数
缺点：安全性不是太差了，还行，只要你充分利用系统自带的工具；唯一缺点就是执行效率慢，如何进行网站优化以后，效果会比较好。打印|把持<%
pagenum=55指定打印行数
%>
<HTML>
<HEAD>
<metahttp-equiv="Content-Type"content="text/html;charset=gb2312">
<TITLE>发卖利润明细报表打印</TITLE>
<styletype="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>
<scriptlanguage="javascript">
window.print()
</script>
<BODYstyle="border:none"topmargin="0"leftmargin="6"onload="javascrpt:pagesetup_default();">
<scriptlanguage="VbScript">
dimhkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="SoftwareMicrosoftInternetExplorerPageSetup"
functionpagesetup_default()
onerrorresumenext
SetRegWsh=CreateObject("WScript.Shell")
hkey_key="header"
RegWsh.RegWritehkey_root+hkey_path+hkey_key,"&b页&p/&P"
hkey_key="footer"
RegWsh.RegWritehkey_root+hkey_path+hkey_key,""
endfunction
</script>

<%
kdname1=trim(request("kdname1"))
kdname2=trim(request("kdname2"))
keyword1=trim(request("keyword1"))
keyword2=trim(request("keyword2"))

ifkeyword1""then
today=keyword1
else
ifkdname1=""then
today=year(date())&"-"&month(date())
else
today=kdname1&"至"&kdname2
endif
endif
%>
<tableborder="0"cellspacing="0"cellpadding="0"align="center"width="740"height="30">
<tr>
<tdalign="center">发卖利润汇总报表</td>
</tr>
</table>

<%
strSQL="selectautoid,sellautoid,productxili,productname,productsize,productnum,productdan,productjia,chaoshi,tiaoma,youhui,fukuan,moncount1,gongshang,lirun1,username,indate,fudatefromsellwhereofficename="&trim(request.cookies("Myoffice"))&"andmonthjie=0and(year(indate)=year(getdate())andmonth(indate)=month(getdate()))andzhuofeiisnullorderbyautoiddesc"
setrs1=server.createobject("adodb.recordset")
rs1.openstrSQL,conn,1,1
%>
<tableborder="1"cellspacing="0"cellpadding="0"align="center"style="border-collapse:collapse"bordercolor="#000000"width="740">
<tr>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="70">发卖单号</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="168">商品称号（规格）</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="121">客户</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="30">数目</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="24">单元</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="50">发卖价</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="23">折%</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="52">进货价</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="55">小计</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="45">利润</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="25">付款</td>
<tdalign="center"height="20"bgcolor="#BDCBEE"width="61">发卖日期</td>
</tr>
</table>
<%
moncount2=0
moncount5=0</p>帮助用户快速实现各种应用服务，ASP商有整合各方面资源的能力，可在短期内为用户提供所需的解决方案。例如，典型的ERP安装，如果要在客户端安装的话需要半年到二年的时间，但是美国的一些ASP商如USI和CORIO能在90—120天内提供ERP应用方案。

作者: 莫相离 时间: 2015-1-24 12:46
多看多学多思。多看一些关于ASP的书籍，一方面可以扩展知识面一方面可以鉴借别人是如何掌握、运用ASP的;多学善于关注别人，向同学老师多多学习，不论知识的大小;多思则是要将学到的知识灵活运用。

作者: 海妖 时间: 2015-1-27 06:14
掌握asp的特性而且一定要知道为什么。

作者: 小女巫 时间: 2015-2-5 00:16
下载一个源代码，然后再下载一个VBScript帮助，在源代码中遇到不认识的函数或是其他什么程序，都可以查帮助进行解决，这样学习效率很高。

作者: 小魔女 时间: 2015-2-11 00:00
还有如何才能在最短的时间内学完?我每天可以有效学习2小时，双休日4小时。

作者: 灵魂腐蚀 时间: 2015-3-1 18:13
作为IE上广为流传的动态网页开发技术,ASP以它简单易学博得了广大WEB程序爱好这的青睐,而且它对运行环境和开发品台的不挑剔,以及有大量有效的参考手册,极大的推广了它的发展。

作者: 不帅 时间: 2015-3-10 21:48
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 柔情似水 时间: 2015-3-17 10:53
你可以通过继承已有的对象最大限度保护你以前的投资。并且C#和C++、Java一样提供了完善的调试/纠错体系。

作者: 爱飞 时间: 2015-3-24 07:47
ASP的语言不仅仅只是命令格式差不多，而是包含在<%%>之内的命令完全就是VB语法。虽然ASP也是做为单独的一个技术来提出的，但他就是完全继承了VB所有的功能。

欢迎光临仓酷云 (http://ckuyun.com/)