conn.asp

来自「JSP ACCESS版的论坛源码 深圳盈盈通」· ASP 代码 · 共 15 行

<%
	dim conn
	dim connstr
	dim db
	'更改数据库名字
	db="dv3sr2.mdb"
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
	conn.Open connstr
  	sub endConnection()
      		conn.close
      		set conn=nothing
  	end sub
%>