<%
t1=timer
dim dbserver
dim dbname
dim dbuser
dim dbpassword

'//////////////////////数据库配置/////////////////////////////////////

dbserver="local" '数据库服务器地址
dbname="mydb" '数据库名称
dbuser="yourname"  '数据库登陆帐号
dbpassword="111111"  '数据库登陆密码

'//////////////////////////////////////////////////////////////////////


Set conn = Server.CreateObject("ADODB.Connection")
'connstr="driver={SQl Server};server=(local);uid=freshbox_emart_1_1;pwd=111111;database=db_freshbox_emart_1_0"
connstr="driver={SQl Server};server=("&dbserver&");uid="&dbuser&";pwd="&dbpassword&";database="&dbname&" "

Application.Lock()
Application("FB_EM_1_SQL_connstr")=connstr
Application.UnLock()

conn.Open Application("FB_EM_1_SQL_connstr")

'/////////////////////////////////关闭数据库
sub connclose
	if conn<>"" then
	conn.close
	set conn=nothing
	end if
end sub
'/////////////////////////////////结束
%>