www.pudn.com > Zhwebcode.rar > Conn.asp, change:2008-10-07,size:382b


<% 
dim conn 
dim connstr 
dim db 
db="../Databases/#zhongshidates.mdb" '数据库文件位置 
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 
 
%>