精华asp代码收集(二)(收集不是主要的,目的是鼓励参与和思考)

有人短消息问我,如何才可以得一星?下面为对话摘抄:
1、拍斑竹的“马”?呵呵,我和斑竹从未沟通过!
2、我是高手?非也,不过是我最早熟悉是有些经验,我现在基本不用了,我目前方向主要是c++/c和java了!我来asp版主要是觉得这里气氛不错!
3、你一定有很多这样的资料?呵呵,这你就猜对了,我收集的有关编程的资料呀,源码呀,电子书籍呀,都上几G了哟!其实学习就是积累不是么?
4、你是否看一下就知道答案是什么呢?非也,我也要思考,针对问题,我决不会把自己的收集的有关的“资料”一贴了事,我要思考是否对对方有帮助。
5、你觉得asp的前途如何?存在即合理,我想asp在短期内还会有他的价值所在的,但,你不妨学学jsp或asp.net,或许将来用得着。
6、你觉得做程序员最重要的是什么?激情。对工作、对程序、对人的激情。比如,在csdn,你很热情的帮助别人,也让自己进步了不是?
7、可以和你qq聊天么?呵呵,我的qq号基本不上,要不你去我的网站看看,上个月才把拙站搭起来,好多东东还是空的,有空你去我的论坛逛逛!(www.watch-life.net)

收集“精华”不是主要的,目的是鼓励参与和思考,你的思考和我的思考交换,不就成了“两个”思考了么?好了废话不说了,接着贴。
-----------------------------------------------
web打印的大全:

1、控制"纵打"、 横打”和“页面的边距。
(1)

 1<script defer="">   
 2function SetPrintSettings() {   
 3// -- advanced features   
 4factory.printing.SetMarginMeasure(2) // measure margins in inches   
 5factory.SetPageRange(false, 1, 3) // need pages from 1 to 3   
 6factory.printing.printer = "HP DeskJet 870C"   
 7factory.printing.copies = 2   
 8factory.printing.collate = true   
 9factory.printing.paperSize = "A4"   
10factory.printing.paperSource = "Manual feed"   
11  
12// -- basic features   
13factory.printing.header = "This is MeadCo"   
14factory.printing.footer = "Advanced Printing by ScriptX"   
15factory.printing.portrait = false   
16factory.printing.leftMargin = 1.0   
17factory.printing.topMargin = 1.0   
18factory.printing.rightMargin = 1.0   
19factory.printing.bottomMargin = 1.0   
20}   
21</script>

(2)

 1<script language="javascript">   
 2function printsetup(){   
 3// 打印页面设置   
 4wb.execwb(8,1);   
 5}   
 6function printpreview(){   
 7// 打印页面预览   
 8  
 9wb.execwb(7,1);   
10  
11  
12}   
13  
14function printit()   
15{   
16if (confirm('确定打印吗?')) {   
17wb.execwb(6,6)   
18}   
19}   
20</script>
 1<body>
 2<object classid="CLSID:8856F961-340A-11D0-A96B-00C04FD705A2" height="0" id="wb" name="wb" width="0"></object>
 3<input name="button_print" onclick="javascript:printit()" type="button" value="打印"/>
 4<input name="button_setup" onclick="javascript:printsetup();" type="button" value="打印页面设置"/>
 5<input name="button_show" onclick="javascript:printpreview();" type="button" value="打印预览"/>
 6<input name="button_fh" onclick="javascript:window.close();" type="button" value="关闭"/>   
 7  
 8\------------------------------------------------   
 9关于这个组件还有其他的用法,列举如下:   
10WebBrowser.ExecWB(1,1) 打开   
11Web.ExecWB(2,1) 关闭现在所有的IE窗口,并打开一个新窗口   
12Web.ExecWB(4,1) 保存网页   
13Web.ExecWB(6,1) 打印   
14Web.ExecWB(7,1) 打印预览   
15Web.ExecWB(8,1) 打印页面设置   
16Web.ExecWB(10,1) 查看页面属性   
17Web.ExecWB(15,1) 好像是撤销,有待确认   
18Web.ExecWB(17,1) 全选   
19Web.ExecWB(22,1) 刷新   
20Web.ExecWB(45,1) 关闭窗体无提示   
21  
222、分页打印   
23<html>
24<head>
25<style>   
26P {page-break-after: always}   
27</style>
28</head>
29<body>   

while not rs.eof

1<p>```
2=rs(0)
3```</p>   

rs.movenext

wend

 1</body>
 2</html>   
 3  
 43、ASP页面打印时如何去掉页面底部的路径和顶端的页码编号   
 5(1)ie的文件-〉页面设置-〉讲里面的页眉和页脚里面的东西都去掉,打印就不出来了。   
 6(2)<html>
 7<head>
 8<title> New Document </title>
 9<meta content="EditPlus" name="Generator"/>
10<meta content="YC" name="Author"/>
11<script language="VBScript">   
12dim hkey_root,hkey_path,hkey_key   
13hkey_root="HKEY_CURRENT_USER"   
14hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"   
15'//设置网页打印的页眉页脚为空   
16function pagesetup_null()   
17on error resume next   
18Set RegWsh = CreateObject("WScript.Shell")   
19hkey_key="\header"   
20RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""   
21hkey_key="\footer"   
22RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""   
23end function   
24'//设置网页打印的页眉页脚为默认值   
25function pagesetup_default()   
26on error resume next   
27Set RegWsh = CreateObject("WScript.Shell")   
28hkey_key="\header"   
29RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b页码,&p/&P"   
30hkey_key="\footer"   
31RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"   
32end function   
33</script>
34</head>
35<body>
36<br/>
37<br/>
38<br/>
39<br/>
40<br/>
41<br/><p align="center">
42<input onclick="pagesetup_null()" type="button" value="清空页码"/> <input onclick="pagesetup_default()" type="button" value="恢复页吗"/><br/>
43</p>
44</body>
45</html>   
464、浮动帧打印   
47<script language="javascript"></script></body>
Published At
Categories with Web编程
Tagged with
comments powered by Disqus