แนะนำ: รหัส ASP บางอย่างที่ควรค่าแก่การรวบรวม รหัส ASP บางตัวที่คุ้มค่าที่จะรวบรวมรหัส ASP บางอย่างที่ควรค่าแก่การรวบรวม 1. OnContextMenu = window.event.returnValue = FALSE จะปิดกั้นปุ่มปุ่มเมาส์ขวาอย่างสมบูรณ์เส้นขอบ OnContextMenu = return (false) tdno/ตารางสามารถใช้สำหรับตารางที่ 2
เพื่อให้สามารถใช้งานได้อย่างถูกต้องจะต้องวางในแอปพลิเคชันเสมือนจริงบนเซิร์ฟเวอร์และไฟล์ Global.asa ที่ให้ไว้จะต้องอยู่ในไดเรกทอรีรากของแอปพลิเคชัน วิธีที่ง่ายที่สุดคือใส่ไฟล์ global.asa ลงในไดเรกทอรีรูทของเว็บไซต์เริ่มต้น (โดยค่าเริ่มต้น, C:/InetPub/Wwwroot)
เปลี่ยนชื่อไฟล์ global.asa ที่มีอยู่เป็นวิธีที่ดีในการกู้คืนไฟล์ในภายหลัง
1. แสดงเนื้อหาของแอปพลิเคชันคอลเลกชัน
วัตถุ ASPCOUNTER เป็นสมาชิกของคอลเลกชัน STATICOBJECTSS (กำหนดโดยองค์ประกอบ <POCICAL>) แต่ส่วนที่เหลือ (indive โดยเซิร์ฟเวอร์สร้างความเป็นสมาชิก) เป็นสมาชิกของคอลเลกชันเนื้อหา
คุณสามารถดูค่าที่วางไว้ในคอลเลกชันเหล่านี้โดยใช้เว็บเพจตัวอย่าง global.asa ซึ่งเคยเห็นมาก่อน:
ต่อไปนี้เป็นเนื้อหาที่ยกมา: <!- ประกาศอินสแตนซ์ขององค์ประกอบ ASPCOUNT ด้วย ขอบเขตระดับแอปพลิเคชัน //-> <Object ID = AspCounter runat = Server Scope = applicatoin progid = mswc.counters> </วัตถุ> - - <ภาษาสคริปต์ = vbscript runat = เซิร์ฟเวอร์> Application_onstart () 'สร้างอินสแตนซ์ของการเชื่อมต่อ ADO ด้วยขอบเขตระดับแอปพลิเคชัน ตั้งค่าแอปพลิเคชัน (Adoconnection) = Server.CreateObject (ADODB.Connection) Dim Vararray (3) 'สร้างอาร์เรย์ตัวแปรและเติมเต็ม Vararray (0) = นี่คือ Vararray (1) = ตัวแปรอาร์เรย์ Vararray (2) = เก็บไว้ใน Vararray (3) = วัตถุแอปพลิเคชัน แอปพลิเคชัน (variant_array) = vararray 'เก็บไว้ในแอปพลิเคชัน THD แอปพลิเคชัน (start_time) = cstr (ตอนนี้) 'เก็บวันที่/เวลาเป็นสตริง แอปพลิเคชัน (VIST_COUNT) = 0 'ชุดตัวนับตัวนับเป็นศูนย์ สิ้นสุดย่อย - - </สคริปต์> |
(1) การรวบรวมรหัสผ่านการสำรวจเนื้อหา
ในการสำรวจคอลเลกชันเนื้อหาสำหรับแต่ละ ... โครงสร้างถัดไปสามารถใช้งานได้ แต่ละรายการในชุดอาจเป็นตัวแปรประเภทตัวแปรง่าย ๆ อาร์เรย์ตัวแปรหรือการอ้างอิงไปยังวัตถุ เนื่องจากจำเป็นต้องมีการประมวลผลที่แตกต่างกันสำหรับค่าแต่ละประเภทแต่ละประเภทจะต้องมีการตรวจสอบเพื่อกำหนดประเภทของมัน
งานนี้สามารถทำได้โดยใช้ฟังก์ชั่น vartype ใน VBScript ที่นี่ใช้ฟังก์ชัน isobject และ isarray แทน:
ต่อไปนี้เป็นเนื้อหาที่ยกมา: สำหรับแต่ละ objitem ในแอปพลิเคชัน ถ้า isObject (application.contents (objitem)) แล้ว Response.write การอ้างอิงวัตถุ: '& objitem &' elseif isarray (application.contents (objitem)) จากนั้น Response.write Array: '& objitem &' เนื้อหาคือ: vararray = application.contents (objitem) 'หมายเหตุ: ต่อไปนี้ทำงานกับอาร์เรย์หนึ่งมิติเท่านั้น สำหรับ intloop = 0 ถึง Ubound (Vararray) Response.write INDEX (& intloop &) = & _ Vararray (intloop) & ต่อไป อื่น Response.write ตัวแปร: '& objitem &' = _ & application.contents (objitem) & สิ้นสุดถ้า ต่อไป |
สังเกตว่าโปรแกรมดึงอาร์เรย์จากวัตถุแอปพลิเคชันได้อย่างไร กำหนดให้กับตัวแปรท้องถิ่นโดยใช้คำสั่งต่อไปนี้:
vararray = application.contents (objitem)
ใช้ฟังก์ชั่น Ubound เพื่อค้นหาขนาดของอาร์เรย์ (จำนวนองค์ประกอบ) และค่านี้สามารถใช้เป็นเงื่อนไขการเลิกจ้างของ traversal:
สำหรับ intloop = 0 ubound (Vararray)
ตัวอย่างนี้เป็นอาร์เรย์หนึ่งมิติและจะแสดงเนื้อหาของอาร์เรย์ดังกล่าวเท่านั้น สามารถแก้ไขรหัสได้ตามต้องการเพื่อจัดการอาร์เรย์หลายมิติตัวอย่างเช่น:
ต่อไปนี้เป็นเนื้อหาที่ยกมา: สำหรับ intloop = 0 ถึง Ubound (Vararray) intNumberOfDimensions = ubound (Vararray, 1) สำหรับ intdimension = 0 ถึง intnumberofdimensions Response.write Index (& intloop &) = _ & Vararray (intloop, intdimension) ต่อไป Response.write ต่อไป |
(2) รหัสเพื่อสำรวจคอลเลกชัน StaticObjects
คอลเลกชัน StaticObjects มีการอ้างอิงวัตถุทั้งหมดที่ประกาศโดยใช้องค์ประกอบ <jobch> ใน global.asa เนื่องจากแต่ละรายการเป็นตัวแปรวัตถุคุณสามารถใช้รหัสที่ง่ายกว่าเพื่อสำรวจอาร์เรย์นี้ เราจะส่งออกชื่อของวัตถุ (คำจำกัดความดั้งเดิมในแอตทริบิวต์ id):
ต่อไปนี้เป็นเนื้อหาที่ยกมา: สำหรับแต่ละ objitem ใน application.staticobjects ถ้า isObject (application.staticObjects (objitem)) แล้ว Response.write <วัตถุ> องค์ประกอบ: id = '& objitem &' สิ้นสุดถ้า ต่อไป |
แชร์: ไวยากรณ์ทั่วไปของ 11 ฐานข้อมูลในการเขียนโปรแกรม ASP บทความนี้ส่วนใหญ่แนะนำไวยากรณ์ทั่วไปสำหรับการเชื่อมต่อ ASP ไปยังฐานข้อมูล 11 ฐาน สำหรับรายละเอียดโปรดดูสิ่งต่อไปนี้: 1. วิธีการเชื่อมต่อ DSN-Less ของฐานข้อมูลการเข้าถึง: ต่อไปนี้เป็นเนื้อหาที่อ้างอิง: SET ADOCON = Server.CreateObject (ADODB.CONNECTION) ADOCONN.OPENDRIVER = {Microsoft Access Driver (*. MDB)}; dbq = _ server.mappath
2 หน้ารวมหน้าก่อนหน้า 12 หน้าถัดไป