连接数据库出错 SQL2000给一个理由
<%'Server对象的CreateObject方法建立Connection对象
Set Conn=Server.CreateObject("ADODB.Connection")
'设置Connection对象的ConnectionString
'Driver表示ODBC驱动程序
'Server表示数据库服务器名称
'UID表示用户账号
'PWD表示用户密码
'Database表示在数据库服务器上的一个Database名称
Conn.ConnectionString="driver={SQL Server};server=local;UID=sa;PWD=123;Database=sgy"
'连接数据库
Conn.Open
'判断数据库状态
If Conn.State = 1 Then
Response.Write("数据库成功打开<BR><BR>")
End If
%>
<Script Language="JavaScript">
alert("单击确定，关闭数据库");
</Script>
<%
Conn.Close
If Conn.State = 0 Then
Response.Write("数据库已经关闭")
End If
'释放Connection对象，关闭数据库
Set Conn = nothing
%>
