conn.asp

来自「企业网上管理0A系统-完美修正版,功能比较强大,用户名/密码均为admin」· ASP 代码 · 共 11 行

<%
function openconn(sessionname)
	dim conn
	Set conn=Server.CreateObject("ADODB.Connection")
	DBPath1=server.mappath("../dangan/DocData.mdb")
	conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath1
	set session(sessionname)=conn
	set openconn=session(sessionname)
end function
%>