建站代码网

热门标签

改变表格颜色

添加改变你的输出数据的颜色是帮助“dress up”你的输出的很好的方法。通过增加我们的输出循环的简单计数,读取最后的计数值的数字和选择我们能够改变的表格元素的背景色 的以整部分为主的颜色。

<html> <title>www.ttasp.net(Table Colors)</title> <body bgcolor="#FFFFFF"> <% '命名正读取的数据库 accessdb="fidrych" '连接有DSN-less 链接的数据库 cn="DRIVER={Microsoft Access Driver (*.mdb)};" cn=cn & "DBQ=" & server.mappath(accessdb) '创建记录设置对象的服务器 Set rs = Server.CreateObject("ADODB.Recordset") '选择所有来自the bird 表格的数据 sql = "select * from the_bird " '执行sql rs.Open sql, cn %> <table BORDER="0" CELLPADDING="0" CELLSPACING="0" align="center" width="640"> <caption>Mark <i>The Bird</i> Fidrych Career Stats</caption> <tr> <td>Year</td> <td>Team</td> <td>W</td> <td>L</td> <td>G</td> <td>GS</td> <td>CG</td> <td>IP</td> <td>H</td> <td>BB</td> <td>SO</td> <td>ShO</td> <td>ERA</td> </tr> <% '移动第一个记录 rs.movefirst '开始以最后记录结束的循环 do while not rs.eof '添加记录设置的每个规则的简单计数 count=count + 1 '寻找计数变量的最后数字 i_last=right(count,1) ‘如果变量计数的最后数字是一个奇数 ‘那就应该把背景色设置成绿色 select case i_last case "1","3","5","7","9" bgcolor = "#C0E4C6" '如果不设置成白色背景色 case else bgcolor = "#FFFFFF" end select %> <tr bgcolor="<%= bgcolor%>"> <td> <%= rs("year") %> </td> <td> <%= rs("team") %> </td> <td> <%= rs("w") %> </td> <td> <%= rs("l") %> </td> <td> <%= rs("g") %> </td> <td> <%= rs("gs") %> </td> <td> <%= rs("cg") %> </td> <td> <%= rs("ip") %> </td> <td> <%= rs("h") %> </td> <td> <%= rs("bb") %> </td> <td> <%= rs("so") %> </td> <td> <%= rs("sho") %> </td> <td> <%= rs("era") %> </td> </tr> <% '移动下个记录 rs.movenext '循环到写语句 loop %> </table> </body> </html> <% '关闭和设置记录为无 rs.close set rs=nothing %>

热门信息

X