<%
'數據庫連接頭文件
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
%>