ASP连接数据库代码集(Access sqlserver)

asp连接ACCESS数据库:

<%

option explicit

dim startime,endtime,conn,connstr,db

startime=timer()

'要连接的数据库名称

db="data/test.mdb"

Set conn = Server.CreateObject("ADODB.Connection")

connstr="Provider=Microsoft.Jet.OLEDB.4.0;

Data Source=" & Server.MapPath(db)

'若服务器采用较老版本Access驱动，请尝试使用注释行的连接方法:

'connstr="driver={Microsoft Access Driver (*.mdb)};

dbq=" & Server.MapPath(db)

conn.Open connstr

function CloseDatabase

Conn.close

Set conn = Nothing

End Function

%>

asp连接SQLServer数据库:

<%

option explicit

dim startime,endtime,conn,connstr,db

startime=timer()

connstr="driver={SQL Server};server=localhost;uid=sa;

pwd=sa;database=test"'localhost为需要连接数据库的服务器名称，也可以是IP地址，uid为SQLSERVER的用户名，pwd为密码，database是数据库名称

Set conn = Server.CreateObject("ADODB.Connection")

conn.Open connstr

function CloseDatabase

Conn.close

Set conn = Nothing

End Function

%>