conn.asp

网站代码

<%
    dim conn
    dim connstr
    dim db:db="db/PW_SYS_Data.mdb" 	'设定数据名称
    dim dbset:setdb = 2			'设定连接类型

    Set conn = Server.CreateObject("ADODB.Connection")
	select case setdb
	case "1"
    connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
	case "2"
 	connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
	case "3"
 	connstr="driver={SQL Server};server=localhost;UID=sa;PWD=123;database=PW_SYS_data"
	case else
	connstr= "Dns=PW_SYS_Data"
	end select

	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 CloseConn()
	conn.close
	set conn=nothing
end sub
 
%>