-
Constadinteger = 3
Constadvarchar = 200
'ประกาศตัวแปร
Dimmyrecordset
เครื่องลดทอน
หรอก
dimstraltcolor
สีสลัว
bcolor = false
'ตัวอย่างนี้ใช้ RecordSet ในหน่วยความจำสิ่งที่คุณต้องทำคือแก้ไขส่วนของการแสดงข้อมูลของคุณ
SetMyRecordSet = Server.CreateObject ("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 ("title"). value = "ตัวอักษร:" & chr (iletter)
myRecordSet.fields ("คำอธิบาย"). value = "ที่นี่ตัวอักษรทดสอบ:" & chr (iletter) & "
myRecordSet.update
Next'iletter
'ย้ายไปที่ตำแหน่งเริ่มหัวเพื่อให้ลูปต่อไปนี้เริ่มต้นขึ้น
myRecordset.movefirst
'แสดงข้อมูลในตาราง
Response.write "<tableBorder =" "0" "cellpacing =" "0" "cellpadding =" "3" ">" & vbcrlf
'ตรวจสอบส่วนหัว
response.writevbtab & "<tr>" & vbcrlf
foreachfieldinmyrecordset.fields
Response.writevbtab & vbtab & "<tdbgcolor =" "#cccccc" "> <strong>"
response.writefield.name
Response.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 =" ""
Response.writessTraltColor
Response.write "" "" "" & field.value & "</td>" & vbcrlf
Next'field
response.writevbtab & "</tr>" & vbcrlf
myRecordSet.movenext
วง
'endtetable