<%
Dim dbtype
\'dbType = \"MSSQL\" \'链接MSSQL数据库
\'dbType = \"MYSQL\" \'链接MYSQL数据库
dbType = \"ACCESS\" \'链接ACCESS数据库

Dim strConn
\'## DSN
\'strConn = \"DSN=MY_DSN_NAME\"

\'## MS Access 2000 using virtual path
\'strConn = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\" & Server.MapPath(\"/ssgbook/ssgbook.mdb\")

\'## MS Access 2000
\'strConn = \"Provider=Microsoft.Jet.OLEDB.4.0;Data Source=e:\\site\\asp\\ssgbook\\ssgbook.mdb\"

\'## MS Access 2000
strConn = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"ssgbook.mdb\")

\'## 链接 MS SQL Server 2000 & 7
\'strConn = \"driver={SQL Server};server=SERVER_NAME;uid=UID;pwd=PWD;database=DBNAME\"

\'## 链接MySQL数据库
\'strConn = \"driver=MySQL;server=SERVER_NAME;uid=UID;pwd=PWD;database=DB_NAME\"

Dim db
Set db = Server.CreateObject(\"ADODB.Connection\")
db.Open = strConn

%>