asp打印代码:ASP网络打印功能的代码

on 2009-2-12 in Asp教程 | 0 Comment


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

Dim strSubmit \'Form中用来保存提交按钮值
Dim strPrerPath \'Form中保存网络打印机路径值
Dim strUsername \'Form中用户名值
Dim strPassword \'Form中密码值
Dim strMessage \'Form打印内容值
Dim objFS \'VBScript中文件系统对象
Dim objWS.NET \'WSH中网络对象
Dim objPrer \'打印对象

strSubmit = Request.Form(\"Submit\")
%>

<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

<%
If strSubmit = \"\" Then
%>

注意是:
由于这是演示其中有关NT帐号和密码都是使用了不加密手段在ASP中传递
真正运用中应该对该登录过程进行安全处理
<FORM action=\"ASPPr.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=prerpath name=prerpath
value=\"< do >< Prer >\"></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中取得响应信息
strPrerPath = Request.Form(\"prerpath\")
strUsername = Request.Form(\"username\")
strPassword = Request.Form(\"password\")
strMessage = Request.Form(\"message\")

We will now use the VBScript Fileobject object and the WSH Network object. The Network object will
give us the methods we need to open a prer connection, and the FileObject will allow us to stream our
output to the prer. We create these objects in the following code example:

Set objFS = CreateObject(\"Scripting.FileObject\")
Set objWSHNet = CreateObject(\"WScript.Network\")
\' 使用WSH连接网络打印机
objWSHNet.AddPrerConnection \"LPT1\", strPrerPath, False, strUsername, strPassword
\' 使用文件系统对象将打印设备作为个文件使用[Page]
Set objPrer = objFS.CreateTextFile(\"LPT1:\", True)
\' 给打印设备送出文本
objPrer.Write(strMessage)
\'关闭打印设备对象并进行陷阱处理
On Error Resume Next
objPrer.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>\" & strPrerPath & \"</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.RemovePrerConnection \"LPT1:\"
Set objWSHNet = Nothing
Set objFS = Nothing
Set objPrer = Nothing
End If
%>
</BODY>
</HTML>
Tags:  asp代码 asp源代码 打印功能代码 asp打印代码

延伸阅读

最新评论

发表评论