<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
%>
热门信息
阅读 (131)
1 独特的随机字母阅读 (130)
2 检查和设置IIS服务器正确的权限阅读 (125)
3 存在的文件阅读 (122)
4 随机图像阅读 (112)
5 Response Redirect（代码强制跳转）