ASP链接数据库的几种方法

<%

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={SQLServer};server=SERVER_NAME（local）;uid=UID;pwd=PWD;database=数据库名 "

'## 链接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

%>