Kode program:
<Bahasa skrip=VBScript>
Fungsi print_onclick //Fungsi cetak
Label redup
label=document.printinfo.label.value //Dapatkan data halaman HTML
set objfs=CreateObject("Scripting.FileSystemObject") //Membuat instance objek komponen FileSystem
set objprinter=objfs.CreateTextFile ("LPT1:",true) //Membuat koneksi dengan printer
objprinter.Writeline("______________") //Output konten yang dicetak
objprinter.Writeline("| |")
objprinter.Writeline("| Data yang anda cetak adalah: "&label& " |")
objprinter.Writeline("| |")
objprinter.Writeline("|_________________|")
objprinter.close //Putuskan sambungan dari printer
Setel objprinter = tidak ada
Setel objfs = none // Tutup objek komponen FileSystem
Fungsi Akhir
</script>
Skrip sisi server:
<%
Setel koneksi=server.CreateObject ("adodb.koneksi")
samb.Buka "DSN=nama;UID=XXXX;PWD=XXXX;"
Setel Rs = server.CreateObject("adodb.recordset")
Rs.Open("pilih..."),sambung,1,1
Pengkodean halaman HTML
untuk berinteraksi dengan database
:
<HTML>
.........
<FORM ID=printinfo NAMA="printinfo" >
<INPUT type="button" value="Print>>" id=print name=print > //Memanggil fungsi print
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> //Menyimpan data yang dikirim dari server
.........
</HTML>