<%@ اللغة=vbscript %>
<%
الخيار صريح
Dim strSubmit 'القيمة المستخدمة لحفظ زر الإرسال في النموذج
Dim strPrinterPath 'قيمة مسار طابعة الشبكة المحفوظة في النموذج
Dim strUsername 'قيمة اسم المستخدم في النموذج
Dim strPassword "قيمة كلمة المرور في النموذج."
خافت strMessage "قيمة محتوى طباعة النموذج".
Dim objFS 'كائن نظام الملفات في VBScript
خافت objWS.NET 'كائنات الشبكة في WSH
خافت objPrinter 'كائن الطباعة
strSubmit = طلب.نموذج(إرسال)
%>
<أتش تي أم أل>
<الرأس>
<اسم META = محتوى المولد = Microsoft Visual Studio 6.0>
</الرأس>
<الجسم>
<%
إذا strSubmit = إذن
%>
لاحظ أن:
وبما أن هذا عرض توضيحي، فسيتم إرسال رقم الحساب وكلمة المرور المتعلقين بـ NT في ASP باستخدام وسائل غير مشفرة.
في التطبيقات الحقيقية، يجب التعامل مع عملية تسجيل الدخول بشكل آمن.
<إجراء النموذج=طريقة ASPrint.asp=معرف POST=اسم النموذج=النموذج>
<عرض الجدول=محاذاة 100%=الحدود المركزية=0 المسافة بين الخلايا=1 لوحة الخلية=1>
<TR>
<TD ALIGN=right NOWRAP>مسار طابعة الشبكة:</TD>
<TD ALIGN=left NOWRAP><نوع الإدخال=معرف النص=اسم مسار الطابعة=مسار الطابعة
القيمة=< المجال >< الطابعة >></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>حساب تسجيل الدخول:</TD>
<TD ALIGN=left NOWRAP><نوع الإدخال=معرف النص=اسم المستخدم=اسم المستخدم
value=<% = strUsername %>></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>كلمة مرور تسجيل الدخول:</TD>
<TD ALIGN=left NOWRAP><نوع الإدخال=معرف كلمة المرور=كلمة المرور
الاسم=كلمة المرور></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>الرجاء إدخال النص الذي تريد طباعته:</TD>
<TD ALIGN=left NOWRAP><TEXTAREA صفوف=2 عمود=20 معرف=رسالة
الاسم=الرسالة></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP> </TD>
<TD ALIGN=left NOWRAP><INPUT type=إرسال القيمة=إرسال
المعرف=إرسال الاسم=إرسال></TD>
</TR>
</الجدول>
</فورم>
بعد تقديم المعلومات أعلاه يمكنك الطباعة حسب الكود التالي.
<%
آخر
'احصل على معلومات الاستجابة من النموذج.
strPrinterPath = Request.Form(printerpath)
strUsername = Request.Form(اسم المستخدم)
strPassword = طلب.نموذج(كلمة المرور)
strMessage = طلب.نموذج(رسالة)
سوف نستخدم الآن كائن VBScript FileSystemobject وكائن شبكة WSH
أعطنا الطرق التي نحتاجها لفتح اتصال الطابعة، وسيسمح لنا FileSystemObject ببث بياناتنا
الإخراج إلى الطابعة نقوم بإنشاء هذه الكائنات في مثال التعليمات البرمجية التالي:
تعيين objFS = CreateObject(Scripting.FileSystemObject)
تعيين objWSHNet = CreateObject(WScript.Network)
'استخدم WSH للاتصال بطابعة شبكة
objWSHNet.AddPrinterConnection LPT1، strPrinterPath، False، strUsername، strPassword
' استخدم كائن نظام الملفات لاستخدام جهاز الطباعة كملف
تعيين objPrinter = objFS.CreateTextFile(LPT1:، True)
'أرسل النص إلى جهاز الطباعة
objPrinter.Write(strMessage)
'أغلق كائن جهاز الطباعة وقم بإجراء معالجة تعويض الأخطاء
على خطأ استئناف التالي
objPrinter.Close
في حالة حدوث خطأ، أغلق اتصال الطباعة وأخرج رسالة الخطأ
إذا أخطأت ثم
الاستجابة.كتابة (الخطأ # & CStr(Err.Number) & & Err.Description)
خطأ.واضح
آخر
'تمت العملية بنجاح وخرجت رسالة تأكيد.
الاستجابة.الكتابة(<CENTER>)
Response.Write(<عرض الجدول=100% محاذاة=الحدود المركزية=0 مسافة الخلية=1 لوحة الخلية=1>)
Response.Write(<TR><TD ALIGN=RIGHT><B>طباعة الرسالة المرسلة:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strMessage & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>مسار طابعة الشبكة:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strPrinterPath & </TD></TR>)
Response.Write(<TR><TD ALIGN=RIGHT><B>حساب تسجيل الدخول:</B></TD>)
Response.Write(<TD ALIGN=LEFT> & strUsername & </TD></TR>)
الاستجابة.كتابة(</TABLE>)
الاستجابة.الكتابة(</CENTER>)
نهاية إذا
"قم بإلغاء اتصال الطباعة."
objWSHNet.RemovePrinterConnection LPT1:
تعيين objWSHNet = لا شيء
تعيين objFS = لا شيء
تعيين objPrinter = لا شيء
نهاية إذا
%>
</الجسم>
</HTML>