请教一个关于连接SQL server2000的问题！急，在线等！
连接SQL server2000的时候，ODBC应该怎样设置啊？我运行查询后提示错误入下
错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC SQL Server Driver][DBNETLIB]SQL Server 不存在或访问被拒绝
/spl.asp, 第 7 行
请高手指点！
问题点数：0、回复次数：16Top
1 楼jinjie0577（风之友）回复于 2005-04-01 14:50:19 得分 0
spl.asp, 第 7 行
是什么，把详细代码发出来Top
2 楼zzheihei（heihei）回复于 2005-04-01 14:51:54 得分 0
代码如下：<%
Set imgConn=Server.CreateObject("ADODB.Connection")
StrConn="Driver={SQL Server};Server=local;"& _
"Uid=;Pwd=;DataBase=testdb"
imgConn.open strConn
Set Rs= Server.CreateObject("ADODB.RecordSet")
Sql="Select id From test "
aaa=rs("id")
response.write aaa
%>Top
3 楼lstup（流水）回复于 2005-04-01 14:52:46 得分 0
'''''''''''''''''''''''''''''' SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
SqlLocalName ="(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUsername ="sa" '用户名
SqlPassword ="1" '用户密码
SqlDatabaseName="bbsxp" '数据库名
ConnStr = "Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
Set conn=Server.CreateObject("ADODB.Connection")
conn.open ConnStr
Top
4 楼jinjie0577（风之友）回复于 2005-04-01 14:58:00 得分 0
就是是连接语句错误，楼上已经给答案了Top
5 楼st_crux（野猪）回复于 2005-04-01 14:58:13 得分 0
SET cn=Server.CreateObject("ADODB.Connection")cn.Open "Provider=SQLOLEDB;Server="&servername&";uid="&user&";pwd="&pass&";database="&trim(databaseName)&";autotranslate=no;"Top
6 楼st_crux（野猪）回复于 2005-04-01 14:59:15 得分 0
''''''''''''''''''''''''''''''''
SET cn=Server.CreateObject("ADODB.Connection")cn.Open "Provider=SQLOLEDB;Server="&servername&";uid="&user&";pwd="&pass&";database="&trim(databaseName)&";autotranslate=no;"
'''''''''''''''''''''''''''''''''''Top
7 楼st_crux（野猪）回复于 2005-04-01 15:01:36 得分 0
有次我碰到这样的情况好像是修改了sql server的配置的时候也出现过，iis访问不到数据库
Top
8 楼zzheihei（heihei）回复于 2005-04-01 15:10:52 得分 0
现在代码如下：<%
SqlLocalName="(local)"
SqlUsername="sa"
SqlPassword=""
SqlDatabaseName="testdb"
ConnStr="Provider=Sqloledb;UID=sa;Pwd=""; database=testdb;Server=(local);"
Set conn=Server.CreateObject( "ADODB.Connection ")
conn.open ConnStr
Sql="Select id From test "
aaa=rs("id")
response.write aaa
%>
错误代码如下：错误类型：
Server 对象, ASP 0177 (0x800401F3)
无效的类别字符串
/spl.asp, 第 8 行
望各位高手指点 小弟是个菜鸟Top
9 楼61（儿童节快乐）回复于 2005-04-01 15:29:56 得分 0
ConnStr="Provider=Sqloledb;UID=sa;Pwd=; database=testdb;Server=(local);"
Set conn=Server.CreateObject( "ADODB.Connection ")
Top
10 楼daknis（杰瑞）回复于 2005-04-01 15:33:17 得分 0
同意
ConnStr="Provider=Sqloledb;UID=sa;Pwd=; database=testdb;Server=(local);"
Set conn=Server.CreateObject( "ADODB.Connection ")Top
11 楼coolwindkaka（寒の风）回复于 2005-04-01 15:43:24 得分 0
楼主肯定是没有输用户名啊，默认Uid=sa;就行了Top
12 楼raas（朗仕）回复于 2005-04-01 15:45:03 得分 0
dim conn,connstr
connstr="Driver={sql server};UID=sa;PWD=;database=testdb;server=local"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstrTop
13 楼wxylvmnn（城隍庙三当家的）回复于 2005-04-01 16:13:21 得分 0
conn.open ConnStr 3,2Top
14 楼zzheihei（heihei）回复于 2005-04-01 16:28:57 得分 0
现在代码如下：<%
set conn=server.CreateObject ("adodb.connection")
ConnStr="Provider=Sqloledb;UID=sa;Pwd=751212;database=test;Server=(local); "
Set rs=Server.CreateObject("ADODB.Connection")
rs.open ConnStr
Sql="Select * From biao"
a=rs("id")
response.write a
%>
错误提示：
错误类型：
Microsoft VBScript 运行时错误 (0x800A01C2)
错误的参数个数或无效的参数属性值: 'rs'
/s.asp, 第 8 行
头都大了 用SQL怎么这么难啊 ，还望各位高手指点！
Top
15 楼raas（朗仕）回复于 2005-04-07 13:47:45 得分 0
<%
set conn=server.CreateObject ("adodb.connection")
ConnStr="Provider=Sqloledb;UID=sa;Pwd=751212;database=test;Server=(local); "
Set rs=Server.CreateObject("ADODB.Connection")
Sql="Select * From biao"
rs.open Sql,ConnStr,3,1
a=rs("id")
response.write a
%>
Top
16 楼jzywh（江大鱼）回复于 2005-04-07 13:51:19 得分 0
<%
dim conn
dim ConnStr
dim IsSql
IsSql = 0
Set conn = Server.CreateObject("ADODB.Connection")
if IsSql = 1 then
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
SqlDatabaseName = "whcm"
SqlPassword = "wuhan2004"
SqlUsername = "sa"
SqlLocalName = "(local)"
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
else
dim db
db="/admin/main.asp"
ConnStr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
end if
conn.Open ConnStr
%>
Top
