<%
dim conn,connstr
set conn = server.createobject("adodb.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=NL;UID=sa;PWD=123456;DATABASE=data"
dim rs,sql
set rs=server.CreateObject("ADODB.Recordset")
sql="select 产品名称,单位数量,单价,库存量,订购量 from 产品"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>连接数据表并显示数据表信息</title>
<style type="text/css">
<!--
.STYLE2 {font-size: 18px}
.STYLE3 {color: #FF0000}
-->
</style>
</head>
<body>
<p align="center"><span class="STYLE2">显示表“产品”信息</span></p>
<table width="90%" border="0" align="center" cellpadding="0" cellspacing="2" bgcolor="#FFCC66">
<tr>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">产品名称</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">单位数量</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">单价</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">库存量</span></td>
<td align="center" bgcolor="#FFFFFF"><span class="STYLE3">订购量</span></td>
</tr>
<%if not rs.eof then
for i=1 to 8%>
<tr>
<td align="center" bgcolor="#FFFFFF"><%=rs("产品名称")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("单位数量")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("单价")%>元</td>
<td align="center" bgcolor="#FFFFFF"><%=rs("库存量")%></td>
<td align="center" bgcolor="#FFFFFF"><%=rs("订购量")%></td>
</tr>
<%rs.movenext
next
end if%>
</table>
</body>
</html>
错误显示如下:
错误类型：
ADODB.Field (0x80020009)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/second/showinformation.asp
浏览器类型：
Mozilla/4.0 (compatible; MSIE 6.0; Windows NT 5.1; SV1)
网页：
GET /second/showinformation.asp
时间：
2005年8月26日, 21:15:08
