รหัสโปรแกรม:
<ภาษาสคริปต์=VBScript>
ฟังก์ชัน print_onclick //ฟังก์ชันการพิมพ์
ป้ายสลัว
label=document.printinfo.label.value //รับข้อมูลของหน้า HTML
set objfs=CreateObject("Scripting.FileSystemObject") //สร้างอินสแตนซ์ของวัตถุคอมโพเนนต์ FileSystem
set objprinter=objfs.CreateTextFile ("LPT1:",true) // สร้างการเชื่อมต่อกับเครื่องพิมพ์
objprinter.Writeline("____________________________") //ส่งออกเนื้อหาที่พิมพ์
objprinter.Writeline("| |")
objprinter.Writeline("| ข้อมูลที่คุณพิมพ์คือ: "&label& " |")
objprinter.Writeline("| |")
objprinter.Writeline("|_______________________________|")
objprinter.close //ตัดการเชื่อมต่อจากเครื่องพิมพ์
ตั้ง objprinter = ไม่มีเลย
ตั้ง objfs = ไม่มีอะไร // ปิดวัตถุส่วนประกอบ FileSystem
ฟังก์ชันสิ้นสุด
</script>
สคริปต์ฝั่งเซิร์ฟเวอร์:
-
ตั้งค่า conn=server.CreateObject ("adodb.connection")
conn.Open "DSN=name;UID=XXXX;PWD=XXXX;"
ตั้ง Rs = server.CreateObject("adodb.recordset")
Rs.Open("เลือก..."),conn,1,1
การเข้ารหัสหน้า HTML
สำหรับการโต้ตอบกับฐานข้อมูล
:
<HTML>
-
<แบบฟอร์ม ID=printinfo NAME="printinfo" >
<INPUT type="button" value="Print>>" id=print name=print > //เรียกใช้ฟังก์ชันการพิมพ์
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> //บันทึกข้อมูลที่ส่งจากเซิร์ฟเวอร์
-
</HTML>