其中数据库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

%>