UC知道ASP+access移植后连接出错
来源：百度知道 编辑：UC知道 时间：2024/06/18 07:16:43
我在家编写ASP+ACCESS连接没问题，COPY到单位后就连接不上了，请高手指点！
一下是代码：
--------------------------------------
连接文件：conn.asp
<%
on error resume next
dim dbconn
dim dbpath
set dbconn=server.createobject("adodb.connection")
DBPath = Server.MapPath("conn/mdb.mdb")
dbconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
dim sessionvar
sessionvar="yes"
%>
----------------------------------------------------
index.asp
<!--#include file="conn.asp" -->
<!--#include file="error.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
dim logname
dim logpwd
if request("action")="login" then
logname=trim(replace(requ
一下是代码：
--------------------------------------
连接文件：conn.asp
<%
on error resume next
dim dbconn
dim dbpath
set dbconn=server.createobject("adodb.connection")
DBPath = Server.MapPath("conn/mdb.mdb")
dbconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If
dim sessionvar
sessionvar="yes"
%>
----------------------------------------------------
index.asp
<!--#include file="conn.asp" -->
<!--#include file="error.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
dim logname
dim logpwd
if request("action")="login" then
logname=trim(replace(requ
都愚蠢，用的xp吧，吧.mdb数据库文件加上IIS来宾权限！
就是这么简间:
把
DBPath = Server.MapPath("conn/mdb.mdb")
dbconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
改为
DBPath="conn/mdb.mdb"
dbconn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
DBPath = Server.MapPath("conn/mdb.mdb")
改成
DBPath = Server.MapPath("/conn/mdb.mdb")
dbconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
你注意:driver= {Microsoft 等号和花括号之间有一个空格,而你的却没有,这样的花就回链接错误.
估计是你的系统用户的权限不够，你用超级帐号试试
或者把放文件的盘(比如c盘)的右击属性－安全－把权限设置成完全控制
数据库没有连接上