2个回答
展开全部
数据库连接:
<%
On Error Resume Next
DBpath=DBpath &"data/data.mdb" '数据库文件的位置
connstr="driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(DBpath)
SET conn=server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err.Number <> 0 Then
Response.Write "[数据库访问出错,请检查路径和连接方式]Error:Database Can't Connection!" & Err.Number
Response.End
End If
%>
<%
On Error Resume Next
DBpath=DBpath &"data/data.mdb" '数据库文件的位置
connstr="driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(DBpath)
SET conn=server.CreateObject("ADODB.Connection")
conn.Open connstr
If Err.Number <> 0 Then
Response.Write "[数据库访问出错,请检查路径和连接方式]Error:Database Can't Connection!" & Err.Number
Response.End
End If
%>
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询