Microsoft VBScript 运行时错误 错误 '800a01a8'
缺少对象: ''
/index.asp,行 36
源码:
<%
'以下连接数据库,建立一个connection连接
dim db
set db=server.createobject("adodb.connection")
db.open "dbq= "& server.mappath("/data/word.mdb") &";driver={microsoft access driver (*.mdb)};"
'以下建立recordset对象实例rs
dim strsql,rs
strsql="select * from user_ly order by wd_id desc"
'以下显示数据库记录
%> <%
do while not rs.eof
%>
<table cellpadding="0" cellspacing="0" width="776" height="60" align="center">
<tr>
<td valign="top" colspan="2" height="16"><%=rs("wd_user")%></td>
<td valign="top" colspan="2" height="16"><%=rs("wd_email")%></td>
</tr>
<tr>
<td>
<table cellpadding="0" cellspacing="0" width="776" align="center">
<tr>
<td valign="top" colspan="2"><%=rs("wd_infor")%></td>
</tr>
</table>
</td>
</tr>
<%
rs.movenext '将记录指针移动到下一条记录
loop
%>
<form action="add.asp" name="ly" method="post">
<tr>
<td valign="top" width="388" align="right">姓名:<input align="top" type="text" name="wd_user"></td>
<td valign="top" height="19" width="388" align="left">邮箱:<input align="top" type="text" name="email" size="20"></td>
</tr>
<tr>
<td valign="top" colspan="2" height="25" align="center">
<textarea rows="8" name="infor" cols="51"></textarea></td>
</tr>
<tr>
<td valign="top" colspan="2" height="25" align="center">
<input type="submit" value="提交留言"></td>
</tr>
</form>
</table>
參考答案:strsql="select * from user_ly order by wd_id desc"
set rs=conn.execute(strsql)
问题是因为你根本就没有打开表。
细心一点。。。。。。。