UC知道ASP访问SQL Server2005 的一个错误，请大家帮忙一下
来源：百度知道 编辑：UC知道 时间：2024/06/26 00:28:29
我最近在学ASP，在访问SQL时遇到一个问题：
状态：
Win 2003+SQL Server 2005
网页原文件：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>CreateObject方法实例</title>
</head>
<body>
<%
dim cn
set cn = server.CreateObject("adodb.connection")
cn.ConnectionString = "Driver = {SQL Server};Server=tom; ID =sa; PWD=admin; Database = Wingsun_IP_PC_User"
cn.open
if cn.state = 1 then
Response.Write "数据库对象已打开"
else
Response.Write "数据库对象未打开"
end if
cn.close
set cn = nothing
%>
</body>
</html>
执行结果为：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/Le
状态：
Win 2003+SQL Server 2005
网页原文件：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>CreateObject方法实例</title>
</head>
<body>
<%
dim cn
set cn = server.CreateObject("adodb.connection")
cn.ConnectionString = "Driver = {SQL Server};Server=tom; ID =sa; PWD=admin; Database = Wingsun_IP_PC_User"
cn.open
if cn.state = 1 then
Response.Write "数据库对象已打开"
else
Response.Write "数据库对象未打开"
end if
cn.close
set cn = nothing
%>
</body>
</html>
执行结果为：
Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005'
[Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序
/Le
<%
Const SqlDatabaseName = "Wingsun_IP_PC_User" ' 数据库名字'
Const SqlPassword = "admin" '数据库密码'
Const SqlUsername = "sa" '数据库帐户'
Const SqlLocalName = "tom" '数据库地址'
'数据库连接函数'
Sub ConnectionDatabase
Dim ConnStr
ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
On Error Resume Next
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then
err.Clear
Set Conn = Nothing
Response.Write "数据库连接出错，请检查连接字串!"
Response.End
End If
End Sub
'默认打开数据库连接
call ConnectionDatabase()
%>
cn.ConnectionString = "Driver = {SQL Server};Server=tom; ID =sa; PWD=admin