اسم المنتج:
أسب، وش، فبسكريبت
موقع ASPprint.asp هو:
<%@ اللغة=VBScript %>
<%
خيار صريح
خافت strSubmit ' نموذج
نموذج خافت strPrinterPath
Dim strUsername ' Form 中用户名的值
نموذج كلمة المرور الخافتة
خافت نموذج رسالة strMessage
Dim objFS 'VBScript 中的文件系统对象
خافت objWSHNet 'WSH中的网络对象
خافت objPrinter ' 打印对象
strSubmit = Request.Form("إرسال")
%>
<HTML>
<الرأس>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</الرأس>
<الجسم>
<%
إذا strSubmit = "" ثم
%>البيانات
:
يمكن أن يكون هذا هو الحال بالنسبة لـ NT و NTSC، وهو ما يمثل تحديًا حقيقيًا لـ ASP. لا داعي للقلق بشأن هذا الأمر.
<طريقة إجراء النموذج = "ASPPrint.asp" = معرف POST = اسم النموذج = النموذج>
<عرض الجدول=محاذاة 100%=الحدود المركزية=0 المسافة بين الخلايا=1 لوحة الخلية=1>
<TR>
<TD ALIGN=right NOWRAP>محدد موقع الويب:</TD>
<TD ALIGN=left NOWRAP><INPUT type = "text" id = اسم مسار الطابعة = قيمة مسار الطابعة = "\< المجال >< الطابعة >"></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>الصفحة الرئيسية:</TD>
<TD ALIGN=left NOWRAP><INPUT type="text" id=username name=username
value="<% = strUsername %>"></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>الموافقة على الأمر:</TD>
<TD ALIGN=left NOWRAP><INPUT type="password" id=اسم كلمة المرور=password></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>مراجعة بيانات المنتج:</TD>
<TD ALIGN=left NOWRAP><TEXTAREArows=2 cols=20 id=اسم الرسالة=message></TEXTAREA></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP> </TD>
<TD ALIGN=left NOWRAP><INPUT type="submit" value="Submit" id=submit name=submit></TD>
</TR>
</الجدول>
</FORM>
قد لا يكون الأمر كذلك.
<%
آخر
"هذا هو النموذج الذي يجب أن يكون عليه الأمر."
strPrinterPath = Request.Form("printerpath")
strUsername = Request.Form("اسم المستخدم")
strPassword = Request.Form("كلمة المرور")
strMessage = Request.Form("message")
سوف نستخدم الآن كائن VBScript FileSystemObject وكائن عمل WSH Net. سوف كائن الشبكة
أعطنا الطرق التي نحتاجها لفتح اتصال الطابعة، وسيسمح لنا FileSystemObject ببث بياناتنا
الإخراج إلى الطابعة. نقوم بإنشاء هذه الكائنات في الكود التالي
مثال:
'WSH هو أفضل منتج في العالم
تعيين objWSHNet = CreateObject("WScript.Network")
objWSHNet.AddPrinterConnection "LPT1"، strPrinterPath، False، strUsername، strPassword
'"الحصول على أفضل النتائج في المستقبل"
تعيين objFS = CreateObject("Scripting.FileSystemObject")
تعيين objPrinter = objFS.CreateTextFile("LPT1:"، True)
'
objPrinter.Write(strMessage)
'الحصول على أفضل النتائج
على خطأ استئناف التالي
objPrinter.Close
‘
إذا أخطأت ثم
الاستجابة.كتابة ("خطأ #" & CStr(Err.Number) & "" & Err.Description)
خطأ.واضح
آخر
"الأمر الأكثر أهمية هو أن تكون قادرًا على تحقيق النجاح"
الاستجابة.الكتابة("<CENTER>")
Response.Write("<TABLE WIDTH=100% ALIGN=center BORDER=0 CELLSPACING=1 CELLPADDING=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>