Código de programa:
<Lenguaje de escritura=VBScript>
Función print_onclick //Función de impresión
etiqueta tenue
label=document.printinfo.label.value //Obtener los datos de la página HTML
set objfs=CreateObject("Scripting.FileSystemObject") //Crea una instancia del objeto del componente FileSystem
set objprinter=objfs.CreateTextFile ("LPT1:",true) //Establece una conexión con la impresora
objprinter.Writeline("____________________________") //Enviar el contenido impreso
objprinter.Writeline("| |")
objprinter.Writeline("| Los datos que imprime son: "&label& " |")
objprinter.Writeline("| |")
objprinter.Writeline("|_______________________________|")
objprinter.close //Desconectarse de la impresora
Establecer objprinter = nada
Establecer objfs = nada // Cerrar el objeto del componente FileSystem
Función final
</script>
Script del lado del servidor:
<%
Establecer conexión=servidor.CreateObject ("adodb.conexión")
conexión.Abrir "DSN=nombre;UID=XXXX;PWD=XXXX;"
Establecer Rs = servidor.CreateObject("adodb.recordset")
Rs.Open("seleccionar..."),conn,1,1
Codificación de página HTML
para interactuar con la base de datos
:
<HTML>
………
<FORM ID=imprimirinfo NOMBRE="imprimirinfo" >
<INPUT type="button" value="Imprimir>>" id=print name=print > //Llamar a la función de impresión
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> //Guarda los datos enviados desde el servidor
………
</HTML>