conn_forum.asp

来自「在线考试系统」· ASP 代码 · 共 23 行

<%

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

dim connf

	dim dbfile_f
	dbfile_f="database/forum.asp"

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

	set connf=Server.CreateObject("ADODB.Connection")
	connf.Open sDSN_f


Sub CloseConnf()
	connf.Close
	set connf=nothing
End Sub
%>