極光下載站 - 打造齊全的綠色軟件家園

極光下載站

當前位置: 首頁 技術開發 ASP專區 WEB打印設置解決方案三

WEB打印設置解決方案三

時間:2005/9/4 12:23:49 作者:無從考證 人氣:48

 

程序代碼:
<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>


標簽
分享到:

公眾號

彩票平台大全