测试数据库是否存在

<%
set conn=server.createobject("ADODB.CONNECTION")
set rs=server.createobject("ADODB.recordset")
conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&server.mappath("data.mdb")
if conn.state=1 then
response.write"数据库打开成功！"
end if
%>