<%
dim connsfz,db
dim connsfzstr
db="idcard.mdb" '数据库文件位置
on error resume next
connsfzstr="DBQ="+server.mappath(""&db&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
set connsfz=server.createobject("ADODB.connECTION")
if err then
err.clear
else
connsfz.open connsfzstr
end if
sub Closeconnsfz()
	connsfz.close
	set connsfz=nothing
end sub

%>  


