dim conn
dim connstr
db="在此填入你的数据库位置名称"
'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
欢迎分享,转载请注明来源:夏雨云
评论列表(0条)