ฉันปวดหัวกับลูปหลายแถวหรือหลายคอลัมน์ใน Asp มาโดยตลอด วันนี้ฉันได้รับบางอย่างฉันโพสต์โค้ดต่อไปนี้ไว้เป็นของที่ระลึกสำหรับตัวเอง มันได้รับการแก้ไขอย่างสมบูรณ์ภายใต้การแนะนำของ Brother Big Bird มีจำกัด และฉันสามารถทำได้เพียงขั้นตอนต่อไปนี้:
รหัส ASP/Visual Basic
คัดลอกรหัสรหัสดังต่อไปนี้:
-
Const p=6 '2 รายการต่อหน้า
ชุด rs = server.createobject (adodb.recordset)
sql = เลือก * จากลำดับการแสดงตามรหัส Desc
rs.เปิด sql,conn,1
ผม=0
ทำในขณะที่ไม่ใช่ rs.eof
%> <td align=ความสูงตรงกลาง=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> width=150 height=98 /></td>
-
ถ้า (i+1) Mod 3 =0 แล้ว
การตอบสนองเขียน </tr>
ถ้าฉัน<(p-1) ดังนั้น Response.Write <tr>
สิ้นสุดถ้า
ฉัน=ฉัน+1
ถ้าฉัน>p ให้ออกจากทำ
rs.movenext
วนซ้ำ
ถ้าฉัน Mod 3 <>0 แล้ว
สำหรับ m=3-(i Mod 3) ถึง 1 ขั้นตอน -1
response.write<td> </td>
ต่อไป
การตอบสนองเขียน</tr>
สิ้นสุดถ้า
ถ้าฉัน = 3 แล้ว
การตอบกลับเขียน <td> </td><td> </td><td> </td></tr>
จบถ้า
฿.ปิด
ตั้งค่า rs=nothing
-
รหัสก่อนหน้านี้ไม่มีการเปลี่ยนแปลง
คัดลอกรหัสรหัสดังต่อไปนี้:
-
Const p=6 '2 รายการต่อหน้า
ชุด rs = server.createobject (adodb.recordset)
sql = เลือก * จากลำดับการแสดงตามรหัส Desc
rs.เปิด sql,conn,1
ผม=1
ทำในขณะที่ไม่ใช่ rs.eof
%> <td align=ความสูงตรงกลาง=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> width=150 height=98 /></td>
-
ถ้าฉัน mod 3 = 0 แล้ว
การตอบกลับเขียน(</tr><tr>)
สิ้นสุดถ้า
ฉัน=ฉัน+1
ถ้าฉัน>p ให้ออกจากทำ
rs.movenext
วนซ้ำ
฿.ปิด
ตั้งค่า rs=nothing
-