プログラムコード:
<スクリプト言語=VBScript>
Function print_onclick //印刷関数
薄暗いラベル
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 //プリンターから切断します
objprinter = nothing を設定します
Set objfs = nothing // FileSystem コンポーネント オブジェクトを閉じる
終了機能
</script>
サーバー側スクリプト:
<%
conn=server.CreateObject ("adodb.connection") を設定します
conn.Open "DSN=名前;UID=XXXX;PWD=XXXX;"
Set Rs =server.CreateObject("adodb.recordset")
Rs.Open("選択..."),conn,1,1
データベースと対話するための
HTML ページのエンコード
:
<HTML>
……
<FORM ID=printinfo NAME="printinfo" >
<INPUT type="button" value="Print>>" id=print name=print > //印刷関数を呼び出す
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> //サーバーから送信されたデータを保存
……
</HTML>