用ASP进行网络打印功能

option explicit
用于保存dimstr submit' form中提交按钮的值
用于保存dimstrprinter path' form中网络打印机路径的值
dimstrusername ' Form中用户名的值
dimstrpassword ' Form中密码的值
dimstrmessage ' Form中打印内容的值
dimobjfs ' VBScript中文件系统对象
中网络对象
% >




注意:由于这是演示，所以nt的帐号



网络打印机路径:
\ < Printer > " >



]登录帐号:
" >登录密码:

]请输入您要打印的文本
strpre path = Request。form(" printer path ")
struser name = Request。form(" username ")
strPassword = Request。form(" password ")
strMessage = Request。表单(“消息”)

我们现在将使用VBScript文件系统对象和WSH网络对象。网络对象将为我们提供打开打印机连接所需的方法，而文件系统对象将允许我们将输出流式传输到打印机。我们在下面的代码示例中创建这些对象:

set objfs = createobject(" scripting . file system object ")
set objWSHNet = createobject(" wscript . network ")
'使用WSH连接网络打印机
objWSHNet。AddPrinterConnection "LPT1 "，strPrinterPath，False，strUsername，Rpassword
'使用文件系统对象将打印设备作为文件使用
set objprinter = objfs . create textfile(" LP t1:"，True)
'将文本
obj printer . write(strmessage)发送到打印设备
'关闭打印设备对象并处理错误陷阱
在错误恢复下一个obj printer时 并输出错误消息
if err then Response . write(" error # " & CSTR(err . number)& " " & err . description)err . clear else
'操作成功，输出确认消息
Response . write(" "
Response . write(" "
Response . write(" print message sent:")
Response . write(" & strmessage & " ")[/br/Response。 Write("网络打印机路径:")[/Br/]response . write(" & strprinpath & " ")[/Br/]response . write("登录帐户:")[/Br/]response . write(" & struser name & " ")[/Br/]response . write(" "[/Br/]response . write(" "[/Br/])End If[/Br/]'取消打印连接[/Br/]objWSHNet . removepronection " LP t1:"[/Br/]Set objWSHNet = Nothing[/Br/]