conn.asp

在线作业系统,功能未完全!

<%
'eric write on 04-20-25 
'QQ:35386837
'mail:[e-mail]
'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

%>