<%
'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'定義一個全局變量

sub opendb()
	
	dim database_name
	database_name="eric_data/olwork_system_data.mdb"    '設置數據庫名稱
	
	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")

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

	conn.open connstr
	if err then
			err.clear
			set conn = nothing
			response.write "數據庫連接錯誤,請檢查連接字串。"
			response.end
	end if

end sub


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


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

%>