لقد كنت أعاني دائمًا من مشاكل في الحلقات متعددة الصفوف أو الأعمدة في Asp. واليوم، قمت بنشر الكود التالي كهدية تذكارية لنفسي، وذلك بتوجيه من Brother Big Bird محدود ولا يمكنني سوى القيام بالخطوة التالية:
كود ASP/Visual Basic
انسخ رمز الكود كما يلي:
<%
Const p=6 '2 عنصر لكل صفحة
مجموعة rs = server.createobject(adodb.recordset)
sql = حدد * من ترتيب العرض حسب المعرف Desc
rs.فتح SQL، كون، 1
أنا = 0
تفعل في حين لا rs.eof
%> <td align=center height=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> العرض=150 الارتفاع=98 /></td>
<%
إذا (i+1) Mod 3 =0 إذن
الاستجابة.اكتب </tr>
إذا كنت<(p-1) ثم Response.اكتب <tr>
نهاية إذا
ط=ط+1
إذا i>p ثم قم بالخروج
rs.movenext
حلقة
إذا كنت Mod 3 <>0 ثم
بالنسبة لـ m=3-(i Mod 3) إلى الخطوة 1 -1
استجابة.كتابة<td> </td>
التالي
استجابة.كتابة</tr>
نهاية إذا
إذا كنت = 3 ثم
استجابة.كتابة <td> </td><td> </td><td> </td></tr>
انتهي إذا
rs. Close
تعيين RS=لا شيء
%>
الكود السابق لم يتغير
انسخ رمز الكود كما يلي:
<%
Const p=6 '2 عنصر لكل صفحة
مجموعة rs = server.createobject(adodb.recordset)
sql = حدد * من ترتيب العرض حسب المعرف Desc
rs.فتح SQL، كون، 1
أنا = 1
تفعل في حين لا rs.eof
%> <td align=center height=98>
<a href=show.asp?id=<%=rs(id)%>>
<img src=<%=rs(pic)%> العرض=150 الارتفاع=98 /></td>
<%
إذا كنت وزارة الدفاع 3 = 0 ثم
الاستجابة.اكتب(</tr><tr>)
نهاية إذا
ط=ط+1
إذا i>p ثم قم بالخروج
rs.movenext
حلقة
rs. Close
تعيين RS=لا شيء
%>