const adinteger = 3
const advarchar = 200
声明变量
dim myrecordset
dim iletter
dim field
dim straltcolor
dim bcolor
bcolor = false
此例利用内存中的recordset,你需要做的只是修改你的数据显示的部分就可以了。
set myrecordset = server.createobject(“adodb.recordset”)
myrecordset.fields.append “id”, adinteger
myrecordset.fields.append “title”, advarchar, 25
myrecordset.fields.append “description”, advarchar, 255
myrecordset.open
fill rs with sample data:
for iletter = asc(“a”) to asc(“m”)
myrecordset.addnew
myrecordset.fields(“id”).value = iletter – 64
myrecordset.fields(“title”).value = “字母:” & chr(iletter)
myrecordset.fields(“description”).value = “这里测试字母:” & chr(iletter) & “.”
myrecordset.update
next iletter
移动到头部开始位置,以便下面的循环开始.
myrecordset.movefirst
在表格中显示数据
response.write “
表头
response.write vbtab & “
” & vbcrlffor each field in myrecordset.fields
response.write vbtab & vbtab & “
”response.write field.name
response.write “
” & vbcrlfnext field
response.write vbtab & “
” & vbcrlfdo while not myrecordset.eof
循环改变单元格的背景颜色
bcolor = not bcolor
if bcolor then
straltcolor = “#ffffff”
else
straltcolor = “#ff8040”
end if
循环改变单元格的背景颜色
response.write vbtab & “
” & vbcrlffor each field in myrecordset.fields
response.write vbtab & vbtab & “
response.write straltcolor
response.write “””>” & field.value & “
” & vbcrlfnext field
response.write vbtab & “
” & vbcrlfmyrecordset.movenext
loop
end the table
response.write “
” & vbcrlf关闭对象、释放资源
myrecordset.close
set myrecordset = nothing
%>