<%
dim dbfy,fystr,connplus
dbfy="DV_plus/fayuan/plus_fayuan_db.mdb"   '请改成您自己的法院数据库文件名
Set connplus = Server.CreateObject("ADODB.Connection")
fystr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbfy)
connplus.Open fystr

%>