dbcon.asp

会议室管理系统, 会议室管理系统

<%
 dim conn 
 dim connstr

 on error resume next
 connstr="DBQ="+server.mappath("classroom.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
 set conn=server.createobject("ADODB.CONNECTION")
 if err then 
 err.clear
%>
<script language="javascript">
 top.location="sessionerr.htm"
 </script>
<% 
 else
 conn.open connstr 
 if err then 
 err.clear
 %>
<script language="javascript">
 top.location="sessionerr.htm"
 </script>
<% 
 end if
 end if
%>