28,409
社区成员




dim conn
dim connstr
set conn=server.createobject("ADODB.CONNECTION")
db="../google_nice_xihuan/#baidu_bad_gunkai.mdb"
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
if err then
err.clear
else
conn.open connstr
end if
<% dim conn
set conn=server.createobject("adodb.connection")
conn.open"dbq="& server.mappath("school.mdb") &";driver={microsoft access driver (*.mdb)}"%>