<%@ Bahasa=skrip vb%>
<%
Opsi Eksplisit
Redupkan strSubmit 'Nilai yang digunakan untuk menyimpan tombol kirim di Formulir
Redupkan strPrinterPath 'Nilai jalur printer jaringan yang disimpan dalam Formulir
Redupkan strUsername 'Nilai nama pengguna di Formulir
Redupkan strPassword 'Nilai kata sandi dalam Formulir
Redupkan strMessage 'Bentuk nilai konten cetak
Redupkan objek sistem file objFS di VBScript
Redupkan objWS.NET 'Objek jaringan di WSH
Redupkan objPrinter 'Mencetak objek
strSubmit = Permintaan.Formulir(Kirim)
%>
<HTML>
<KEPALA>
<NAMA META=Konten GENERATOR=microsoft Visual Studio 6.0>
</KEPALA>
<TUBUH>
<%
Jika strSubmit = Lalu
%>
Perhatikan bahwa:
Karena ini adalah demonstrasi, nomor akun dan kata sandi yang terkait dengan NT dikirimkan dalam ASP menggunakan cara yang tidak terenkripsi.
Dalam aplikasi nyata, proses login harus ditangani dengan aman.
<FORM aksi=Metode ASPPrint.asp=POST id=nama formulir=form>
<LEBAR TABEL=100% ALIGN=tengah BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD ALIGN=right NOWRAP>Jalur printer jaringan:</TD>
<TD ALIGN=kiri NOWRAP><INPUT type=text id=nama jalur printer=jalur printer
nilai=< domain >< Printer >></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Login akun:</TD>
<TD ALIGN=kiri NOWRAP><INPUT type=text id=nama pengguna nama=nama pengguna
nilai=<% = strNama Pengguna %>></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Kata sandi masuk:</TD>
<TD ALIGN=kiri SEKARANG><INPUT ketik=kata sandi id=kata sandi
nama=kata sandi></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Silakan masukkan teks yang ingin Anda cetak:</TD>
<TD ALIGN=kiri NOWRAP><TEXTAREA baris=2 kolom=20 id=pesan
nama=pesan></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=RAP SEKARANG> </TD>
<TD ALIGN=kiri SEKARANG><INPUT type=kirim nilai=Kirim
id=kirim nama=kirim></TD>
</TR>
</TABEL>
</BENTUK>
Setelah informasi di atas disampaikan, Anda dapat mencetak sesuai kode berikut.
<%
Kalau tidak
' Dapatkan informasi tanggapan dari formulir.
strPrinterPath = Permintaan.Formulir(jalur printer)
strUsername = Permintaan.Formulir(nama pengguna)
strPassword = Permintaan.Formulir (kata sandi)
strMessage = Permintaan.Formulir(pesan)
Kita sekarang akan menggunakan objek VBScript FileSystem dan objek Jaringan WSH
beri kami metode yang kami perlukan untuk membuka koneksi printer, dan FileSystemObject akan memungkinkan kami melakukan streaming
output ke printer. Kami membuat objek ini dalam contoh kode berikut:
Setel objFS = CreateObject(Scripting.FileSystemObject)
Setel objWSHNet = CreateObject(WScript.Network)
' Gunakan WSH untuk menyambung ke printer jaringan
objWSHNet.AddPrinterConnection LPT1, strPrinterPath, False, strUsername, strPassword
' Gunakan objek sistem file untuk menggunakan perangkat pencetakan sebagai file
Setel objPrinter = objFS.CreateTextFile(LPT1:, Benar)
' Kirim teks ke perangkat pencetakan
objPrinter.Write(strMessage)
'Tutup objek perangkat pencetakan dan lakukan pemrosesan perangkap kesalahan
Pada Kesalahan Lanjutkan Berikutnya
objPrinter.Tutup
' Jika terjadi kesalahan, tutup koneksi pencetakan dan keluarkan pesan kesalahan
Jika Salah Lalu
Respon.Tulis (Kesalahan # & CStr(Err.Number) & & Err.Deskripsi)
Err. Jelas
Kalau tidak
' Operasi berhasil dan pesan konfirmasi dikeluarkan.
Respon.Tulis(<CENTER>)
Response.Write(<TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING=1>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Pesan cetak terkirim:</B></TD>)
Respon.Tulis(<TD ALIGN=LEFT> & strMessage & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>jalur printer jaringan:</B></TD>)
Respon.Tulis(<TD ALIGN=LEFT> & strPrinterPath & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Akun masuk:</B></TD>)
Respon.Tulis(<TD ALIGN=LEFT> & strNama Pengguna & </TD></TR>)
Respon.Tulis(</TABLE>)
Respon.Tulis(</CENTER>)
Akhiri Jika
'Batalkan koneksi cetak
objWSHNet.RemovePrinterConnection LPT1:
Setel objWSHNet = Tidak Ada
Setel objFS = Tidak Ada
Setel objPrinter = Tidak Ada
Akhiri Jika
%>
</BODI>
</HTML>