<html>
<title>CodeAve.com(Display Table with Select Fields(Hard-Coded))</title>
<body bgcolor="#FFFFFF">
<%
'正读取的Accessdb的名称
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 year, team, w, l, cg, so, era from the_bird"
'执行sql
rs.Open sql, cn
%>
<table BORDER="1" align="center" width="500">
<tr>
<td>Year</td>
<td>Team</td>
<td>W</td>
<td>L</td>
<td>CG</td>
<td>SO</td>
<td>ERA</td>
</tr>
<%
'移动第一个记录
rs.movefirst
'开始会以最后的记录结束的循环
do while not rs.eof
%>
<tr>
<td>
<%= rs("year") %>
</td>
<td>
<%= rs("team") %>
</td>
<td>
<%= rs("w") %>
</td>
<td>
<%= rs("l") %>
</td>
<td>
<%= rs("cg") %>
</td>
<td>
<%= rs("so") %>
</td>
<td>
<%= rs("era") %>
</td>
</tr>
<%
'移动下个记录
rs.movenext
'循环回到do语句
loop %>
</table>
</body>
</html>
<%
'关闭和设置记录设置为无
rs.close
set rs=nothing
%>
热门信息
阅读 (131)
1 独特的随机字母阅读 (130)
2 检查和设置IIS服务器正确的权限阅读 (125)
3 存在的文件阅读 (122)
4 随机图像阅读 (112)
5 Response Redirect（代码强制跳转）