<%
dim conn
dim connstr
connstr = "DBQ=" + server.mappath("/job/DataBase/jyjob.asp") + ";DRIVER={Microsoft Access Driver (*.mdb)}"
Set conn=Server.createobject("ADODB.CONNECTION")
conn.Open connstr

Function CloseDatabase()
  conn.Close
  Set conn=Nothing
End Function
%>