sqlserver2000 与asp怎么连接？

[caoyuan1980]

dim conn,rs,sql,param
'dbpath=server.mappath("chatdb/chatdb.mdb")
set conn=server.createobject("adodb.connection")
'conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath
'conn.open "driver={microsoft access driver (*.mdb)};"&"DBQ="&dbpath
'conn.Provider="sqloledb"
'conn.Open "Data Source=SHANGHAI-M41WEU;Initial Catalog=test;User ID=SA;Password=Admin;"
conn.open "dsn=chatdb"
' param="driver={sql server};server=SHANGHAI-M41WEU;uid=sa;pwd=admin;database=test;"
' conn.open param
'conn.open "Driver={SQL Server};SERVER=10.101.1.20;DATABASE=test"
set rs=server.createobject("adodb.recordset")

我原来使用access数据库，现在导到sql server中，数据库名为test,由设了它的数据源明chatdb,主机IP为10.101.1.20,试了好多方法（部分为以上注销的），就是出错，我的服务器名叫SHANGHAI-M41WEU，uid,pwd我不太清楚（没有手动设过）。sql server安全性中的身份验证是:sql server和windows.

错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
我该怎么写才对呢？

[pengdali]

change localhost to your sql server machine name:
<%
sConn = "Provider=SQLOLEDB;Database=法律sql;Server=localhost;UID=sa;PWD=19791010;"
set conn = Server.CreateObject("ADODB.Nonnection")
conn.Open sConn
set rs = conn.Execute("select * from [l1000]")
do until rs.EOF
for i=0 to rs.fields.count - 1
Response.Write rs.fields(i).name & "=" & rs.fields(i).value & "<BR>"
next
rs.moveNext
loop
rs.close
conn.close
set conn=nothing
%>

see more connection strings at
http://www.able-consulting.com/ado_conn.htm?f=ado_conn.htm#DSN

[caoyuan1980]

thank you!
还有一个问题，我原来用access的时候，代码执行一切正常，可是将mdb倒入sql server2000后，在其他的asp中进行sql 操作就报错。
如在main.asp中：
<!--#include file="conn.asp"-->
……
sql="select top "&maxrecordnum&" userid,sayto,saycontent,textcolor,userface,ispublic,puttime from chatinfo where puttime>#"&dateadd("s",(0-5*sessionout),now())&"# order by puttime desc"

rs.open sql,conn,0,1

在index.asp中却运行正常：
<!--#include file="conn.asp"-->
……
sql="select * from userinfo where userid='"&trim(keystr)&"'"
rs.open sql,conn,0,3

这是为什么呢？

[caoyuan1980]

我只要把：
sconn = "Provider=SQLOLEDB;Database=chatdb;Server=localhost;UID=sa;PWD=sa;"
set conn = Server.CreateObject("ADODB.connection")
conn.Open sconn

改回access为：
dbpath=server.mappath("chatdb/chatdb.mdb")
set conn=server.createobject("adodb.connection")
conn.open "PROVIDER=Microsoft.jet.OLEDB.4.0;data source="&dbpath
就没有问题了

[caoyuan1980]

to myflok(阿棋)
# -------->'
什么意思啊？

[dafu71]

# -------->'

[chao778899]

<%@ language=vbscript%>
<%
dim conn,rst,i
set conn=server.createobject("adodb.connection")
conn.open"driver={sql server};server=founder;database=chao;uid=sa;pwd=founder"
set rst=server.createobject("adodb.recordset")
set rst=conn.execute("select zhandian,jihua,shiji from [1216] where riqi='2002-12-1' order by zhandian")
i=1
%>