<%
'eric write on 04-20-25 
'QQ:35386837
'mail:mlzboy@yahoo.com.cn
'any question please contact me

'Response.Buffer = True
dim starttime
starttime=timer()

dim conn'定義一個(gè)全局變量

sub opendb()
	
	dim database_name
	database_name="../eric_data/olwork_system_data.mdb"    '設(shè)置數(shù)據(jù)庫名稱
	
	dim connstr
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database_name)
	
	On Error Resume Next
	
	set conn=server.createobject("adodb.connection")

	'如果你的服務(wù)器采用較老版本Access驅(qū)動(dòng)，請(qǐng)用下面連接方法
	'connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(database_name)

	conn.open connstr
	if err then
			err.clear
			set conn = nothing
			response.write "數(shù)據(jù)庫連接錯(cuò)誤,請(qǐng)檢查連接字串。"
			response.end
	end if

end sub


sub closers()
	rs.close
	set rs=nothing
end sub


sub closedb()
	conn.close
	set conn=nothing
end sub

%>