依然是最菜的问题。
第16行报如下错误!!
技术信息(适用于支持人员)
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E37)
/temp/index.asp, 第 16 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 5.01; Windows NT 5.0; DigExt)
页:
GET /temp/index.asp
时间:
2003年10月17日, 15:14:02
详细信息:
Microsoft 支持
代码如下:
<% Option Explicit %>
<html>
<head>
<title> 朋友数据备从份</title>
</head>
<body>
<h2 align="center">朋友数据表</h2>
<%
'以下连上数据库,建立一个Connection对象实例db
dim db
set db=Server.Createobject("ADODB.Connection")
db.Open "DBQ="&Server.Mappath("fried.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
'以下建立Recordset对象实例rs
dim strsql,rs
strsql="select * from link order by link_id desc" '按降序排列
set rs=db.Execute(strsql)
'以下显示数据库记录
%>
<center>
<a href="6-2.asp">添加新记录</a>
<table border="0" width="90%" bgcolor="#000000" cellspacing="1">
<%
do while not rs.Eof '只要不是结尾就执行循环
%>
<tr>
<td bgcolor="#ffffff"><%=rs("Name")%></td>
<td bgcolor="#ffffff"><%=rs("age")%></a></td>
<td bgcolor="#ffffff"><%=rs("from")%></td>
<td bgcolor="#ffffff"><%=rs("school")%></td>
<td bgcolor="#ffffff"><%=rs("sex")%></td>
<td bgcolor="#ffffff"><%=rs("mbl")%></td>
</tr>
<%
rs.movenext '将记录集指针移动到下一条记录
loop
%>
</table>
</center>
</body>
</html>