conn.asp

唐网公司企业网站管理系统源码 双数据库 sql access 功能强大 易于扩展

<%
dim conn
dim connstr
dim db
db="../maxtangcn/@admin256947adfmin#.asp" '数据库文件位置
on error resume next
connstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("ADODB.CONNECTION")
if err then
err.clear
else
conn.open connstr
end if

sub CloseConn()
	conn.close
	set conn=nothing
end sub

%>