高考问答全自动吊牌打鸡眼机:Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
来源：百度文库 编辑：高考问答 时间：2024/05/04 07:33:31
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/guestbook.mdb")
%>
<%
exec="select * from guest"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%do while not rs.eof%><tr>
<td><%=rs("name")%></td>
<td><%=rs("tel")%></td>
<td><%=rs("message")%></td>
<td><%=rs("time")%></td>
</tr><%
rs.movenext
loop
%>
</table>
把具体错误提示贴出来！
//文件一
//Connections.asp
<%
'更改数据库文件名
Db="super_cool_flash_guestbook.mdb"
DataLink="DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath(Db)
%>
//文件二
//list_count.asp
<!--#include file="Connections.asp" -->
<%
set count = Server.CreateObject("ADODB.Recordset")
count.ActiveConnection = datalink
count.Source = "SELECT * FROM count ORDER BY rq DESC"
count.CursorType = 1
count.CursorLocation = 2
count.LockType = 3
count.Open()
%>
<table width="26%" border="0" align="center">
<tr>
<td width="49%">
<div align="center">日期</div>
</td>
<td width="51%">
<div align="center">访问次数</div>
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#000000">
</td>
</tr>
<tr>
<%
While Not count.Eof%>
<td width="49%">
<div align="center"><%=count("rq")%></div>
</td>
<td width="51%">
<div align="center"><%=count("count")%></div>
</td>
</tr>
<tr>
<td colspan="2" bgcolor="#000000"></td>
</tr>
<%
all=all+count("count")
count.MoveNext()
Wend%>
</table>
总计数：<%=all%>
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("data/guestbook.mdb")
改成conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("/data/guestbook.mdb")
检查路径是否正确
然后测试一下把rs.open exec,conn,1,1 改成rs.open exec,conn,1,2，1