<% 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 “<table border=””0″” cellspacing=””0″” cellpadding=””3″”>” & vbcrlf
表头 response.write vbtab & “<tr>” & vbcrlf for each field in myrecordset.fields response.write vbtab & vbtab & “<td bgcolor=””#cccccc””><strong>” response.write field.name response.write “</strong></td>” & vbcrlf next field response.write vbtab & “</tr>” & vbcrlf
do while not myrecordset.eof 循环改变单元格的背景颜色 bcolor = not bcolor if bcolor then straltcolor = “#ffffff” else straltcolor = “#ff8040” end if
循环改变单元格的背景颜色 response.write vbtab & “<tr>” & vbcrlf for each field in myrecordset.fields response.write vbtab & vbtab & “<td bgcolor=””” response.write straltcolor response.write “””>” & field.value & “</td>” & vbcrlf next field response.write vbtab & “</tr>” & vbcrlf
myrecordset.movenext loop
end the table response.write “</table>” & vbcrlf
关闭对象、释放资源 myrecordset.close set myrecordset = nothing %>
|