ASP数据库连接

<%

option explicit

dim startime,endtime,conn,connstr,db

startime=timer()

'更改数据库名字

db="data/data.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

%>

<%

Response.ExpiresAbsolute = Now() - 1

'on error resume next

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

conn.Provider = "SQLOLEDB"

conn.Properties("Data Source").Value = "200.2.2.2"

conn.Properties("User ID").Value = "sa"

conn.Properties("Password").Value = "sa"

conn.Properties("Initial Catalog").Value = "sa"

conn.Open

%>