请帮忙看看看这段代码有什么错误??

wujiangxu 2003-10-16 09:55:39
<%
db="db\6k.mdb"
'constr="driver={MySQL ODBC 3.51 Driver};dbq="& Server.MapPath(db)
set cn = Server.CreateObject("ADODB.Connection")
constr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
cn.open constr
If Err Then
err.Clear
Response.Write "数据连接错误!"
else
Response.Write "数据库连接成功!"
Response.End
End If
cn.close
Set cn = Nothing
%>

产生了下面的错误:
Microsoft VBScript 编译器错误 错误 '800a03f6'

缺少 'End'

/iisHelp/common/500-100.asp,行242

ADODB.Connection 错误 '800a0e7a'

未找到提供程序。该程序可能未正确安装。

/hello.asp,行6

我得6k.mdb数据库没有生成数据源,我得虚拟目录在从c:\interpub\wwwroot,
可以执行.asp的页面,应该IIS没有问题把,他说的程序没有安装是什么意思???
...全文
32 3 打赏 收藏 转发到动态 举报
写回复
用AI写文章
3 条回复
切换为时间正序
请发表友善的回复…
发表回复
tangyong12 2003-10-16
  • 打赏
  • 举报
回复
你试一下其他的数据库连接方法,连接ACCESS有很多种方式的:给你推荐这个试试:
Set Cnn = Server.CreateObject("ADODB.Connection")
StrCnn = "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath(db)
Cnn.Open StrCnn
Struggling 2003-10-16
  • 打赏
  • 举报
回复
对,楼上的
lxqlogo0 2003-10-16
  • 打赏
  • 举报
回复
<%
db="db\6k.mdb"
set cn = Server.CreateObject("ADODB.Connection")
constr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(db) & ";Persist Security Info=False"
cn.open constr
If Err.number<>0 Then
err.Clear
Response.Write "数据连接错误!"
else
Response.Write "数据库连接成功!"
Response.End
End If
cn.close
Set cn = Nothing
%>

28,390

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧