ASP连接Access数据库的几种方法

　　1. 相对与比较老的环境，建议使用第二个

　　2.win2003以上的机器，建议用此方法，效率更高

　　 set dbconnection=Server.CreateObject(ADODB.Connection) DBPath = Server.MapPath(customer.mdb) dbconnection.Open provider=microsoft.jet.oledb.4.0;data source=&dbpath SQL=select * from auth where id= & user_id & SET uplist=dbconnection.EXECUTE(SQL)

　　3.

　　 DBPath = Server.MapPath(customer.mdb) set session(rs)=Server.CreateObject(ADODB.Recordset) rs=Server.CreateObject(ADODB.Recordset) connstr=provider=microsoft.jet.oledb.4.0;data source=&dbpath SQL=select * from auth where id= & user_id & session(rs).Open sql,connstr,1,3

　　4. 建odbc源xxx

　　 set conn=server.createobject(Adodb.connection) conn.open DSN=xxx;UID=;PWD=;Database=customer

　　5、附上一个经常用的sqlserver与access通用的连接数据库代码

　　 <% Const DataBaseType=1 If DataBaseType=0 then DBPath=/jb51/news.asp SqlNowString = Now() ystr=true nstr=false suiji=rnd(id) Else 如果是SQL数据库，请认真修改好以下数据库选项 DataServer = 数据库服务器IP DataUser = jb51net 访问数据库用户名 DataBaseName = jb51net 数据库名称 DataBasePsw = 密码 访问数据库密码 SqlNowString = getdate() ystr=1 nstr=0 suiji=newid() End if On Error Resume Next If DataBaseType = 1 Then ConnStr=driver={SQL Server};server=&dataserver&;UID=&datauser&;PWD=&databasepsw&;Database=&databasename Else ConnStr = Provider=Microsoft.Jet.OLEDB.4.0;Data Source= & Server.MapPath(DBPath) End If Set conn = Server.CreateObject(ADODB.Connection) conn.open ConnStr If Err Then Err.Clear:Set conn = Nothing:Response.Write 数据库连接出错，请检查Conn.asp文件中的数据库参数设置。:Response.End %>