แนะนำ: ใช้ ASP เพื่อสร้างการค้นหาในสถานที่ หากคุณมีเว็บไซต์ขนาดใหญ่และเนื้อหามากมายมันมักจะเป็นเรื่องยากสำหรับผู้เข้าชมที่จะค้นหาสิ่งที่พวกเขาต้องการ ในเวลานี้คุณต้องค้นหาเว็บไซต์เพื่อช่วยให้ผู้เยี่ยมชมค้นหาข้อมูลที่พวกเขากำลังมองหาได้เร็วขึ้น! ตอนนี้คุณสามารถใช้ฟังก์ชั่นนี้กับ ASP ได้อย่างง่ายดายไม่ต้องพูดถึงว่ามีเว็บไซต์มากมายที่รองรับ ASP ในขณะนี้ คุณสามารถใช้เครื่องมือค้นหานี้เพื่อค้นหาหน้าแรกของคุณ
< %@ language = vbscript %>
-
ตัวเลือกอย่างชัดเจน
แบบฟอร์ม Dim Strsubmit ที่ใช้เพื่อบันทึกค่าของปุ่มส่ง
Dim Strprinterpath 'บันทึกค่าของเส้นทางเครื่องพิมพ์เครือข่ายในรูปแบบ
ค่า strusername ของชื่อผู้ใช้ในรูปแบบ
dim strpassword 'ค่าของรหัสผ่านในรูปแบบ
รูปแบบ Dim StrMessage พิมพ์ค่าของเนื้อหา
dim objfs วัตถุวัตถุใน vbscript
Dim Objwshnet 'วัตถุเครือข่ายใน WSH
Dim Objprinter 'วัตถุพิมพ์
strsubmit = request.form (ส่ง)
-
<html>
<head>
<meta name = generator content = Microsoft Visual Studio 6.0>
</head>
<body>
-
ถ้า strsubmit = จากนั้น
-
โปรดทราบว่า:
เนื่องจากนี่คือการสาธิตบัญชีและรหัสผ่านเกี่ยวกับ NT จะถูกส่งผ่านใน ASP โดยใช้วิธีการที่ไม่ได้เข้ารหัส
กระบวนการเข้าสู่ระบบควรได้รับการจัดการอย่างปลอดภัยในการใช้งานจริง
<form action = aspprint.asp method = โพสต์ id = ชื่อฟอร์ม = ฟอร์ม>
<width table = 100% allign = center border = 0 cellspacing = 1 cellpadding = 1>
<tr>
<td align = ขวา nowrap> เส้นทางเครื่องพิมพ์เครือข่าย: </td>
<td align = ซ้าย nowrap> <อินพุต type = text id = printerpath name = printerpath
value = // <domain>/<เครื่องพิมพ์ >> </td>
</tr>
<tr>
<td Align = Right NowRap> บัญชีเข้าสู่ระบบ: </td>
<td align = ซ้าย nowrap> <อินพุต type = text id = ชื่อผู้ใช้ = ชื่อผู้ใช้ชื่อ
value = < % = strusername % >> </td>
</tr>
<tr>
<td Align = Right NowRap> รหัสผ่านเข้าสู่ระบบ: </td>
<td align = ซ้าย nowrap> <อินพุต type = รหัสรหัสผ่าน = รหัสผ่าน
name = password> </td>
</tr>
<tr>
<td Align = Right NowRap> โปรดป้อนข้อความที่คุณต้องการพิมพ์: </td>
<td align = ซ้าย nowrap> <textarea rows = 2 cols = 20 id = ข้อความ
name = message> </textarea> </td>
</tr>
<tr>
<td align = ขวา nowrap> </td>
<td align = ซ้าย nowrap> <อินพุต type = submit value = ส่ง
id = ส่งชื่อ = ส่ง> </td>
</tr>
</table>
</form>
เมื่อส่งข้อมูลข้างต้นคุณสามารถพิมพ์ได้ตามรหัสต่อไปนี้
-
อื่น
'รับข้อมูลการตอบกลับจากแบบฟอร์ม
strprinterpath = request.form (printerpath)
struserName = request.form (ชื่อผู้ใช้)
strpassword = request.form (รหัสผ่าน)
strMessage = request.form (ข้อความ)
ตอนนี้เราจะใช้วัตถุ VBScript FilesySstemObject และวัตถุเครือข่าย WSH วัตถุเครือข่ายจะ
ให้วิธีการที่เราจำเป็นต้องเปิดการเชื่อมต่อเครื่องพิมพ์และ FileSystemObject จะช่วยให้เราสตรีมของเรา
เอาต์พุตไปยังเครื่องพิมพ์ เราสร้างวัตถุเหล่านี้ในตัวอย่างรหัสต่อไปนี้:
ตั้งค่า objfs = createObject (scripting.filesystemobject)
ตั้งค่า objwshnet = createObject (wscript.network)
'เชื่อมต่อกับเครื่องพิมพ์เครือข่ายโดยใช้ WSH
objwshnet.addprinterconnection lpt1, strprinterpath, false, strusername, strpassword
'ใช้วัตถุระบบไฟล์เพื่อใช้อุปกรณ์การพิมพ์เป็นไฟล์
ตั้งค่า objprinter = objfs.createtextfile (lpt1 :, จริง)
'ส่งข้อความไปยังอุปกรณ์การพิมพ์
objprinter.write (strmessage)
'ปิดวัตถุอุปกรณ์พิมพ์และทำการประมวลผลกับดักข้อผิดพลาด
เมื่อเกิดข้อผิดพลาดต่อไป
objprinter.close
'หากเกิดข้อผิดพลาดให้ปิดการเชื่อมต่อการพิมพ์และส่งข้อความแสดงข้อผิดพลาด
ถ้าเอ่อแล้ว
Response.write (ข้อผิดพลาด # & cstr (err.number) & & err.description)
err.lear
อื่น
'การดำเนินการประสบความสำเร็จข้อมูลการยืนยันผลลัพธ์
Response.write (<enter>)
Response.write (<width table = 100% allign = center border = 0 cellspacing = 1 cellpadding = 1>)
Response.write (<tr> <td align = ขวา> <b> พิมพ์ข้อความส่ง: </b> </td>)
Response.write (<td align = ซ้าย> & strMessage & </td> </tr>)
Response.write (<tr> <td align = ขวา> <b> เส้นทางเครื่องพิมพ์เครือข่าย: </b> </td>)
Response.write (<td align = ซ้าย> & strprinterpath & </td> </tr>)
Response.write (<tr> <td align = ขวา> <b> บัญชีเข้าสู่ระบบ: </b> </td>)
Response.write (<td align = ซ้าย> & strusername & </td> </tr>)
Response.write (</bable>)
Response.write (</enter>)
สิ้นสุดถ้า
'ยกเลิกการเชื่อมต่อการพิมพ์
objwshnet.removeprinterconnection lpt1:
ตั้งค่า objwshnet = ไม่มีอะไร
ตั้งค่า objfs = ไม่มีอะไร
ตั้งค่า objprinter = ไม่มีอะไร
สิ้นสุดถ้า
-
</body>
</html>
แชร์: ASP รวมคลาสคำสั่ง SQL เมื่อเขียนโปรแกรมฐานข้อมูล ASP เรามักจะใช้คำสั่ง SQL และเมื่อเพิ่มและอัปเดตข้อมูลเรามักจะใช้วิธีการต่อไปนี้: แทรกลงในข้อความ (incept, ผู้ส่ง, ชื่อ, เนื้อหา, sendtime, ค่าสถานะ, issend) ค่า ('incept (i)', 'memberName'