fisker's blog

'创建对象
dim conn
Set conn = Server.CreateObject("ADODB.Connection")

'连接数据库字符串
dim connstr

'ACCESS数据库
dim dbPath : dbPath="1.mdb" '数据库路径
connstr = "Driver={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath(dbPath)
connstr = "provider=microsoft.jet.oledb.4.0;data source="&Server.MapPath(dbPath)

'MSSQL数据库
dim mssql_server : mssql_server = "localhost" 'SQL服务器
dim mssql_dbname : mssql_dbname = "db1" '数据库名
dim mssql_uid : mssql_uid = "user" '用户名
dim mssql_pwd : mssql_pwd = "pass" '密码
connstr = "Driver={sql server};server="&mssql_server&";database="&mssql_dbname&";uid="&mssql_uid&";pwd="&mssql_pwd&";" 
connstr = "provider=sqloledb;data source=="&mssql_server&";initial catalog=="&mssql_dbname&";userid="&mssql_uid&";password="&mssql_pwd&";"  

'MYSQL数据库
dim mysql_server : mysql_server = "localhost"
dim mysql_dbname : mysql_dbname = "db1"
dim mysql_uid : mysql_uid = "user"
dim mysql_pwd : mysql_pwd = "pass"
connstr = "DRIVER={MySQL ODBC 3.51 Driver}; SERVER="&mysql_server&"; DATABASE="&mysql_dbname&"; UID="&mysql_uid&";PASSWORD="&mysql_pwd&"; OPTION=3"

conn.open connstr