UC知道高手帮看看这段 有关数据连接的代码
来源：百度知道 编辑：UC知道 时间：2024/06/17 11:26:16
<%
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ="& Server.MapPath("Lily.mdb")
%>
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ="& Server.MapPath("Lily.mdb")
%>
<%
On Error Resume Next '如果出错就跳出程序，例如数据库不存在等因素。
Set Conn_Obj = Server.CreateObject("ADODB.Connection")
Conn_Obj.Open "Provider = Microsoft.Jet.OLEDB.4.0; Data Source = " & Server.MapPath("数据库的相对路径")
If Err Then Err.Clear() : Set Conn_Obj = Nothing : Response.Write("数据库无响应") '出错后执行。
%>
没错啊
看过了~`
<%
dim Conn,connstr
connstr="DBQ="&Server.Mappath("Lily.mdb")&";DRIVER={Microsoft Access Driver (*.mdb)};"
set Conn=Server.CreateObject("ADODB.connection")
db.Open connstr
%>
用这个吧~`