<
const adinteger = 3
const advarchar = 200
声明变量
昏暗的myrecordset
昏暗的字母中
昏暗的场
昏暗的straltcolor
昏暗的bcolor
bcolor = false

使用记录集在记忆里的，你需要做的就是修改你的数据显示部分。
集myrecordset = server.createobject（ADODB。记录集）
myrecordset.fields.append 身份
myrecordset.fields.append题名
myrecordset.fields.append描述

myrecordset。开放

用样本数据填充RS：
对于字母中= ASC（）为ASC（我）
myrecordset.addnew
myrecordset。领域（ID）。值=字母中64
myrecordset。领域（标题）。值=信：CHR（字母中）
myrecordset。领域（描述）。值=测试来的信：CHR（字母中）。
myrecordset更新。
next'iletter

移动到头开始位置，这样下一个循环开始。
myrecordset.movefirst


在表中显示数据

响应。写vbcrlf

表头
响应。写vbtabvbcrlf
在每个领域myrecordset领域。
响应。写vbtab vbtab
响应字段。
响应。写vbcrlf
next'field
响应。写vbtabvbcrlf

而不是myrecordset.eof
循环来改变单元格的背景色
bcolor =不bcolor
如果bcolor然后
straltcolor =# ffffff
其他的
straltcolor =# ff8040
最后如果

循环来改变单元格的背景色
响应。写vbtabvbcrlf
在每个领域myrecordset领域。
响应。写vbtab vbtab < TD bgcolor =
写straltcolor响应。
响应。写领域。价值vbcrlf
next'field
响应。写vbtabvbcrlf

myrecordset.movenext
环

结束桌子
响应。写vbcrlf

关闭对象，释放资源
myrecordset。关闭
集myrecordset =没有
%>