使用到的技术：
ASP,WSH,VBScript
Contoh dari ASPPrint.asp adalah:
<%@ Bahasa=VBScript %>
<%
Opsi Eksplisit
Redupkan strKirim ' Formulir中用来保存提交按钮的值
Redupkan strPrinterPath ' Form中保存网络打印机路径的值
Redupkan strNama Pengguna ' Formulir中用户名的值
Redupkan strPassword ' Formulir中密码的值
Redupkan strMessage ' Formulir打印内容的值
Redupkan objek VBScript中的文件系统对象
Redupkan objWSHNet ' WSH中的网络对象
Redupkan objPrinter ' 打印对象
strSubmit = Permintaan.Formulir("Kirim")
%>
<HTML>
<KEPALA>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</KEPALA>
<TUBUH>
<%
Jika strSubmit = "" Lalu
%>
Keuntungan:
sistem operasi NT, sistem operasi NT, sistem operasi ASP, sistem operasi ASP, sistem operasi ASP, sistem operasi ASP, dan sistem operasi ASP中应该对该登录过程进行安全处理。
<FORM action="ASPPrint.asp" metode=POST id=nama formulir=form>
<LEBAR TABEL=100% ALIGN=tengah BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD ALIGN=kanan SEKARANG>网络打印机路径:</TD>
<TD ALIGN=kiri NOWRAP><INPUT type="text" id=printerpath name=printerpath value="\< Domain >< Printer >"></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>登录帐号:</TD>
<TD ALIGN=kiri SEKARANG><INPUT type="teks" id=nama pengguna nama=nama pengguna
value="<% = strNama Pengguna %>"></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>登录口令:</TD>
<TD ALIGN=kiri SEKARANG><INPUT type="password" id=nama password=password></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>请输入你想打印的文字:</TD>
<TD ALIGN=kiri NOWRAP><TEXTAREA row=2 cols=20 id=nama pesan=message></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=RAP SEKARANG> </TD>
<TD ALIGN=kiri NOWRAP><INPUT type="submit" value="Kirim" id=kirim nama=kirim></TD>
</TR>
</TABEL>
</FORM>
当以上信息被提交后,就可以按照下面的代码进行打印了。
<%
Kalau tidak
' 从form中取得响应信息。
strPrinterPath = Permintaan.Form("jalur printer")
strNama Pengguna = Permintaan.Form("nama pengguna")
strPassword = Permintaan.Formulir("kata sandi")
strMessage = Request.Form("message")
Sekarang kita akan menggunakan objek VBScript FileSystemObject dan objek kerja WSH Net. Objek Jaringan akan
beri kami metode yang kami perlukan untuk membuka koneksi printer, dan FileSystemObject akan memungkinkan kami melakukan streaming
keluaran ke printer. Kami membuat objek ini dalam kode berikut
contoh:
' 使用WSH连接网络打印机
Setel objWSHNet = CreateObject("WScript.Network")
objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, strUsername, strPassword
'使用文件系统对象将打印设备作为一个文件使用
Setel objFS = CreateObject("Scripting.FileSystemObject")
Setel objPrinter = objFS.CreateTextFile("LPT1:", Benar)
' 给打印设备送出文本
objPrinter.Write(strMessage)
'关闭打印设备对象并进行错误陷阱处理
Pada Kesalahan Lanjutkan Berikutnya
objPrinter.Tutup
' 如果发生错误，关闭打印连接，并输出错误信息
Jika Salah Lalu
Response.Write ("Kesalahan # " & CStr(Err.Nomor) & " " & Err.Deskripsi)
Err. Jelas
Kalau tidak
' 操作成功,输出确认信息
Respon.Tulis("<CENTER>")
Response.Write("<TABEL LEBAR=100% ALIGN=tengah BORDER=0 CELLSPACING=1 CELLPADDING=1>")
Response.Write("<TR><TD ALIGN=RIGHT><B>打印消息送出:</B></TD>")
Respon.Write("<TD ALIGN=LEFT>" & strMessage & "</TD></TR>")
Response.Write("<TR><TD ALIGN=RIGHT><B>网络打印机路径:</B></TD>")
Respon.Write("<TD ALIGN=LEFT>" & strPrinterPath & "</TD></TR>")
Response.Write("<TR><TD ALIGN=RIGHT><B>登录帐号:</B></TD>")
Response.Write("<TD ALIGN=LEFT>" & strNama Pengguna & "</TD></TR>")
Respon.Tulis("</TABLE>")
Respon.Tulis("</CENTER>")
Akhiri Jika
' 取消打印连接
objWSHNet.RemovePrinterConnection "LPT1:"
Setel objWSHNet = Tidak Ada
Setel objFS = Tidak Ada
Setel objPrinter = Tidak Ada
Akhiri Jika
%>
</BODI>
</HTML>