conn.asp

1) 运行环境：MS WINDOWS NT PACK 4 OR LATER /WIN2000 WITH IIS 4.0 OR LATER 2) 数 据 库：Access2000 3)

<%
function openconn(sessionname)
	dim conn
	Set conn=Server.CreateObject("ADODB.Connection")
	DBPath1=server.mappath("../kq/"&cstr(year(date()))&".mdb")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
	set session(sessionname)=conn
	set openconn=session(sessionname)
end function
function opennewdb(sessionname,yearvalue)
	dim conn
	Set conn=Server.CreateObject("ADODB.Connection")
	DBPath1=server.mappath("../kq/"&yearvalue&".mdb")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
	set session(sessionname)=conn
	set opennewdb=session(sessionname)
end function

%>