ASP网络打印功能的代码

时间:2021-05-02

本文较详细地给出了在ASP中实现打印的功能,大家可以认真研究研究。

<%@ Language=vbscript %><%Option ExplicitDim strSubmit 'Form中用来保存提交按钮的值Dim strPrinterPath 'Form中保存网络打印机路径的值Dim strUsername 'Form中用户名的值Dim strPassword 'Form中密码的值Dim strMessage 'Form打印内容的值Dim objFS 'VBScript中的文件系统对象Dim objWS.NET 'WSH中的网络对象Dim objPrinter '打印对象strSubmit = Request.Form("Submit")%><HTML><HEAD><META NAME="GENERATOR" Content="microsoft Visual Studio 6.0"></HEAD><BODY><%If strSubmit = "" Then%>注意的是:由于这是演示,其中有关NT的帐号和密码都是使用了不加密的手段在ASP中传递的真正的运用中应该对该登录过程进行安全处理。<FORM action="ASPPrint.asp" method=POST id=form name=form><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="< domain >< Printer >"></TD></TR><TR><TD ALIGN=right NOWRAP>登录帐号:</TD><TD ALIGN=left NOWRAP><INPUT type="text" id=username name=username value="<% = strUsername %>"></TD></TR><TR><TD ALIGN=right NOWRAP>登录口令:</TD><TD ALIGN=left NOWRAP><INPUT type="password" id=password name=password></TD></TR><TR><TD ALIGN=right NOWRAP>请输入你想打印的文字:</TD><TD ALIGN=left NOWRAP><TEXTAREA rows=2 cols=20 id=message name=message></TEXTAREA></TD></TR><TR><TD ALIGN=right NOWRAP></TD><TD ALIGN=left NOWRAP><INPUT type="submit" value="Submit" id=submit name=submit></TD></TR></TABLE></FORM>当以上信息被提交后,就可以按照下面的代码进行打印了。<%Else' 从form中取得响应信息。strPrinterPath = Request.Form("printerpath")strUsername = Request.Form("username")strPassword = Request.Form("password")strMessage = Request.Form("message")We will now use the VBScript FileSystemobject object and the WSH Network object. The Network object willgive us the methods we need to open a printer connection, and the FileSystemObject will allow us to stream ouroutput to the printer. We create these objects in the following code example: Set objFS = CreateObject("Scripting.FileSystemObject")Set objWSHNet = CreateObject("WScript.Network")' 使用WSH连接网络打印机objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, strUsername, strPassword' 使用文件系统对象将打印设备作为一个文件使用Set objPrinter = objFS.CreateTextFile("LPT1:", True)' 给打印设备送出文本objPrinter.Write(strMessage)'关闭打印设备对象并进行错误陷阱处理On Error Resume NextobjPrinter.Close' 如果发生错误,关闭打印连接,并输出错误信息If Err ThenResponse.Write ("Error # " & CStr(Err.Number) & " " & Err.Description)Err.Clear Else' 操作成功,输出确认信息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>")End If' 取消打印连接objWSHNet.RemovePrinterConnection "LPT1:"Set objWSHNet = NothingSet objFS = NothingSet objPrinter = NothingEnd If%></BODY></HTML>

本文源自:翔宇亭——IT乐园(http://www.biye5u.com),转载请保留此信息!

声明:本页内容来源网络,仅供用户参考;我单位不保证亦不表示资料全面及准确无误,也不保证亦不表示这些资料为最新信息,如因任何原因,本网内容或者用户因倚赖本网内容造成任何损失或损害,我单位将不会负任何法律责任。如涉及版权问题,请提交至online#300.cn邮箱联系删除。

相关文章