conn_inc.asp

来自「漂亮的模板,商店销售统计,日销售,月销售统计,销售录入」· ASP 代码 · 共 29 行

<%
	dim conn   
	dim connstr   
	on error resume next

	connstr = "DBQ=" + server.mappath("data/pingmac.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"       
	set conn=server.createobject("ADODB.CONNECTION")
	if err.number<>0 then 
		err.clear
		set conn=nothing
		response.write "数据库连接出错！"
		Response.End
	else
		conn.open connstr
		if err then 
			err.clear
			set conn=nothing
			response.write "数据库连接出错！"
			Response.End 
		end if
	end if   
	
	sub endConnection()
		conn.close
		set conn=nothing
	end sub				

%>