用ASP进行网络打印功能

最新推荐文章于 2022-02-09 15:47:08 发布
最新推荐文章于 2022-02-09 15:47:08 发布
阅读量793 收藏
点赞数
分类专栏： ASP 文章标签： 网络 asp vbscript microsoft generator network
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/jackal3/article/details/25675
版权

用ASP进行网络打印功能
2001:8:17 

用ASP进行网络打印功能　

<%@ Language=VBScript %>
<%
Option Explicit

Dim strSubmit 'Form中用来保存提交按钮的值
Dim strPrinterPath 'Form中保存网络打印机路径的值
Dim strUsername 'Form中用户名的值
Dim strPassword 'Form中密码的值
Dim strMessage 'Form打印内容的值
Dim objFS 'VBScript中的文件系统对象
Dim objWSHNet '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 will
give us the methods we need to open a printer connection, and the FileSystemObject will allow us to stream our
output 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 Next
objPrinter.Close
' 如果发生错误，关闭打印连接，并输出错误信息
If Err Then
Response.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 = Nothing
Set objFS = Nothing
Set objPrinter = Nothing
End If
%>
</BODY>
</HTML>

作者：沙滩小子　　
 

李煎熬
关注
  • 0
    点赞
  • 踩
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
专栏目录
asp.net网络打印
10-24
很好的实现asp.net中报表的网络打印功能。
如何在ASP中实现网络打印功能
zhongjiannet的专栏
06-23 510
使用到的技术： ASP,WSH,VBScript 文件ASPPrint.asp代码如下：   ＜%@ Language=VBScript %＞   ＜%   Option Explicit   Dim strSubmit         Form中用来保存提交按钮的值   Dim strPrinterPath    Form中保存网络打印机路径的值   Dim strUsername    
用ASP进行网络打印功能 (转)
circularr9834的博客
08-13 135
用ASP进行网络打印功能 (转)[@more@]vbscript %>Option ExplicitDim strSubmit 'Form中用来保存提交按钮的值Dim strPrinterPath 'Form中保存网络打印...
ASP进行网络打印功能
csdn_aspnet的专栏
06-05 715
Option Explicit Dim strSubmit "Form中用来保存提交按钮的值 Dim strPrinterPath "Form中保存网络打印机路径的值 Dim strUsername "Form中用户名的值 Dim strPassword "Form中密码的值 Dim strMessage "Form打印内容的值 Dim objFS "VBScript中的文件系统对象
功能强大且易用的云打印解决方案
02-09 2998
很多软件都需要打印功能或数据导出功能，包括传统客户端系统或Saas系统，单个打印或导出并不难，但打印项多了，不同客户有不同的打印需求的时候开发工作量就会很大，而且即使投入很大量的开发有些打印需求也很难满足，比如单元格合并、多列打印、Saas系统实现静默打印等等。 基于以上场景，我们将一个功能非常强大的打印组件封装成了一个打印客户端，App开发者只需要通过websocket连接这个客户端就能实现很强大的打印功能，而作为系统的开发者只需要提供打印用的JSON数据以及字段的说明即可完成这一切。而这个强大的打印组
ASP.NET网络打印
mchaojie1的专栏
11-26 2056
网络打印概述/ ^) Q- ^$ w. T" ?5 s  H• B/S结构导致了Web应用程序中打印的特殊性。9 a- C3 g: A: ~. J2 @• 程序运行在浏览器中，打印机在本地，而文件确可能在服务器上，导致了打印控制: ]: w- U4 /# r* l3 I不是很灵活。$ F# p7 P* ?5 C• 格式如何控制和定制等，是我们开发中可能会面对的问题。3 /: v8 ?1 S# T(
ASP.NET水晶报表实现打印功能
jian436的专栏
10-21 1201
ASP.NET下的水晶报表打印,据我所知有以下几种办法可以打印:        1.用IE的打印.调用window.print(),但这种办法对于页面上即有报表,又有其它控件情况就无法区分,不能达到只打印报表内容的目的;       2.自已写打印代码. 代码如下: CrystalDecisions.CrystalRe
使用ScriptX控件进行Web打印 asp打印（源码）
深之JohnChen的专栏
11-20 7424
 使用ScriptX控件进行Web打印 asp打印（源码） 最近做一小程序需要对Web打印进行精细的位置控制，IE自身的打印功能基本上算是半残废，无法自定义纸张，无法直接打印，并且由于浏览器版本或操作系统本身的设置问题，连最基本的边距设置都会有问题，总之打印已经成为Web程序的最大难题，因此使用ActiveX控件打印是最好的解决方案，但现在的控件动不动就价格几千上万，所幸目前免费的选择还有
智能网络考试系统源码版ASP+ACCESS
05-06
6、生成成绩分析报表和打印功能 7、批量考题录入； 8、用户注册开关； 9、系统新闻公告，幻灯展示等； 10、用户锁定等。 系统后台：您的网址/login/login.asp 管理账号：admin 管理密码：123456 考生前台：您的...
VFP+ASP+SQL Server进行学校网络考试系统设计
03-03
这些题型中，既可是纯文本形式的，也可包含数学公式及其它专业课中的图文，还可实现计算机自动抽题、打印成AB型纸质试卷进行普通考试以及考试相关信息的发布、统计、打印等诸多功能。完全可以满足职业技术学校多层次...
监理网络办公系统的设计与实现
03-21
该系统功能强大，模块清晰，覆盖了企业内部信息管理，日常管理的大部分工作，具体功能如下：公司事务管理，公事单管理，个人事务管理，个人公事单管理，信息交流，网络会议，资源共享，文件上报，邮件系统，工作流程...
毕业设计：ASP网络多功能办公系统设计(源代码)
06-04
办公自动化管理系统是一个典型的数据库开发应用程序，规划系统功 能模块如下： ...工作计划管理模块 该模块包括员工工作计划模块、本人工作...利用系统快速的统计生产的数据报表，并对报表信息进行打印。 键盘操作
实现SMTP服务
Jackal3的专栏
09-24 6971
SMTP服务概述鉴于本课程的默认读者群是那些对Internet的使用已经比较熟悉的老用户，所以我们在此并不打算花很多时间介绍e_mail的使用常识，如果读者对于收发e_mail的操作碰巧还存在不明确的地方，请参阅其他关于Internet基本操作的课程。本节我们着重讨论e_mail通信的原理及其在较低网络层次上的实现机制，我们将试图在读者头脑中建立有e_mail在Internet中传送原理的最基
使用 SMTP 发送电子邮件
Jackal3的专栏
09-22 6886
使用 SMTP 发送电子邮件文章来源：岚山夜话HTTP://WWW.33D9.COMSMTP 的工作方式？简单邮件传输协议是核心 Internet 协议 (IP) 之一，其设计主旨是可靠有效地传输电子邮件。 SMTP 的最初构想相对来说比较简单。用户或应用程序（此处为 Duwamish Online）撰写邮件，其中包含收件人电
Windows 系列操作系统远程控制
Jackal3的专栏
09-20 3503
Windows 系列操作系统从Windows 2000版本开始到现在的Windows server 2003版本，都提供了远程桌面管理（RDP）功能，到Windows server2003系列其功能及安全性大为提高，这为我们网络管理人员可以摒弃第三方远程控制软件对服务器进行远程维护提供了方便。现在就对Windows 2000、Windows XP和Windows server 2003远程桌面管理
IIS6中对上传大文件的限制
Jackal3的专栏
06-24 3196
更改win2003的IIS 6.0对asp的上传文件大小为200k限制，aspx的上传程序没有影响。在IIS6.0中，默认设置是特别严格和安全的，最大只能传送 204,800 个字节，这样可以最大限度地减少因以前太宽松的超时和限制而造成的攻击。IIS 6 出于安全考虑, 默认最大请求是200K(也即最大提交数据限额为200KByte，204800Byte)。（在 IIS 6.0 之前的版本中无此限
帮我用python爬取成语及意思
最新发布
08-08
你可以使用Python的网络爬虫库来获取成语及其意思。下面我将提供一个简单的爬虫代码示例： ``` import requests from bs4 import BeautifulSoup def crawl_chengyu(url): response = requests.get(url) soup = ...

“相关推荐”对你有帮助么？

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值