conn.asp

来自「应用于高等院校党团思想教育」· ASP 代码 · 共 14 行

<%
	dim conn
	dim connstr
	dim db
	db="db/3621.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
%>