错误:
Microsoft OLE DB Provider for SQL Server 错误 '80004005' [DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。 /Include/Class_Conn.asp,行 17 代码:<%
Response.Buffer = True
'On Error Resume Next
Dim Conn,Connstr
Dim Sqldatabase,Sql_pass_word,Sql_User_ID,Sql_Data_Source
Sqldatabase="job"
Sql_pass_word="123456"
Sql_User_ID="sa"
Sql_Data_Source="122.195.157.155"
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 ConnstrFunction CloseDB
Conn.close
Set conn = Nothing
End FunctionFunction CloseRs
Rs.Close
Set Rs = Nothing
End FunctionIf Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If%>
Microsoft OLE DB Provider for SQL Server 错误 '80004005' [DBNETLIB][ConnectionOpen (Connect()).]SQL Server 不存在或拒绝访问。 /Include/Class_Conn.asp,行 17 代码:<%
Response.Buffer = True
'On Error Resume Next
Dim Conn,Connstr
Dim Sqldatabase,Sql_pass_word,Sql_User_ID,Sql_Data_Source
Sqldatabase="job"
Sql_pass_word="123456"
Sql_User_ID="sa"
Sql_Data_Source="122.195.157.155"
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 ConnstrFunction CloseDB
Conn.close
Set conn = Nothing
End FunctionFunction CloseRs
Rs.Close
Set Rs = Nothing
End FunctionIf Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错,请检查连接字串。"
Response.End
End If%>
SQL SERVER 企业管理器 右键—>属性—>安全性选项页—>身份验证选:SQLSERVER 和WINDOWS.