www.gusucode.com > 因特达Access数据库在线管理系统 > 因特达Access数据库在线管理系统\code\access\conn.asp

    
<%
yinteda_access_conn=""'不能少

call yinteda_access_openDB
sub yinteda_access_openDB
	on error resume next
	err.clear
	dim strsql
	strsql="driver={microsoft access driver (*.mdb)};DBQ="+server.mappath("Data/global.asa")
	set yinteda_access_conn=server.createobject("adodb.connection")
	yinteda_access_conn.open strsql
	if err<>0 then
		response.Write("连接数据库失败！您可以试着<a href=login.asp target=_parent>重新登陆</a>，如果问题依然存在，请联系管理员。")
		response.End()
	end if
end sub
%>