求救！！！找了半天也没有找到问题的所在！！请大家帮小弟看看！谢谢了

[贾米森]

<%
Response.Buffer = True
'On Error Resume Next
Dim Conn,Connstr
Dim Sqldatabase,Sql_pass_word,Sql_User_ID,Sql_Data_Source

Sqldatabase="fzbOa"            
Sql_pass_word="sa"   
Sql_User_ID="sa"      
Sql_Data_Source="(local),1433" 	
Set Conn = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=SQLOLEDB.1;Password='"&Sql_pass_word&"';Persist Security Info=False;User ID='"&Sql_User_ID&"';Initial Catalog='"&Sqldatabase&"';Data Source='"&Sql_Data_Source&"'"	
Conn.Open Connstr'这是第13行
If Err Then
	err.Clear
	Set Conn = Nothing
	Response.Write "数据库连接出错，请检查连接字串。"
	Response.End
End If

Function CloseDB
 Conn.close
 Set conn = Nothing
End Function

Function CloseRs
 Rs.Close
 Set Rs = Nothing
End Function
%>

错误：
Microsoft OLE DB Provider for SQL Server 错误 '80004005'

[DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。

/include/Public_Conn.asp，行 13

[不耐烦]

SqlLocalName = "(local)" '连接IP [ 本地用 (local) 外地用IP ]
SqlUsername = "sa" '用户名
SqlPassword = "1" '用户密码
SqlDatabaseName = "data" '数据库名
Set Conn = Server.CreateObject("ADODB.Connection")
Connstr = "Provider=Sqloledb;User ID=" & SqlUsername & "; Password=" & S
qlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLo
calName & ";"
Conn.Open Connstr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串。"
Response.End
End If

[sy_binbin]

ConnStr = "Provider=SQLOLEDB.1;Password="&Sql_pass_word&";Persist Security Info=False;User ID="&Sql_User_ID&";Initial Catalog="&Sqldatabase&";Data Source="&Sql_Data_Source&""

单引号都去掉

[layers2323]

这是我的连接字符串。
Provider=SQLOLEDB.1;Data Source=192.168.2.90;Initial Catalog=northgas;User ID=sa;Password=123456


要么你的字符串有问题，要么你的数据库用户有问题。

[贾米森]

那端口怎么放啊？

[sy_binbin]

端口？？

数据库端口？？

Sql_Data_Source="ip:1433"

默认的就是1433