قبل بضعة أيام، تساءل بعض مستخدمي الإنترنت: كيفية إخراج مجموعة سجلات ASP إلى شاشة عرض جدولية تحتوي على عدد n من الأعمدة. لقد كتبت الآن واحدًا لراحة الجميع.
'تعريف المتغيرات
Dim cn,rs,Sql
Sql = "حدد معرف العميل من الطلبات"
'إجمالي عدد السجلات
الرقم الإجمالي الخافت
تعيين cn = Server.CreateObject("ADODB.Connection")
cn.Open "Provider=SQLOLEDB.1;معرف المستخدم=sa;الكتالوج الأولي=NorthWind;مصدر البيانات=.;كلمة المرور=;"
تعيين rs = Server.CreateObject("ADODB.Recordset")
rs.Open SQL، cn، 3، 1
TotalNumber = rs.RecordCount
إذا كان الرقم الإجمالي = 0 ثم
الاستجابة.اكتب "لم يتم تسجيل الإخراج."
"www.downcodes.com."
آخر
خافت jj، nLeft، cCol
جى = 0
ن كول = 415
nLeft = nCol- (TotalNumber Mod nCol)
إذا كان nLeft = nCol، فإن nLeft = 0
Response.اكتب "<حدود الجدول><tr>" & vbCrLf
في حين لا rs.EOF
Response.اكتب "<td>" & rs("CustomerID") & "</td>" & vbCrLf
'إذا (jj Mod nCol) = (nCol - 1) وjj <> TotalNumber - 1 ثم الاستجابة. اكتب "</tr><tr>" & vbCrLf
'إذا كان (jj Mod nCol) = (nCol - 1) وjj = TotalNumber-1، فاكتب الاستجابة "</tr>" & vbCrLf
إذا (jj Mod nCol) = (nCol - 1) إذن
إذا jj <> TotalNumber - 1 إذن
Response.اكتب "</tr><tr>" & vbCrLf
آخر
Response.اكتب "</tr>" وvbCrLf
نهاية إذا
نهاية إذا
ي ي = ي ي + 1
rs.MoveNext
ويند
إذا nLeft <> 0 وnLeft <> nCol إذن
إذا nCol < TotalNumber ثم
لأني = 1 إلى nLeft
Response.اكتب "<td> </td>" & vbCrLf
التالي
نهاية إذا
Response.اكتب "</tr>" وvbCrLf
نهاية إذا
الاستجابة.اكتب "</table>"
نهاية إذا
إغلاق
سيترز = لا شيء
cn. إغلاق
تعيين cn = لا شيء
الاستجابة.النهاية