أشعر بالضيق حقًا الآن. هل ما يلي بسيط بما فيه الكفاية؟
نسخة الكود كما يلي:
<٪
Dimi ، J ، Icols
i = 0 '// تعريف I for loop
ICOLS = 3 '// كم عدد الأعمدة الموجودة في صف واحد (عدد صحيح موجب)
استجابة. write ("<tablewidth =" "100 ٪" "border =" "1" "cellpacing =" "2" "cellpadding =" "0"
Dowhilenotors.eof '// بدء تشغيل سجل الإخراج مع Forors.RecordCountNext ، وكذلك حسنًا
ifi> 0andimodicols = 0thenResponse.write ("</tr> <tr>"
i = i+1
Response.write ("<tdwidth =" "" "و formatpercent (1/icols ، 0) و" "" "> الإخراج" & i & "السجل </td>" & vbnewline)
ors.movenext
حلقة '// إنهاء مجموعة سجلات الإخراج
Ors.close
forj = 1toicols-1 '// ابدأ في التعويض عن السجلات الفارغة ، وما يصل إلى 1 icols-1
ifimodicols = 0thenexitfor '// عدد الأعمدة لن يكون كافيًا كافية
i = i+1
Response.write ("<tdwidth =" "" "& formatpercenter (1/icols ، 0) &" "" "
التالي
استجابة. write ("</tr> </table>" & vbnewline) '// table tail
٪>