使用到的技术:
ASP, WSH, VBScript
文件ASPPrint.asp代码如下:
<%@ Idioma=VBScript %>
<%
Opción Explícita
Dim strEnviar ' Formulario中用来保存提交按钮的值
Dim strPrinterPath ' Formulario中保存网络打印机路径的值
Dim strNombre de usuario ' Formulario中用户名的值
Dim strContraseña ' Formulario中密码的值
Dim strMessage ' Formulario打印内容的值
Dim objFS ' VBScript中的文件系统对象
Dim objWSHNet ' WSH中的网络对象
Dim objPrinter ' 打印对象
strEnviar = Solicitud.Form("Enviar")
%>
<HTML>
<CABEZA>
<META NAME="GENERADOR" Contenido="Microsoft Visual Studio 6.0">
</CABEZA>
<CUERPO>
<%
Si strSubmit = "" Entonces
%>
注意的是：
ASP中传递的真正的运用中应该对该登录过程进行安全处理.
<Forma acción="ASPPrint.asp" método=POST id=nombre del formulario=formulario>
<ANCHO DE TABLA=100% ALINEACIÓN=centro BORDE=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD ALIGN=right NOWRAP>网络打印机路径:</TD>
<TD ALIGN=left NOWRAP><INPUT type="text" id=printerpath name=printerpath value="\< Dominio >< Impresora >"></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>登录帐号:</TD>
<TD ALIGN=izquierda NOWRAP><INPUT tipo="texto" id=nombre de usuario nombre=nombre de usuario
valor="<% = strNombre de usuario %>"></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>登录口令:</TD>
<TD ALIGN=izquierda NOWRAP><INPUT tipo="contraseña" id=contraseña nombre=contraseña></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>请输入你想打印的文字:</TD>
<TD ALIGN=izquierda NOWRAP><TEXTAREA filas=2 cols=20 id=nombre del mensaje=mensaje></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=derecha NOWRAP> </TD>
<TD ALIGN=izquierda NOWRAP><INPUT tipo="enviar" valor="Enviar" id=enviar nombre=enviar></TD>
</TR>
</TABLA>
</FORM>
当以上信息被提交后，就可以按照下面的代码进行打印了。
<%
Demás
' 从form中取得响应信息。
strPrinterPath = Solicitud.Form("rutadeimpresora")
strUsername = Solicitud.Form("nombre de usuario")
strContraseña = Solicitud.Form("contraseña")
strMessage = Request.Form("message")
Ahora usaremos el objeto VBScript FileSystemObject y el objeto de trabajo WSH Net. El objeto Red
danos los métodos que necesitamos para abrir una conexión de impresora, y FileSystemObject nos permitirá transmitir nuestro
salida a la impresora. Creamos estos objetos en el siguiente código.
ejemplo:
' 使用WSH连接网络打印机
Establecer objWSHNet = CreateObject("WScript.Network")
objWSHNet.AddPrinterConnection "LPT1", strPrinterPath, False, strUsername, strPassword
'使用文件系统对象将打印设备作为一个文件使用
Establecer objFS = CreateObject("Scripting.FileSystemObject")
Establecer objPrinter = objFS.CreateTextFile("LPT1:", Verdadero)
' 给打印设备送出文本
objPrinter.Write(strMensaje)
'关闭打印设备对象并进行错误陷阱处理
En caso de error Continuar siguiente
objPrinter.Cerrar
' 如果发生错误，关闭打印连接，并输出错误信息
Si se equivoca entonces
Response.Write ("Error # " & CStr(Err.Number) & " " & Err.Descripción)
Err.Borrar
Demás
' 操作成功，输出确认信息
Respuesta.Escribir("<CENTRO>")
Response.Write("<ANCHO DE TABLA=100% ALIGN=centro BORDE=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>")
Respuesta.Escribir("</TABLE>")
Respuesta.Escribir("</CENTER>")
Terminar si
' 取消打印连接
objWSHNet.RemovePrinterConnection "LPT1:"
Establecer objWSHNet = Nada
Establecer objFS = Nada
Establecer objPrinter = Nada
Terminar si
%>
</CUERPO>
</HTML>