UC知道acsse数据库连接错误
来源：百度知道 编辑：UC知道 时间：2024/06/06 17:16:05
<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim Conn,Db,StartTime,Timeset,SqlNum
Timeset=0
StartTime = Timer()
SqlNum=0
Db="../Data/cnhww.mdb"
Sub ConnectionDatabase
Dim ConnStr
Set conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
On Error Resume Next
Conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接错误,请检查Admin/Conn.Asp文件"
Response.End
End If
End Sub
%>
这是我的源码中的一段代码,在本机服务器上测试时显示:数据库连接错误,请检查Admin/Conn.Asp文件,是不是代码有误啊?错误可能在是地方?
<%
Option Explicit
Response.Buffer = True
Dim Conn,Db,StartTime,Timeset,SqlNum
Timeset=0
StartTime = Timer()
SqlNum=0
Db="../Data/cnhww.mdb"
Sub ConnectionDatabase
Dim ConnStr
Set conn=Server.CreateObject("ADODB.Connection")
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath(Db)
On Error Resume Next
Conn.Open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接错误,请检查Admin/Conn.Asp文件"
Response.End
End If
End Sub
%>
这是我的源码中的一段代码,在本机服务器上测试时显示:数据库连接错误,请检查Admin/Conn.Asp文件,是不是代码有误啊?错误可能在是地方?
<%on error resume next
dim conn,db
dim connstr
db="name.mdb" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if
%>