其中数据库bbs.mdb有张friend 的表
<%
dim conn,rs
set conn=server.createobject("adodb.connection")
DBpath=Server.Mappath("../data/bbs.mdb")
Conn.Open "driver={Microsoft Acess Driver(*.mdb)};dbq="&Dbpath
s="select * from friend"
Set rs=Server.CreatObject("ADODB.Recordset")
rs.open s,conn,3
%>