conn_webqq.asp

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

<%

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

dim connq

	dim dbfile_q
	dbfile_q="database/webqq.asp"

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

	set connq=Server.CreateObject("ADODB.Connection")
	connq.Open sDSN_q


Sub CloseConnQ()
	connq.Close
	set connq=nothing
End Sub
%>