用DSN连接：
<%
set conn = Server.CreateObject("ADODB.Connection")
conn.open "DSN=MyDSN;UID=user;PWD=password;DATABASE=databasename"
%>
不用DSN连接：
<%
Set conn = Server.CreateObject("ADODB.Connection")
DSNtemp="DRIVER={SQLServer};SERVER=ServerName;UID=USER;PWD=password;DATABASE=databasename"
conn.open DSNtemp
%>
事例代码：
1 dim Sql_Server,Sql_User,Sql_Pass,Sql_Data,conn,connstr 2 '***************************************************** 3 Sql_Server = "127.0.0.1" '数据库服务器地址 * 4 Sql_User = "sa" '数据库登录名 * 5 Sql_Pass = "sa" '数据库密码 * 6 Sql_Data = "datename" '数据库名 * 7 '***************************************************** 8 connstr = "PROVIDER=SQLOLEDB;DATA SOURCE="&Sql_Server&";UID="&Sql_User&";PWD="&Sql_Pass&";DATABASE="&Sql_Data 9 set conn = server.createobject("ADODB.connection") '创建数据库连接对象 10 conn.open connstr