数据库链接帮忙看一下哪里错了

来源:百度知道 编辑:UC知道 时间:2024/05/04 06:00:56
<%
Dim connstr
connstr="Provider=Microsoft Access Driver Access;Data Source="&Server.MapPath("db1.mdb")
Set bb = Server.CreateObject("ADODB.Connection")
bb.open connstr
%>
<%
exec="select * from guestbook"
set rs=server.CreateObject("adodb.recordset")
rs.open exec,cn,1,1
%>

<html>
<head>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<title>j显示图片</title>
</head>

<body>
<table width="500" height="80" align="center">
<marquee>
<%
While (NOT rs.EOF)
%>
<img src=<%=rs("COIN")%> width="80" height="80">
<%
rs.MoveNext()
Wend
%>
</marquee>
</table>
</body>
</html>

无法显示网页

connstr="Provider=Microsoft.Jet.OLEDB.4.0;User Id=admin;Data Source="&Server.MapPath("db1.mdb")

出错信息提示是,ado未正确安装

可能系统有点问题,尝试下面步骤

单击开始,单击运行,然后键入 cmd。
在命令提示符下,键入 cd C:\Program Files\Common Files\System\Ole
在命令提示符下,键入 regsvr32 sqloledb.dll。
收到 DLL 成功注册的确认后,单击确定。

你的链接字符串错误;
connstr="DBQ="+Server.Mappath("XXXX.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"