sql server
'----------------------------------------------------------
strSQLServerName = "127.0.0.1"      '数据库服务器地址
strSQLDBUserName = "sa"    '用户名
strSQLDBPassword = "123456"'    '密码
strSQLDBName = "abc"           '数据库名
'----------------------------------------------------------

Set conn = Server.CreateObject("ADODB.Connection")
connstr = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=" & strSQLServerName & ";User ID=" & strSQLDBUserName & ";Password=" & strSQLDBPassword & ";Database=" & strSQLDBName & ";"
conn.Open connstr
===========================================================
access
dim conn
dbpath=server.mappath("数据库文件路径")
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath