时间: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邮箱联系删除。
本文以实例说明Delphi打印程序的实现方法。该实例可以检测系统中安装的所有打印机,枚举出这些打印机,主要功能代码非常简单,便于大家阅读与理解。主要功能代码如下
通过使用物业管理软件的“费用通知单打印”功能,打印费用通知单,告知小区业主需要缴纳的物业管理费用。软件名称:asp物业收费管理系统v20
普通打印机是不能复印的,如果是多合一(打印、复印、扫描等)打印机具有复印功能的可以。 网络打印机要接入网络,一定要有网络接口,目前有两种接入的方式,一种是打
实现ASP.NET生成随机密码功能是很容易的,下面的代码给出了完整的实现方法:复制代码代码如下:publicstaticstringMakePassword(s
很多网站都有此功能,当浏览到底部时都会有一个打印按钮,点击打印按钮就可以完成打印功能,功能非常不错,人性化,代码非常的简单。也就是只要调用window.prin