Microsoft OLE DB Provider for SQL Server (0x80040E4D) 在线等候
Microsoft OLE DB Provider for SQL Server (0x80040E4D)
用户 'IUSR_LELE' 登录失败。
/mimi/opendb.asp, 第 31 行
opendb.asp代码如下:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
Dim sqlname,sqluser,sqlpwd,sqldatabase
Dim objconn,strconn
Dim xmldoc,objNodeList
'读取数据库配置XML文档
Set xmlDoc = CreateObject("Msxml2.DOMDocument")
xmlDoc.async = false
xmlDoc.resolveExternals = false
'response.Write(server.mappath("..\config.xml"))
xmlDoc.load(server.mappath("config.xml"))
If xmlDoc.parseError.errorCode <> 0 then
response.Write("ParseError")
Else
Set objNodeList = xmlDoc.getElementsByTagName("数据库地址")
sqlname = objNodeList.item(0).text
Set objNodeList = xmlDoc.getElementsByTagName("数据库管理员")
sqluser = objNodeList.item(0).text
Set objNodeList = xmlDoc.getElementsByTagName("数据库密码")
sqlpwd = objNodeList.item(0).text
Set objNodeList = xmlDoc.getElementsByTagName("登陆数据库")
sqldatabase = objNodeList.item(0).text
'response.Write(sqlname&sqluser&sqlpwd&sqldatabase)
End If
'创建数据库连接串
Set objconn = server.CreateObject("ADODB.Connection")
strconn = "Provider=SQLOLEDB.1;Password="&sqlpwd&";Persist Security Info=True;User ID="&sqluser&";Initial Catalog="&sqldatabase&";Server="&sqlname&""
objconn.open strconn //31行
%>