<%
sqlStr="Driver={SQL SERVER};Server=.;uid=sa;Password=123456;DataBase=MJDB"
set sqlCon = Server.CreateObject("ADODB.Connection")
set myRs=server.createobject("adodb.recordset")
mySql="select * from macinfo"
sqlCon.Open sqlStr
myRs.open mySql,sqlCon,1,3
do while not myRs.eof
Response.write myRs("Remark")&"<br/>"
myRs.movenext
loop
myRs.close
sqlCon.close
%>
//第一种写法：
MM_conn_STRING =
"Driver={SQL SERVER};Server=.;UID=sa;Password=;DataBase=KK;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3
//第二种写法：（DSN连接）
MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 // 3,3是修改、删除、增加开关！
//第三种写法：
MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own
//第四种 - 这种方法用在ACCESS中
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("asp.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn