快捷導(dǎo)航

ASP 精華源碼收集（五年總結(jié)）第14/20頁

更新時(shí)間：2008年10月20日 22:58:16 作者：

在5年的開發(fā)中，總結(jié)出來的一些源碼

關(guān)于這個(gè)組件還有其他的用法，列舉如下：
WebBrowser.ExecWB(1,1) 打開
Web.ExecWB(2,1) 關(guān)閉現(xiàn)在所有的IE窗口，并打開一個(gè)新窗口
Web.ExecWB(4,1) 保存網(wǎng)頁
Web.ExecWB(6,1) 打印
Web.ExecWB(7,1) 打印預(yù)覽
Web.ExecWB(8,1) 打印頁面設(shè)置
Web.ExecWB(10,1) 查看頁面屬性
Web.ExecWB(15,1) 好像是撤銷，有待確認(rèn)
Web.ExecWB(17,1) 全選
Web.ExecWB(22,1) 刷新
Web.ExecWB(45,1) 關(guān)閉窗體無提示
2、分頁打印
<HTML>
<HEAD>
<STYLE>
P {page-break-after: always}
</STYLE>
</HEAD>
<BODY>
<%while not rs.eof%>
<P><%=rs(0)%></P>
<%rs.movenext%>
<%wend%>
</BODY>
</HTML>
3、ASP頁面打印時(shí)如何去掉頁面底部的路徑和頂端的頁碼編號(hào)
（1）ie的文件->頁面設(shè)置->講里面的頁眉和頁腳里面的東西都去掉，打印就不出來了。
（2）<HTML>
<HEAD>
<TITLE> New Document </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="YC">
<script language="VBScript">
dim hkey_root,hkey_path,hkey_key
hkey_root="HKEY_CURRENT_USER"
hkey_path="\Software\Microsoft\Internet Explorer\PageSetup"
'//設(shè)置網(wǎng)頁打印的頁眉頁腳為空
function pagesetup_null()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
hkey_key="\footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,""
end function
'//設(shè)置網(wǎng)頁打印的頁眉頁腳為默認(rèn)值
function pagesetup_default()
on error resume next
Set RegWsh = CreateObject("WScript.Shell")
hkey_key="\header"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&w&b頁碼，&p/&P"
hkey_key="\footer"
RegWsh.RegWrite hkey_root+hkey_path+hkey_key,"&u&b&d"
end function
</script>
</HEAD>
<BODY>
<br/>
<br/>
<br/>
<br/>
<br/>
<br/><p align=center>
<input type="button" value="清空頁碼" onclick=pagesetup_null()> <input type="button" value="恢復(fù)頁嗎" onclick=pagesetup_default()><br/>
</p>
</BODY>
</HTML>
4、浮動(dòng)幀打印
<SCRIPT LANGUAGE=javascript>
function button1_onclick() {
var odoc=window.iframe1.document;
var r=odoc.body.createTextRange();
var stxt=r.htmlText;
alert(stxt)
var pwin=window.open("","print");
pwin.document.write(stxt);
pwin.print();
}
</SCRIPT>
4、用FileSystem組件實(shí)現(xiàn)WEB應(yīng)用中的本地特定打印
<script Language=VBScript>
function print_onclick //打印函數(shù)
dim label
label=document.printinfo.label.value //獲得HTML頁面的數(shù)據(jù)
set objfs=CreateObject("Scripting.FileSystemObject") //創(chuàng)建FileSystem組件對(duì)象的實(shí)例
set objprinter=objfs.CreateTextFile ("LPT1:",true) //建立與打印機(jī)的連接
objprinter.Writeline("__________________________________") //輸出打印的內(nèi)容
objprinter.Writeline(" ")
objprinter.Writeline(" 您打印的數(shù)據(jù)是："&label& " ”)
objprinter.Writeline(" ")
objprinter.Writeline("_________________________________")
objprinter.close //斷開與打印機(jī)的連接
set objprinter=nothing
set objfs=nothing // 關(guān)閉FileSystem組件對(duì)象
end function
</script>