<%
dim dbplus,connplus,plusstr,plusid
dbplus="data/z_zvm_pd.mdb"   '请改成您自己的数据库文件名
Set connplus = Server.CreateObject("ADODB.Connection")
plusstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbplus)
'如果你的伺服器采用较老版本Access驱动，请用下面连接方法
'plusstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(dbplus)	
connplus.Open plusstr
%>
