<%@ Idioma=vbscript %>
<%
Opción explícita
Dim strSubmit 'El valor utilizado para guardar el botón de envío en el formulario
Dim strPrinterPath 'El valor de la ruta de la impresora de red guardada en el formulario
Dim strUsername 'El valor del nombre de usuario en el formulario
Dim strPassword 'Valor de la contraseña en el formulario
Dim strMessage 'Valor del contenido de impresión del formulario
Dim objFS 'Objeto del sistema de archivos en VBScript
Dim objWS.NET 'Objetos de red en WSH
Dim objPrinter 'Imprimir objeto
strEnviar = Solicitud.Formulario (Enviar)
%>
<HTML>
<CABEZA>
<NOMBRE META=Contenido GENERADOR=microsoft Visual Studio 6.0>
</CABEZA>
<CUERPO>
<%
Si strSubmit = Entonces
%>
Tenga en cuenta que:
Dado que se trata de una demostración, el número de cuenta y la contraseña relacionados con NT se transmiten en ASP utilizando medios no cifrados.
En aplicaciones reales, el proceso de inicio de sesión debe realizarse de forma segura.
<Acción FORMULARIO=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>Ruta de la impresora de red:</TD>
<TD ALIGN=izquierda NOWRAP><tipo de entrada=id de texto=nombre de ruta de impresora=ruta de impresora
valor=< dominio >< Impresora >></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Iniciar sesión en cuenta:</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>Contraseña de inicio de sesión:</TD>
<TD ALIGN=izquierda NOWRAP><INPUT tipo=contraseña id=contraseña
nombre=contraseña></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>Ingrese el texto que desea imprimir:</TD>
<TD ALIGN=izquierda NOWRAP><TEXTAREA filas=2 columnas=20 id=mensaje
nombre=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>
Una vez enviada la información anterior, puede imprimir de acuerdo con el siguiente código.
<%
Demás
'Obtiene información de respuesta del formulario.
strPrinterPath = Solicitud.Form(rutadeimpresora)
strUsername = Solicitud.Form(nombre de usuario)
strContraseña = Solicitud.Formulario(contraseña)
strMessage = Solicitud.Form(mensaje)
Ahora usaremos el objeto VBScript FileSystemobject y el objeto WSH Network.
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 ejemplo de código:
Establecer objFS = CreateObject(Scripting.FileSystemObject)
Establecer objWSHNet = CreateObject(WScript.Network)
'Utiliza WSH para conectarse a una impresora de red
objWSHNet.AddPrinterConnection LPT1, strPrinterPath, Falso, strNombre de usuario, strContraseña
'Utilice el objeto del sistema de archivos para utilizar el dispositivo de impresión como un archivo
Establecer objPrinter = objFS.CreateTextFile(LPT1:, Verdadero)
'Enviar texto al dispositivo de impresión
objPrinter.Write(strMensaje)
'Cierre el objeto del dispositivo de impresión y realice el procesamiento de captura de errores
En caso de error Continuar siguiente
objPrinter.Cerrar
' Si se produce un error, cierre la conexión de impresión y envíe el mensaje de error
Si se equivoca entonces
Respuesta.Escribir (Error # & CStr(Err.Number) & & Err.Descripción)
Err.Borrar
Demás
' La operación es exitosa y se genera un mensaje de confirmación.
Respuesta.Escribir(<CENTRO>)
Response.Write(<ANCHO DE TABLA=100% ALIGN=centro BORDE=0 CELLSPACING=1 CELLPADDING=1>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Imprimir mensaje enviado:</B></TD>)
Respuesta.Escribir(<TD ALIGN=LEFT> & strMessage & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Ruta de la impresora de red:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strPrinterPath & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>Iniciar sesión en cuenta:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strNombre de usuario & </TD></TR>)
Respuesta.Escribir(</TABLE>)
Respuesta.Escribir(</CENTER>)
Terminar si
'Cancelar la conexión de impresión
objWSHNet.RemovePrinterConnection LPT1:
Establecer objWSHNet = Nada
Establecer objFS = Nada
Establecer objPrinter = Nada
Terminar si
%>
</CUERPO>
</HTML>