<٪
constadinteger = 3
starvadvarchar = 200
"إعلان المتغيرات
DimmyRecordset
dimiletter
ديمفيلد
dimstraltcolor
DimbColor
bcolor = خطأ
يستخدم هذا المثال مجموعة السجلات في الذاكرة ، كل ما عليك فعله هو تعديل جزء عرض البيانات الخاص بك.
setMyRecordSet = server.createBject ("adodb.recordset")
myrecordset.fields.append "id" ، adinteger
myrecordset.fields.append "title" ، advarchar ، 25
myrecordset.fields.append "الوصف" ، advarchar ، 255
myRecordSet.Open
fillRswithSampleData:
Foriletter = ASC ("A") Toasc ("M")
MyRecordSet.Addnew
myRecordSet.fields ("id"). value = iletter-64
myrecordset.fields ("العنوان")
myRecordSet.fields ("الوصف"). value = "هنا الرسائل التي تم اختبارها:" & chr (iletter) & ".".
myRecordSet.update
التالي
انتقل إلى موضع بدء التشغيل بحيث تبدأ الحلقة التالية.
myRecordset.movefirst
عرض البيانات في الجدول
استجابة. write "<tableborder =" "0" "cellpacing =" "0" "" cellpadding = "" 3 ""> "& vbcrlf
"تحقق من الرأس
Response.writevbtab & "<tr>" & vbcrlf
foreachfieldinmyrecordset.fields
Response.writevbtab & vbtab & "<tdbgColor =" "#cccccc" "> <strong>"
review.writefield.name
استجابة. write "</strong> </td>" & vbcrlf
Next'field
Response.writevbtab & "</tr>" & vbcrlf
dowhilenotmyrecordset.eof
حلقة لتغيير لون الخلفية للخلية
bcolor = notbcolor
IFBCOLORTHEN
straltcolor = "#ffffff"
آخر
straltcolor = "#ff8040"
Endif
حلقة لتغيير لون الخلفية للخلية
Response.writevbtab & "<tr>" & vbcrlf
foreachfieldinmyrecordset.fields
Response.writevbtab & vbtab & "<tdbgColor =" ""
استجابة. writesstraltColor
Response.write "" "" "" "& field.value &" </td> "& vbcrlf
Next'field
Response.writevbtab & "</tr>" & vbcrlf
myRecordset.movenext
حلقة
'endthetable