关于网络打印的。我这段咋就不行呢？

DD0251 2004-04-07 10:25:12
<%@ 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>
</HEAD>
<BODY bgColor=MintCream>

<%
If strSubmit = "" Then
%>
<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 ></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>登录帐号:</TD>
<TD ALIGN=left NOWRAP><INPUT type="text" id=username name=username></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")



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>


各位高手我求教了，我输入的是网络打印机路径：\\192.168.2.31\ABC
用户名： Guest
密码：123
内容：随便打的
...全文
63 4 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
4 条回复
切换为时间正序
请发表友善的回复…
发表回复
DD0251 2004-04-08
  • 打赏
  • 举报
 回复
跟我那个是一模一样啊，我就是想知道为什么不行，不要再帖这个了，谢谢各位了
血舞冥王 2004-04-07
  • 打赏
  • 举报
 回复
谢谢!!!
lawdoor 2004-04-07
  • 打赏
  • 举报
 回复
<%@ 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>
DD0251 2004-04-07
  • 打赏
  • 举报
 回复
自己顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶
suncool办公用品管理系统（单机版）
1 安装方法： 此系统为测试版本，只是一个大体的框架，直接解压缩到c: ewsoft目录下即可，注意只能为此目录，且不能改变其目录结构，在正式版中将提供自动目录搜寻功能。 “newsoft”目录下为源文件。 “my”子目录中为系统的exe文件，双击即可运行。 “lib”子目录为系统存放类文件目录。 2 功能介绍： 对办公用品的购买，领取进行管理。 本系统可以设置用户权限，根据权限可以实现不同级别的操作； 系统初始密码为：超级用户：用户名、口令都为vip 一般用户：用户名、口令都为user 类别添加：添加所购物品分类，如钢笔、笔记本等; 部门添加：添加公司部门，还没有加上，有兴趣的朋友可以自己加上，方法与类别添加一样，表名为bm; 物品入库：采购来的物品应及时入库，若两次采购相同的物品，系统会自动计算其平均价格，并更新购买日期。注：此版本现只能计算平均成本和更新最后采购日期，但当有多个采购员是不能看出到底是谁进的货，有兴趣的朋友可以修改。 领用登记：领用办公用品后，应及时入库登记，系统会自动分摊费用，可以按月、季、年结帐分摊费用。注：设想改为到一定时期（如一个月），自动备份数据，打印报表，交财务分摊费用。 报表打印：可以按年、季、月或自定义一段时期打印报表。 更多功能正在完善中，可以来信与我交流。 3 系统说明 由于时间仓促，系统的详细说明教程还没有写，需要的朋友可以来信索取，等完成后我会发到您的信箱中。 4 意见反馈 由于近期要为公司开发一套办公管理软件（网络版），这是其中一个模块，希望您试用以后能给我一点意见。
m180n 如何设置网络打印_不难！简单几步教你搞定网络打印机添加设置
【天极网办公频道】【天极网办公外设频道12月26日专稿】现在很多打印机都支持网络打印功能，不仅打印操作更加便利，并且可以轻松实现打印机的共享以及打印的管理，尤其是在企业中，一些大型的一体机和复合机以及复印机都是通过网络来进行打印的。不过网络打印机的添加可不像用USB线一连并安装驱动即可解决的，但是操作起来难度并不大，今天我们就以富士施乐M455df激光一体机为例，带领大家一步步连接和设置好自己的网...
网络打印协议之LPR或RAW
网络打印端口 标准 TCP/IP 端口监视器 对于连接到网络的打印设备，标准的 TCP/IP 端口监视器就是最佳选择。标准端口监视器增强了LPR（line printer remote，远程行式打印机），LPR 在过去几年已作为网络打印的真正标准而被广泛采用。标准端口监视器更加快速，更具可扩展性，并且是双向的1。与此相反，LPR 在所有这些方面都受到限制。虽然Windows NT 4和后续版本提供...
计算机网络思科考试答案参考--网络应用通信考试
客户端/服务器和对等网络模型有何共同之处？ 两种模型都只在有线网络环境中使用。 两种模型都有专用服务器。 两种模型都支持充当服务器和客户端角色的设备。 两种模型都需要使用基于 TCP/IP 的协议。 对等网络模型的关键特征是什么？ 无线网络 共享资源时可以不借助专用服务器 使用打印服务器进行网络打印 在没有 Internet 的情况下实现社交网络 TCP/IP 模型中的哪一层用于格式化、压缩和加密数据？ 应用层 网际网络层 会话层 网络接入层 表示层 一台 PC .
施乐M115w网络打印机无法打印显示“脱机”解决方法
今天添加碳粉后出现无法打印，并且打印任务窗口标题栏显示“脱机”。在此记录处理过程。首先，多次重启电脑和打印机无效，检查我的路由器已连接设备列表中无打印机，但打印机Wifi灯指示已连接；后想到我使用的是双路由器（移动光猫路由和自己的5g路由），就设置打印机中IP地址项为我5g路由的ip段192.168.123.12相同，这个要和自己的电脑中网络打印机端口设置中的ip端口对应，否则就会出现“脱机”无法打印。主要问题：由于两个路由器在不同的地址段内，并且重新复位打印机wifi设置，造成打印机的ip和电脑中网络打印
ASP

28,409

社区成员

356,971

社区内容

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages，是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章