初学asp, 帮我看看这几行语句哪里错了, 多谢!
我的sql server 是 用:sa, 密码:空 登绿的
为什幺以下语句的结果是:not connected!
<%
On Error Resume Next
Dim ado
Dim rs
ado = Server.CreateObject( "adodb.connection ")
rs = Server.CreateObject( "adodb.RecordSet ")
ado.Open "PROVIDER=SQLOLEDB;UID=sa;DATABASE=Northwind "
If Err.Number <> 0 Then
response.write "not connected! "
Else
response.write "connected! "
End if
%>

------------------------------

而我在vb里面用下列语句确是: connected!的结果(当然vb我也不会用,只是试了一下)
Private Sub Command1_Click()
On Error Resume Next
Dim ado
Dim rs
ado = Server.CreateObject( "adodb.connection ")
rs = Server.CreateObject( "adodb.RecordSet ")
ado.Open "PROVIDER=SQLOLEDB;UID=sa;DATABASE=Northwind "
If Err.Number <> 0 Then
Label1.Caption = "connected! "
Else
Label1.Caption = "not connected! "
End If
End Sub


[解决办法]
Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlHostIP

SqlUsername = "sa " 'SQL数据库用户名
SqlPassword = "*** 'SQL数据库用户密码
SqlDatabaseName = "datebase " 'SQL数据库名
SqlHostIP = " " 'SQL主机IP地址（本地可用“127.0.0.1”或“(local)”，非本机请用真实IP）
dim ConnStr
dim conn
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlHostIP & "; "
Set conn = Server.CreateObject( "ADODB.Connection ")
conn.Open connstr
[解决办法]
会不会是ado的问题？ado = Server.CreateObject( "adodb.connection ")
可以换一种数据库连接方法试试。
[解决办法]
rs = Server.CreateObject( "adodb.RecordSet ")没用到