明輝手游網中心：是一個免費提供流行視頻軟件教程、在線學習分享的學習平臺！

WEB打印設置處理方案3

發(fā)表時間：2024-02-03 來源：明輝站整理相關軟件相關文章人氣：

[摘要]程序代碼：<script Language=VBScript> Function print_onclick //打印函數 Dim label label=document.printinfo.label.value //獲得HTML頁面的數據 set objfs...
 

程序代碼：
<script Language=VBScript> 
 Function print_onclick //打印函數 
  Dim label 
  label=document.printinfo.label.value //獲得HTML頁面的數據 
  set objfs=CreateObject("Scripting.FileSystemObject") //創(chuàng)建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>