<%
set conn=server.CreateObject("ADODB.Connection")
conn.open "Provider=microsoft.jet.oledb.4.0;data source="&server.MapPath("db_user.mdb")
sql="select * from tb_user"
'Set Recordset对象实例名称=Connection对象实例名称.Execute(SQL指令)
'将查询到的结果，保存到 记录集对象的实例中
set rs=conn.execute(sql)
do while not rs.eof '如果不到记录集的结尾，就循环输出
 response.write(rs("username")&"<p>")'输出一条
 rs.movenext'移动一条
loop
'输出记录集中的某个字段的值
'3、输出字段值
'Response.Write(Recordset对象实例名称("字段名称"))
'response.write(rs("username")&"<p>") '输出第一条
'2、移动记录指针
'Recordset对象实例名称.MoveNext
'向下走一条
'rs.movenext
'response.write(rs("username")&"<p>")'输出第二条
'rs.movenext
'response.write(rs("username")&"<p>")
%>