Code du programme :
<Langage de script=VBScript>
Fonction print_onclick //Fonction d'impression
Dim étiquette
label=document.printinfo.label.value //Récupérer les données de la page HTML
set objfs=CreateObject("Scripting.FileSystemObject") //Créer une instance de l'objet composant FileSystem
set objprinter=objfs.CreateTextFile ("LPT1:",true) //Établir une connexion avec l'imprimante
objprinter.Writeline("____________________________") //Afficher le contenu imprimé
objprinter.Writeline("| |")
objprinter.Writeline("| Les données que vous imprimez sont : "&label& " |")
objprinter.Writeline("| |")
objprinter.Writeline("|_______________________________|")
objprinter.close //Déconnexion de l'imprimante
Définir objprinter = rien
Set objfs = Nothing // Ferme l'objet composant FileSystem
Fonction de fin
</script>
Script côté serveur :
<%
Définir conn=server.CreateObject ("adodb.connection")
conn.Open "DSN=nom;UID=XXXX;PWD=XXXX;"
Définir Rs = server.CreateObject("adodb.recordset")
Rs.Open("select..."),conn,1,1
Encodage de la page HTML
pour interagir avec la base de données
:
<HTML>
………
<FORM ID=printinfo NAME="printinfo" >
<INPUT type="button" value="Print>>" id=print name=print > //Appelle la fonction d'impression
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> //Enregistre les données envoyées depuis le serveur
………
</HTML>