请高手帮帮我,谢谢
我这有个源码,他的数据库是SQL 数据库连接代码conn代码如下:
Dim Conn,StrDSN,StrServerName,StrDBName,StrUid,StrPwd
StrServerName="127.0.0.1" '数据库服务器名
StrDBName="newdhz" '数据库名字
StrUid="sa" '用户名
StrPwd="junheng" '数据库密码
Sub OpenDB()
On Error Resume Next
Dim DataBaseLink
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open"Provider=SQLOLEDB.1;Password=" & StrPwd & ";Persist Security Info=True;User ID=" & StrUid & ";Initial Catalog=" & StrDBName & ";Data Source=" & StrServerName & ""
If Err Then
Response.Write "系统升级中,暂时无法与数据库建立连接"
Response.End
End If
End Sub
Sub CloseDB()
Conn.Close
Set Conn = Nothing
End Sub
Call OpenDB()
%>
我用户名和密码都对了,为什么打开总出现""""系统升级中,暂时无法与数据库建立连接"""请高手帮我解说一下上面的代码好吗