|
1、引言
隨著Internet的飛速發展，許多企業都紛紛開發基于WEB的業務應用系統。一般情況下，基于WEB的業務應用都采用三層或三層以上的結構，前臺即客戶端是普通的WEB瀏覽器，中間業務邏輯應用層存放于WEB服務器上，由WEB服務器上的服務構件訪問后臺數據庫。為了業務系統與Internet的互聯，WEB服務器和數據庫系統均托管在IDC（互聯網數據中心），因而需要從托管在 IDC的服務器上提取業務數據在本地打印輸出。在客戶端瀏覽器只能打印簡單的HTML頁面的情況下，要求更為強大靈活的打印輸出功能；通過采用相關的技術對瀏覽器的功能進行擴展，能夠完成更復雜的數據打印的任務，如收條、回執等。筆者曾經為一網絡教育公司開發教育管理軟件時采用FileSystem組件實現在本地打印三聯收款憑證和準考證等的功能。
2、FileSystem組件使用簡介
FileSystem組件其實是一個ActiveX控件，其存在于WINDOWS平臺中（不管是Win98、Win2000，還是NT環境都包含該組件。），CLSID：0D43FE01-11CF-8940-00A0C9054228。熟悉ASP編程人可能都使用過FileSystem組件，一般情況下該組件用在服務器端，用來對文本文件、文件夾及驅動器進行訪問和控制。可以通過兩種方法創建FileSystem組件的對象實例：
1、使用ASP的內置對象SERVER的方法Server.CreateObject來創建服務器端對象的實例。
2、使用Vbscript腳本函數CreateObject來創建客戶端對象的實例（也可以在服務器端用該方法，但有時會出錯，一般不使用；）。
FileSystem組件對文本文件進行操作有如下方法：
CreateTextFile（Filename,[Overwrite if exists],[Unicode/ASCII]） //創建文本文件
OpenTextFile（Filename,[Input/output mode],[Create if not exists],[Format]） //打開文本文件
CopyFile（Filename1,Filename2,[Overwrite]） //拷貝文本文件
MoveFile (Filename1,Filename2) //移動文本文件
DeleteFile (Filename) //刪除文本文件
GetFile (Filename) //獲得文本文件
FileExists (Filename) //判斷文本文件是否存在
FileSystem組件對文件夾和驅動器也有和文本文件相類似的方法，在此不一一贅述。
其實，FileSystem組件也可使用于客戶端，采用創建FileSystem組件對象實例的第二種方法即可以使用該組件對客戶端系統的文本文件、文件夾及驅動器進行訪問和控制。因為微軟平臺帶有FileSystem組件，所以對于微軟平臺的客戶端則不需要從遠程服務器下載，其在安裝操作系統時會自己安裝并注冊；而對于其他平臺的客戶端則須安裝插件并下載FileSystem組件。
3、本地端特定打印的實現機制
利用FileSystem組件實現本地端特定打印的過程如圖所示：
<IMG SRC=http://cfan.net.cn/info/"http://www.computerworld.com.cn/htm/app/aprog/01_9_14_5.jpg" border=0>
1、客戶端向WEB服務器發送數據請求；
2、WEB服務器根據業務處理邏輯與后臺數據庫進行交互，取得所需數據形成HTML頁面，并附帶有FileSystem組件對象的VBScript腳本，向客戶端瀏覽器發回HTML頁面；
3、在客戶端運行腳本，腳本取得HTML頁面構件的數據，建立與打印機的連接，向打印機輸出打印數據。
前兩步與一般的WEB應用沒有什么區別，需要說明的是第三步：首先使用Vbscript腳本函數CreateObject來創建FileSystem組件對象的實例；然后調用該實例創建文本文件的CreateTextFile方法，把打印端口LPT1或LPT2作為文件名參數，并將可覆蓋文件參數設為TRUE，建立與打印機的連接；調用獲得的打印機文本文件流實例的寫文本方法WriteLine向打印機輸出打印的內容。
4、程序示例
客戶端腳本：
<script Language=VBScript>
function print_onclick //打印函數
dim label
label=document.printinfo.label.value //獲得HTML頁面的數據
set objfs=CreateObject("Scripting.FileSystemObject") //創建FileSystem組件對象的實例
set objprinter=objfs.CreateTextFile ("LPT1:",true) //建立與打印機的連接
objprinter.Writeline("__________________________________") //輸出打印的內容
objprinter.Writeline("| |")
objprinter.Writeline("| 您打印的數據是："&label& " |”)
objprinter.Writeline("| |")
objprinter.Writeline("|_________________________________|")
objprinter.close //斷開與打印機的連接
set objprinter=nothing
set objfs=nothing // 關閉FileSystem組件對象
end function
</script>
服務器端腳本：
<%………
set conn=server.CreateObject ("adodb.connection")
conn.Open "DSN=name;UID=XXXX;PWD=XXXX;"
set rs=server.CreateObject("adodb.recordset")
rs.Open(“select ……”),conn,1,1
……….%> //與數據庫進行交互
HTML頁面編碼：
<HTML>
………
<FORM ID=printinfo NAME="printinfo" >
<INPUT type="button" value="打印>>" id=print name=print > //調用打印函數
<INPUT type=hidden id=text1 name=label value=<%=………%>> //保存服務器端傳來的數據
………
</HTML>
5、說明及結論
1、使用此方法實現打印任務之前，必須調節瀏覽器的安全設置；在Internet選項上安全級別降低，對自己的站點充分信任，可以通過瀏覽器執行腳本訪問本機資源。
2、本方法可以實現在局域網的打印機上打印遠程服務器的數據，只須用局域網上打印機注冊在本地的端口代替本地打印機端口作為創建文本文件的CreateTextFile方法的參數即可。
3、本方法可以實現根據用戶選擇打印的寬度、高度和數量及內容，并可重復打印。
4、不需要編寫ActiveX控件即可以完成特定的打印功能，實現較為簡單。
5、不足之處是需要調節瀏覽器的安全設置，且不支持圖片和特殊字體的打印。
|
