bkconn.asp

来自「基于asp的 班级同学录主页源代码」· ASP 代码 · 共 26 行

<%
dim conn
dim connstr

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