<%
dim cn
set cn=server.createobject("adodb.connection")
cn.connectionstring="driver={SQL
server};server=localhost;datebase=dbname;uid=dbuser;pwd=password"
cn.open
If cn.state=1 Then
response.write"数据库连接对象已打开"
Else
response.write"数据库连接对象未打开"
end If
cn.close
Set cn=nothing
%>