conn_member.asp

在线考试系统

<%

'Copy right (c) 1999-2002 r4c Cutesoft Studio, All Rights Reserver.

dim connm

	dim dbfile_m
	dbfile_m="database/member.asp"

	dim sDSN_m
	sDSN_m="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbfile_m)
	'sDSN_m="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath (dbfile_m)

	set connm=Server.CreateObject("ADODB.Connection")
	connm.Open sDSN_m


Sub CloseConnm()
	connm.Close
	set connm=nothing
End Sub

%>