ASP鏈接數據庫的幾種方法(ACCESS,MSSQL,MySql)

精文推薦MySQL＆ASP

<%
Dim dbtype
'dbType = "MSSQL" '鏈接MSSQL數據庫
dbType = "MYSQL" '鏈接MYSQL數據庫
'dbType = "ACCESS" '鏈接ACCESS數據庫

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

'## 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"
strConn = "DRIVER={MySQL ODBC 3.51 Driver};server=free520.vicp.net;uid=olym;pwd=123123;database=olym-tech"

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

 sql="SELECT * FROM agent"
 set rs=db.execute(sql)
 do while not rs.eof
 response.write rs("name")
 rs.movenext
 loop

%>