conn.asp

东北农业大学教学管理系统

<%

response.buffer = true
dim conn,connstr,dbpath
Dim rs,sql

Set Conn=Server.CreateObject("ADODB.Connection")
dbpath = "Database/data.mdb"
connstr ="Provider = Microsoft.Jet.OLEDB.4.0; Data Source ="& Server.MapPath(dbpath)
Conn.Open connstr



Function CloseDatabase

	Conn.Close()
	Set Conn = Nothing

End Function
%>