asp css table 行背景颜色交替变换,制做行背景颜色交替变换的表格-ASP教程,ASP应用...

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 & “

” & vbcrlf

for each field in myrecordset.fields

response.write vbtab & vbtab & “

”

response.write field.name

response.write “

” & vbcrlf

next field

response.write vbtab & “

” & vbcrlf

do while not myrecordset.eof

循环改变单元格的背景颜色

bcolor = not bcolor

if bcolor then

straltcolor = “#ffffff”

else

straltcolor = “#ff8040”

end if

循环改变单元格的背景颜色

response.write vbtab & “

” & vbcrlf

for each field in myrecordset.fields

response.write vbtab & vbtab & “

response.write straltcolor

response.write “””>” & field.value & “

” & vbcrlf

next field

response.write vbtab & “

” & vbcrlf

myrecordset.movenext

loop

end the table

response.write “

” & vbcrlf

关闭对象、释放资源

myrecordset.close

set myrecordset = nothing

%>