คำนิยามอาร์เรย์
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
แอปพลิเคชั่นปลดล็อค
การใช้งานเซสชันเหมือนกับแอปพลิเคชัน
นำเข้าข้อมูลจากฐานข้อมูลไปยังอาร์เรย์
DimMyArray
รับบันทึกทั้งหมด
MyArray = RS.GetRows
รับ 10 รายการแรก
MyArray = RS.GetRows(10)
สำหรับแถว = 0 ถึง UBound (MyArray, 2)
สำหรับ col = 0 ถึง UBound (MyArray, 1)
Response.เขียน (col, แถว) & <br>
ต่อไป
ต่อไป
-
'สำหรับอัลกอริธึม asp bubbling
-
ฟังก์ชันการเรียงลำดับ(ary)
Dim KeepChecking, I, FirstValue, SecondValue
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 = จริง
สิ้นสุดถ้า
ต่อไป
วนซ้ำ
เรียงลำดับ = อารีย์
ฟังก์ชันสิ้นสุด
ID สลัว, ArrayID, Myarray, M
รหัส=55,48,78,10,90
ArrayID=แยก(ID,,)
Myarray=เรียงลำดับ(ArrayID)
'ทดสอบการเรียงลำดับ
สำหรับ M=0 ถึง Ubound(Myarray)
การตอบสนองเขียน Myarray(M) & <br> & vbCRLF
ต่อไป
'แน่นอน คุณสามารถใช้สิ่งต่อไปนี้ได้
ดิม ไมอาเรย์
มายเรย์=อาร์เรย์(12,10,25,78,45)
Myarray=เรียงลำดับ(ArrayID)
'ทดสอบการเรียงลำดับ
สำหรับ M=0 ถึง Ubound(Myarray)
การตอบสนองเขียน Myarray(M) & <br> & vbCRLF
ต่อไป
'ทดสอบการเรียงลำดับ