บทความนี้จะแนะนำการใช้ redim และการเก็บรักษาใน ASP เป็นหลักเพื่อสร้างอินสแตนซ์อาร์เรย์แบบไดนามิก นอกจากนี้ บทความนี้ยังให้ตัวอย่างการดำเนินการอาร์เรย์อื่นๆ ใน ASP อีกด้วย
ฟังก์ชั่นของ REDIM ใน asp คือการกำหนดความยาวของอาเรย์แบบไดนามิก
คำสั่งในอาร์เรย์แบบไดนามิกสามารถปรากฏในขั้นตอนเท่านั้นและสามารถใช้ได้หลายครั้ง คุณสามารถเปลี่ยนขนาดและขนาดของอาร์เรย์ได้
รูปแบบ:
REDIM [เก็บรักษา] ชื่ออาร์เรย์ (ตัวห้อย 1 [ตัวห้อย 2....])
เก็บรักษาเนื้อหาของอาร์เรย์แบบไดนามิก (หากไม่ได้ใช้ คำสั่งที่เก็บไว้ทั้งหมดในปัจจุบันจะหายไปทุกครั้งที่ดำเนินการคำสั่ง REDIM)
ตัวอย่างเช่น:
คัดลอกรหัสรหัสดังต่อไปนี้:Dim DynArray() 'กำหนดอาร์เรย์ DynArray() เป็นอาร์เรย์แบบไดนามิก
REDIM รักษา DynArray(20) 'จัดสรรองค์ประกอบจำนวนหนึ่งให้กับอาร์เรย์
นี่เป็นสิ่งสำคัญมากสำหรับการเปลี่ยนแปลงแบบไดนามิกในอาร์เรย์ในการเขียนโปรแกรม และมักจะสามารถนำมาใช้และประมวลผลได้ REDIM นี้มีความเข้าใจในเชิงลึกเกี่ยวกับคอมพิวเตอร์เครื่องที่สอง และคิดว่าการปรับปรุงการเขียนโปรแกรมของตนเองจะมีประโยชน์มาก
นี่คือตัวอย่างบางส่วนของอาร์เรย์ ASP แน่นอนว่าไม่ใช่ทั้งหมดจะเป็นอาร์เรย์แบบไดนามิก
การใช้อาร์เรย์ในการเขียนโปรแกรม ASP:
คำจำกัดความของอาร์เรย์:
คัดลอกรหัสรหัสดังต่อไปนี้:DimMyArray
MyArray = อาร์เรย์(1'5'123'12'98)
อาร์เรย์ที่ขยายได้:
คัดลอกรหัสรหัสดังต่อไปนี้:DimMyArray()
สำหรับฉัน = 0 ถึง 10
ReDim รักษา MyArray(i)
MyArray(i)=i
ต่อไป
แยกสตริงและส่งกลับอาร์เรย์ของผลลัพธ์แยก:
คัดลอกรหัสรหัสดังต่อไปนี้:DimMyArray
MyArray = แยก(tempcnt‚chr(13)&chr(10))
สำหรับ I = Lbound(MyArray) ถึง Ubound(MyArray)
การตอบสนองเขียน MyArray(I) & <br>
ต่อไป
ฟังก์ชั่นการเรียงลำดับอาร์เรย์:
คัดลอกรหัสรหัสดังต่อไปนี้:ฟังก์ชั่น..เรียงลำดับ(ary)
KeepChecking = จริง
ทำจนกระทั่ง KeepChecking = FALSE
KeepChecking = FALSE
สำหรับ I = 0 ถึง UBound(ary)
ถ้าฉัน = UBound(ary) ให้ออกจาก For
ถ้า ary(I) > ary(I+1) แล้ว
ค่าแรก = ary(I)
ค่าที่สอง = ary(I+1)
ary(I) = ค่าที่สอง
ary(I+1) = ค่าแรก
KeepChecking = จริง
สิ้นสุดถ้า
ต่อไป
วนซ้ำ
เรียงลำดับ = อารีย์
สิ้นสุดฟังก์ชัน
ตัวอย่างการใช้งานฟังก์ชันการเรียงลำดับอาร์เรย์:
คัดลอกรหัสรหัสดังต่อไปนี้:DimMyArray
MyArray = อาร์เรย์(1'5'123'12'98)
MyArray = เรียงลำดับ (MyArray)
สำหรับ I = Lbound(MyArray) ถึง Ubound(MyArray)
การตอบสนองเขียน MyArray(I) & <br>
ต่อไป
การใช้อาร์เรย์ในแอปพลิเคชันและเซสชัน:
คัดลอกรหัสรหัสดังต่อไปนี้:แอปพลิเคชั่นล็อค
แอปพลิเคชัน (StoredArray) = MyArray
แอปพลิเคชั่นปลดล็อค
LocalArray = แอปพลิเคชัน (StoredArray)
เขียนทับอาร์เรย์ในแอปพลิเคชัน:
คัดลอกรหัสรหัสดังต่อไปนี้:แอปพลิเคชั่นล็อค
แอปพลิเคชัน (StoredArray) = LocalArray
แอปพลิเคชั่นปลดล็อค
วิธีการใช้งาน Session จะเหมือนกับ Application โดยนำเข้าข้อมูลจากฐานข้อมูลลงในอาเรย์:
คัดลอกรหัสรหัสดังต่อไปนี้:DimMyArray
'รับบันทึกทั้งหมด
MyArray = RS.GetRows
'รับ 10 รายการแรก'
MyArray = RS.GetRows(10)
สำหรับแถว = 0 ถึง UBound(MyArray‚ 2)
สำหรับ col = 0 ถึง UBound(MyArray‚ 1)
Response.Write (คอลัมน์‚ แถว) & <br>
ต่อไป
ต่อไป
จากตัวอย่างข้างต้น เราจึงสามารถเข้าใจอาร์เรย์ให้ลึกซึ้งยิ่งขึ้น และใช้งานได้อย่างยืดหยุ่นในการใช้งานจริง