<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<%''第一种字符串连接数据库方法
set conn=Server.CreateObject("ADODB.Connection")
on error resume next
conn.open "DRIVER=Driver do Microsoft Access (*.mdb);UID=;PWD=;DBQ="&Server.MapPath("../dat/a.mdb")
If Err.Number<>0 Then
response.write "数据库连接错误!"
response.end
End If
%>
<%''''''''第二种字符串连接数据库方法来自BBSXP'''''''''''''''
'''On Error Resume Next
'''Set Conn=Server.CreateObject("ADODB.Connection")
'''Conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("../dat/a.mdb")
'''If Err Then
'''err.Clear
'''Set Conn = Nothing
'''Response.Write ""&IsSqlVer&"数据库连接出错,请检查连接字串。"
'''Response.End
'''End If
%>
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath("datapath/database.mdb")