欢迎您访问程序员文章站本站旨在为大家提供分享程序员计算机编程知识!
您现在的位置是: 首页  >  IT编程

asp下制做行背景颜色交替变换的表格

程序员文章站 2023-11-17 20:50:40
<% const adinteger = 3 const advarchar = 200  '&...
<%
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
%>