网站连别的服务器上的ACCESS数据库说没权限,如何解决
天野青鸟 2010-06-07 03:59:14 公司里有两台服务器,网站放在其中一台服务器上,另一台放的录音系统,
现在网站上想加个功能就是读取录音系统的数据,
录音系统的数据库是ACCESS的,但一连就报错
它已经被别的用户以独占方式打开,或没有查看数据的权限。
当然关了录音系统数据库没打开也照样报错,所以只能是权限的问题了
但我权限也设置过everyone所有权限了还是不行
对了,我是用虚拟目录的方式的,用映射驱动器则找不到数据库
具体代码和错误如下
Microsoft JET Database Engine 错误 '80004005'
Microsoft Jet 数据库引擎打不开文件'\\xxkj\怡嘉怡电话录音\Voc2010-06.mdb'。 它已经被别的用户以独占方式打开,或没有查看数据的权限。
/luying.asp,行 50
Dim conn,connstr
Dim DBPath
Set conn = Server.CreateObject("ADODB.Connection")
Dim DataYear,DataMonth
If Trim(Request("searchtime")) <> "" and isdate(Trim(Request("searchBegintime"))) = True Then
DataYear = split(Trim(Request("searchBegintime")),"-")(0)
DataMonth = split(Trim(Request("searchBegintime")),"-")(1)
if int(DataMonth)<10 then DataMonth = "0"&int(DataMonth)
ElseIf Trim(Session("searchtime")) <> "" and isdate(Trim(Session("CRM_begintime"))) = True Then
DataYear = split(Trim(Session("CRM_begintime")),"-")(0)
DataMonth = split(Trim(Session("CRM_begintime")),"-")(1)
if int(DataMonth)<10 then DataMonth = "0"&int(DataMonth)
Else
DataYear = split(date(),"-")(0)
DataMonth = split(date(),"-")(1)
if int(DataMonth)<10 then DataMonth = "0"&int(DataMonth)
End If
If DateDiff("M",DataYear&"-"&DataMonth,"2010-04") > 0 Or DateDiff("M",DataYear&"-"&DataMonth,now()) < 0 Then
Response.Write "提示:数据库不存在!<br>请选择正确时间!<br><a href='javascript:history.back();'>点击返回</a>"
Response.End()
End If
DBPath = Server.MapPath("luyingdata\Voc"&DataYear&"-"&DataMonth&".mdb")
'DBPath = "Z:\Voc"&DataYear&"-"&DataMonth&".mdb"
'DBPath = Server.MapPath("luyingdata\Voc2010-05.mdb")
'response.write DBPath
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DBPath & ""
'conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&DBPath&";userid='';password='panshi#crm'"
conn.Open connstr