رمز البرنامج:
<لغة البرنامج النصي=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 = لا شيء
Set objfs = لا شيء // أغلق كائن مكون نظام الملفات
وظيفة النهاية
</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
للتفاعل مع قاعدة البيانات
:
<أتش تي أم أل>
………
<معرف النموذج=printinfo NAME="printinfo" >
<INPUT type = "button" value = "طباعة>>" معرف = اسم الطباعة = طباعة > // اتصل بوظيفة الطباعة
<INPUT type="hidden" id="text1" name="label" value=<%=…………%>> // حفظ البيانات المرسلة من الخادم
………
</HTML>