conn_inc.asp

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

<%
	dim conn   
	dim connstr   
	'on error resume next

connstr = "Provider=MSDASQL; Driver={SQL Server}; Server=(local); Database=pingmac; UID=sa; PWD=716416;"       
	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				

%>