<!--#include file="config_database_name.asp"-->
<%
t1=timer
'/////////////////////////////////打开数据库
db="../database/"&dataname
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")

application.lock
Application("FB_EM_1_ACC_connstr_admin")=connstr
application.unlock
conn.Open connstr
'/////////////////////////////////关闭数据库
sub connclose
	if conn<>"" then
	conn.close
	set conn=nothing
	end if
end sub
'/////////////////////////////////结束
%>