conn.asp

来自「很好的一个OA系统,界面和功能都不错,测试无错~」· ASP 代码 · 共 10 行

<%
function dbconn(sessionname)
	dim conn
	Set conn=Server.CreateObject("ADODB.Connection")
	conn.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("data/data.mdb")
	set session(sessionname)=conn
	set dbconn=session(sessionname)
end function
%>