dim strDBOpen,strConn
strDBOpen="dsn=SByte-Masters;uid=sa;pwd=bigbertha;DATABASE=master;APP=ASP Script"
set strConn=server.CreateObject("adodb.connection")
strConn.open strDBOpen
<%
dim conn
dim connstr
on error resume next
connstr="driver={SQL Server};server=计算机名;uid=sa;pwd=;database=数据库名"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
%>