<%@ ภาษา=vbscript %>
-
ตัวเลือกที่ชัดเจน
Dim strSubmit 'ค่าที่ใช้ในการบันทึกปุ่มส่งในแบบฟอร์ม
Dim strPrinterPath 'ค่าของเส้นทางเครื่องพิมพ์เครือข่ายที่บันทึกไว้ในแบบฟอร์ม
Dim strUsername 'ค่าของชื่อผู้ใช้ในแบบฟอร์ม'
Dim strPassword 'ค่าของรหัสผ่านในแบบฟอร์ม'
Dim strMessage 'สร้างค่าเนื้อหาการพิมพ์
Dim objFS 'วัตถุระบบไฟล์ใน VBScript
Dim objWS.NET 'วัตถุเครือข่ายใน WSH
Dim objPrinter 'พิมพ์วัตถุ'
strSubmit = คำขอแบบฟอร์ม (ส่ง)
-
<HTML>
<หัว>
<ชื่อเมตา=เนื้อหาเครื่องกำเนิดไฟฟ้า=microsoft Visual Studio 6.0>
</HEAD>
<ร่างกาย>
-
ถ้า strSubmit = จากนั้น
-
โปรดทราบว่า:
เนื่องจากนี่คือการสาธิต หมายเลขบัญชีและรหัสผ่านที่เกี่ยวข้องกับ NT จะถูกส่งใน ASP โดยใช้วิธีที่ไม่ได้เข้ารหัส
ในแอปพลิเคชันจริง กระบวนการเข้าสู่ระบบควรได้รับการจัดการอย่างปลอดภัย
<การกระทำของแบบฟอร์ม=วิธี ASPPrint.asp=POST id=ชื่อแบบฟอร์ม=แบบฟอร์ม>
<ความกว้างของตาราง=100% ALIGN=กึ่งกลาง BORDER=0 CELLSPACING=1 CELLPADDING=1>
<TR>
<TD ALIGN=right NOWRAP>เส้นทางเครื่องพิมพ์เครือข่าย:</TD>
<TD ALIGN=ซ้าย NOWRAP><ประเภทอินพุต=ข้อความ id=ชื่อเครื่องพิมพ์=เส้นทางเครื่องพิมพ์
ค่า=< โดเมน >< เครื่องพิมพ์ >></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>บัญชีเข้าสู่ระบบ:</TD>
<TD ALIGN=ซ้าย NOWRAP><ประเภทอินพุต=ข้อความ id=ชื่อผู้ใช้ ชื่อ=ชื่อผู้ใช้
ค่า=<% = strชื่อผู้ใช้ %>></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>รหัสผ่านเข้าสู่ระบบ:</TD>
<TD ALIGN=ซ้าย NOWRAP><ประเภทอินพุต=รหัสผ่าน id=รหัสผ่าน
ชื่อ=รหัสผ่าน></TD>
</TR>
<TR>
<TD ALIGN=right NOWRAP>โปรดป้อนข้อความที่คุณต้องการพิมพ์:</TD>
<TD ALIGN=ซ้าย NOWRAP><TEXTAREA แถว=2 cols=20 id=ข้อความ
ชื่อ=ข้อความ></ข้อความ></TD>
</TR>
<TR>
<TD ALIGN=ขวา NOWRAP> </TD>
<TD ALIGN=ซ้าย NOWRAP><INPUT type=ส่งค่า=ส่ง
id=ชื่อส่ง=ส่ง></TD>
</TR>
</ตาราง>
</รูปแบบ>
หลังจากส่งข้อมูลข้างต้นแล้ว คุณสามารถพิมพ์ตามรหัสต่อไปนี้
-
อื่น
' รับข้อมูลการตอบกลับจากแบบฟอร์ม
strPrinterPath = คำขอแบบฟอร์ม (เส้นทางเครื่องพิมพ์)
strUsername = คำขอแบบฟอร์ม (ชื่อผู้ใช้)
strPassword = คำขอแบบฟอร์ม (รหัสผ่าน)
strMessage = คำขอแบบฟอร์ม (ข้อความ)
ตอนนี้เราจะใช้วัตถุ VBScript FileSystemobject และวัตถุเครือข่าย WSH
บอกวิธีการที่เราต้องการในการเปิดการเชื่อมต่อเครื่องพิมพ์ และ FileSystemObject จะอนุญาตให้เราสตรีมของเรา
ส่งออกไปยังเครื่องพิมพ์ เราสร้างวัตถุเหล่านี้ในตัวอย่างโค้ดต่อไปนี้:
ตั้งค่า objFS = CreateObject(Scripting.FileSystemObject)
ตั้งค่า objWSHNet = CreateObject(WScript.Network)
' ใช้ WSH เพื่อเชื่อมต่อกับเครื่องพิมพ์เครือข่าย
objWSHNet.AddPrinterConnection LPT1, strPrinterPath, เท็จ, strUsername, strPassword
' ใช้ออบเจ็กต์ระบบไฟล์เพื่อใช้อุปกรณ์การพิมพ์เป็นไฟล์
ตั้งค่า objPrinter = objFS.CreateTextFile(LPT1:, True)
' ส่งข้อความไปยังอุปกรณ์การพิมพ์
objPrinter.Write (strMessage)
'ปิดวัตถุอุปกรณ์การพิมพ์และดำเนินการประมวลผลกับดักข้อผิดพลาด
เมื่อเกิดข้อผิดพลาด ดำเนินการต่อต่อไป
objPrinter ปิด
' หากเกิดข้อผิดพลาด ให้ปิดการเชื่อมต่อการพิมพ์และแสดงข้อความแสดงข้อผิดพลาด
หากผิดพลาดแล้ว
การตอบกลับเขียน (ข้อผิดพลาด # & CStr (หมายเลขข้อผิดพลาด) & & คำอธิบายข้อผิดพลาด)
ผิดพลาด.เคลียร์
อื่น
' การดำเนินการสำเร็จและมีข้อความยืนยันแสดงออกมา
การตอบกลับเขียน(<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>