conn.asp

医院专家挂号系统设计

<%
'数据库连接头文件
dim conn
dim connstr
'数据库文件位置
db="Database/Data.mdb" 
on error resume next
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
set conn=server.createobject("ADODB.CONNECTION")
if err then
  err.clear
else
  conn.open connstr
end if
'CloseConn过程,关闭数据库连接
sub CloseConn()
  conn.close
  set conn=nothing
end sub
%>