conn.asp

来自「东北农业大学学生信息管理系统。用asp和网页制作。内附源码」· ASP 代码 · 共 20 行

<%

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
%>