<%@ 言語=vbscript %>
<%
明示的なオプション
Dim strSubmit 'フォームに送信ボタンを保存するために使用される値
Dim strPrinterPath 'フォームに保存されたネットワーク プリンター パスの値
Dim strUsername 'フォーム内のユーザー名の値
Dim strPassword 'フォーム内のパスワードの値
Dim strMessage 'フォーム印刷内容の値
Dim objFS 'VBScript のファイル システム オブジェクト
Dim objWS.NET 'WSH のネットワーク オブジェクト
Dim objPrinter '印刷オブジェクト
strSubmit = リクエスト.フォーム(送信)
%>
<HTML>
<頭>
<META NAME=GENERATOR Content=microsoft Visual Studio 6.0>
</HEAD>
<本体>
<%
strSubmit = の場合
%>
ご了承ください：
これはデモンストレーションであるため、NT に関連するアカウント番号とパスワードは、暗号化されていない手段を使用して ASP に送信されます。
実際のアプリケーションでは、ログインプロセスは安全に処理される必要があります。
<FORM アクション=ASPPrint.asp メソッド=POST id=フォーム名=フォーム>
<TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD ALIGN=right NOWRAP>ネットワーク プリンタ パス:</TD>
<TD ALIGN=left NOWRAP><INPUT type=text id=printerpath name=printerpath
value=< ドメイン >< プリンター >></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>ログイン アカウント:</TD>
<TD ALIGN=left NOWRAP><INPUT type=text id=username name=username
値=<% = strユーザー名 %>></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>ログイン パスワード:</TD>
<TD ALIGN=left NOWRAP><INPUT type=password id=password
名前=パスワード></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>印刷するテキストを入力してください:</TD>
<TD ALIGN=left NOWRAP><TEXTAREA rows=2cols=20 id=message
名前=メッセージ></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=右ナウラップ> </TD>
<TD ALIGN=left NOWRAP><INPUT type=submit value=Submit
id=送信 名前=送信></TD>
</TR>
</テーブル>
</FORM>
上記の情報を送信したら、次のコードに従って印刷できます。
<%
それ以外
' フォームから応答情報を取得します。
strPrinterPath = Request.Form(プリンターパス)
strUsername = リクエスト.フォーム(ユーザー名)
strPassword = リクエスト.フォーム(パスワード)
strMessage = リクエスト.フォーム(メッセージ)
ここでは、VBScript FileSystemobject オブジェクトと WSH Network オブジェクトを使用します。
プリンター接続を開くために必要なメソッドを提供し、FileSystemObject を使用してファイルをストリーミングできるようにします。
次のコード例では、これらのオブジェクトを作成します。
objFS = CreateObject(Scripting.FileSystemObject) を設定します。
objWSHNet = CreateObject(WScript.Network) を設定します。
' WSH を使用してネットワーク プリンターに接続します
objWSHNet.AddPrinterConnection LPT1、strPrinterPath、False、strUsername、strPassword
'印刷デバイスをファイルとして使用するには、ファイル システム オブジェクトを使用します
objPrinter = objFS.CreateTextFile(LPT1:, True) を設定します。
'テキストを印刷デバイスに送信します
objPrinter.Write(strMessage)
'印刷デバイスオブジェクトを閉じてエラートラップ処理を実行します
エラー時は次へ再開
objPrinter.Close
' エラーが発生した場合は、印刷接続を閉じてエラー メッセージを出力します
エラーの場合はその後
Response.Write (エラー番号 & CStr(Err.Number) & & Err.Description)
エラークリア
それ以外
' 操作は成功し、確認メッセージが出力されます。
Response.Write(<CENTER>)
Response.Write(<TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING=1>)
Response.Write(<TR><TD ALIGN=RIGHT><B>送信されたメッセージを印刷:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strMessage & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>ネットワーク プリンタ パス:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strPrinterPath & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>ログイン アカウント:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strUsername & </TD></TR>)
Response.Write(</TABLE>)
Response.Write(</CENTER>)
終了する場合
'印刷接続をキャンセルします
objWSHNet.RemovePrinterConnection LPT1:
objWSHNet = なしを設定します
objFS = なしを設定します
objPrinter = なしを設定します
終了する場合
%>
</BODY>
</HTML>