以下是连接几种数据库的驱动，把用"<%"和"%>"括住的地方保存为文件你就可以直接调用了

连接Access数据库

<% dim conn,dbpath dim connstr '数据库目录 dbpath="data/data.mdb" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbpath) conn.Open connstr %>

连接Excel数据库

<% dim conn,dbpath dim connstr '数据库目录 dbpath="data/data.xls" Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=Microsoft.Jet.OLEDB.4.0;Extended Properties=Excel 7.0; Data Source=" & Server.MapPath(dbpath) conn.Open connstr %>

连接Oracle数据库

<% dim conn dim connstr Set conn = Server.CreateObject("ADODB.Connection") '数据源名就是在控制面板里的数据源ODBC里设置连接Oracle数据库的源名 connstr=""Provider=OraOLEDB.Oracle;data source=数据源名;user id=用户名;password=密码;" conn.Open connstr %>

连接MS SQL Server

<% dim conn dim connstr Set conn = Server.CreateObject("ADODB.Connection") connstr="Provider=SQLOLEDB;data source=数据源;initial catalog=库名;userid=用户名;password=密码" conn.Open connstr %>