<html>
<head><title>conn</tile></title></head>
<body>
<%
dim conn
Set conn = Server.CreateObject("ADODB.Connection")
conn.open "Driver={SQL Server};Server=localhost; Uid=用户名;Pwd=密码;Database=数据库名"
if conn.State = 1 then
Response.Write("数据库打开成功<br><br>")
end if
%>
<Script languge="JavaScript">
alert("单击确定关闭数据库");
</Script>
<%
conn.close
if conn.State = 0 then
Response.Write("数据库已经关闭")
end if
Set conn=nothing
%>
</body>
</html>