aspÁ¬½ÓMssqlµÄ·½·¨¼°³£¼ûµÄ´íÎó

aspÏνÓMssqlµÄ°ì·¨¼°³£¼ûµÄ²î´í
//µÚÒ»ÖÖд·¨£º
MM_conn_STRING = "Driver={SQL Server};server=(local);uid=sa;pwd=;database=infs;"
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
ʵÏÖ·½Ê½Ò»:
<%
dim conn
set conn=server.createobject("ADODB.connection")
conn.open "PROVIDER=SQLOLEDB;DATA SOURCE=(local);UID=Óû§Ãû;PWD=ÃÜÂë;DATABASE=Êý¾Ý¿â"
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQL Server};SERVER=(local);UID=Óû§Ãû;PWD=ÃÜÂë;DATABASE=Êý¾Ý¿â"
conn.open DSNtemp
%>
ʵÏÖ·½Ê½¶þ:
<%
option explicit
dim startime
dim conn
dim connstr
dim db,pass_word,User_ID,Data_Source
startime=timer()
db="Êý¾Ý¿âÃû³Æ"
Pass_word="ÕʺÅÃÜÂë"  
User_ID="µÇ½ÕʺÅ"    
Data_Source="·þÎñÃû³Æ»òÕßip"  
Set conn = Server.CreateObject("ADODB.Connection")
connStr="Provider=SQLOLEDB.1;Password='"&pass_word&"';Persist Security Info=True;User ID='"&User_ID&"';Initial Catalog='"&db&"';Data Source='"&Data_Source&"'"
conn.Open connstr
function CloseDb
Conn.close
Set conn = Nothing
End Function
³£¼û¹ÊÕÏ
(a)
Microsoft OLE DB Provider for ODBC