请教，如何在ASP中连接SQLSERVER数据库

[shpblk]

请教，如何在ASP中连接SQLSERVER数据库

[日总是我哥]

<%
vbConnStr = "Provider=SQLOLEDB.1;Password=111;Persist Security Info=False;User ID=Address;Initial Catalog=Address;Data Source=CHINA;Use Procedure for Prepare=1;Auto Translate=True;Packet Size=4096;Workstation ID=Samuel;Use Encryption for Data=False;Tag with column collation when possible=False"
Set vConnection = Server.CreateObject("ADODB.Connection")
Set vRecordSet = Server.CreateObject("ADODB.RecordSet")
Set vCommand = Server.CreateObject("ADODB.Command")
vConnection.Open vbConnStr
vCommand.ActiveConnection = vConnection
%>

[ywz413]

Set conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql="你自己的查询条件"
rs.open sql,conn,1,3

[yxsalj]

set conn=server.createobject("adodb.connection")
connstr="driver={sql server};server=servername;password=;user=;database="
conn.open connstr
你要是多处要打开同一个数据库，给一个通用的给你
set conn=server.createobject("adodb.connection")
strname=request.servervariables("LOCAL_ADDR")
Application("yourconnectname")="provider=SQLOLEDB.1;Data Source=" & strname &"; user ID=;password=;Initial Catalog=yourdatabasename"
以后你只要用:conn.open Application("yourconnectname")就可以了，但首先
还是要定义conn.

[yxsalj]

忘了说记录集的打开了。
记录集的打开有好几种，有connection,command,recodset

recordset的写法：
set rs=server.createobject("adodb.recordset")
sql="你要写的sql语句"
rs.open sql,conn,2,2 //这里的打开方式有几种，你自己翻翻资料吧

command的写法：
set comm=server.createobject("adodb.command")
set rs=server.createobject("adodb.recordset")
with comm
.ActiveConnection=conn
.commandText="你要写的sql语句"
end with
set rs=comm.execute()

connection的写法：
set rs=server.createobject("adodb.recordset")
sql="你要写的sql语句"
set rs=conn.execute(sql)