z_connpd.asp

功能强大的一个b/s工作站

<%
dim dbplus,connplus,plusstr,plusid
dbplus="data/pd.asp"   '请改成您自己的数据库文件名
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
%>