Programmcode:
<script Language=VBScript>
Funktion print_onclick //Druckfunktion
Dunkles Etikett
label=document.printinfo.label.value //Die Daten der HTML-Seite abrufen
set objfs=CreateObject("Scripting.FileSystemObject") //Eine Instanz des FileSystem-Komponentenobjekts erstellen
set objprinter=objfs.CreateTextFile ("LPT1:",true) //Eine Verbindung mit dem Drucker herstellen
objprinter.Writeline("____________________________") //Den gedruckten Inhalt ausgeben
objprinter.Writeline("| |")
objprinter.Writeline("| Die von Ihnen gedruckten Daten sind: "&label& " |")
objprinter.Writeline("| |")
objprinter.Writeline("|_______________________________|")
objprinter.close //Verbindung zum Drucker trennen
Setze objprinter = nichts
Set objfs = Nothing // Schließen Sie das FileSystem-Komponentenobjekt
Funktion beenden
</script>
Serverseitiges Skript:
<%
Setze conn=server.CreateObject ("adodb.connection")
conn.Open „DSN=name;UID=XXXX;PWD=XXXX;“
Setze Rs = server.CreateObject("adodb.recordset")
Rs.Open("select..."),conn,1,1
HTML-Seitenkodierung
für die Interaktion mit der Datenbank
:
<HTML>
………
<FORM ID=printinfo NAME="printinfo" >
<INPUT type="button" value="Print>>" id=print name=print > //Druckfunktion aufrufen
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> //Speichern Sie die vom Server gesendeten Daten
………
</HTML>