يعرض ASP البيانات في شكل جدول، مما يسهل إخراج محتوى متعدد الصفوف والأعمدة. 'تعريف المتغيرات
ديم 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 ثم
ليس لدى Response.Write أي إخراج مسجل.
آخر
خافت jj، nLeft، cCol
جى = 0
ن كول = 415
nLeft = nCol- (TotalNumber Mod nCol)
إذا كان nLeft = nCol، فإن nLeft = 0
الاستجابة.اكتب <حدود الجدول><tr> وvbCrLf
في حين لا rs.EOF
الاستجابة.اكتب <td> & rs(CustomerID) & </td> & vbCrLf
'إذا (jj Mod nCol) = (nCol - 1) وjj <> TotalNumber - 1 ثم Response.Write </tr><tr> & vbCrLf
'إذا (jj Mod nCol) = (nCol - 1) وjj = TotalNumber-1 ثم Response.Write </tr> & vbCrLf
إذا (jj Mod nCol) = (nCol - 1) إذن
إذا jj <> TotalNumber - 1 إذن
Response.Write </tr><tr> & vbCrLf
آخر
Response.Write </tr> & vbCrLf
نهاية إذا
نهاية إذا
ي ي = ي ي + 1
rs.MoveNext
ويند
إذا nLeft <> 0 وnLeft <> nCol إذن
إذا nCol < TotalNumber ثم
لأني = 1 إلى nLeft
الاستجابة.اكتب <td> </td> & vbCrLf
التالي
نهاية إذا
Response.Write </tr> & vbCrLf
نهاية إذا
الاستجابة.اكتب </table>
نهاية إذا
إغلاق
سيترز = لا شيء
cn.إغلاق
تعيين cn = لا شيء
الاستجابة.النهاية