conn_user.asp

网站代码

<%
    dim conn_user
    dim connstring
    dim userdb:userdb="db/PW_SYS_Data.mdb" 	'设定数据名称
    Set conn_user = Server.CreateObject("ADODB.Connection")
 	connstring="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&userdb&"")
    'connstring="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&userdb&"")
	if err.number<>0 then 
		err.clear
		set conn_user=nothing
		response.write "数据库连接出错！"
		Response.End
	else
		conn_user.open connstring
		if err then 
			err.clear
			set conn_user=nothing
			response.write "数据库连接出错！"
			Response.End 
		end if
	end if  
%>