access无法连接??

来源:百度知道 编辑:UC知道 时间:2024/09/20 15:02:51
<%
On Error Resume Next
Dim rs,sql,Conn,Connstr,Db,StartTime
StartTime=timer()
Db="database/#seetimecn.asp"
Set conn = Server.CreateObject("ADODB.Connection")
Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
'Connstr="Driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(db)
Conn.Open Connstr
If Err Then
Response.write "<div align='center'><br><br><br><br><img src='Images/Data.gif' border='0'><br><br><img src='Images/DataUpdate.gif' border='0'></div>"
Response.End
End If
Function CloseDatabase
Conn.close
Set Conn = NOTHING
End Function
%>

大哥们帮个忙,access数据库在本地连接可以,,,但上传到虚拟主机后又连接不上了,,
以上代码就是数据库连接文件
Db="database/#seetimecn.asp"

就是access文件的路径

<%
dim conn
dim dbpath
set conn=server.createobject("adodb.connection")
DBPath = Server.MapPath("所在文件夹/数据库名.mdb")
conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
%>

Db="database/#seetimecn.asp"
这是access文件的路径吗 ?