我要读取所有字段的数据...

显示在页面

请大侠帮忙>>.....

比如最近的三条记录
显示在页面上

数据库名为:namco.mdb/表名:nameco
各字段:name/password/telphone/fax等字段
如何在manage.asp的页面上显示

能实现吗??//

谁能帮我写一个完整的ASP程序;
谢了>>......

set conn=Server.createObject("adodb.connection")
conn.open DBQ="+server.mappath("nameco.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
set rs = server.createobject("adodb.recordset")
sql = "select top 3 * from nameco order by 排序字段 desc(或者asc)"
rs.open sql.conn,1,1
'-----------------------
'引用5D散人的程序,呵呵
Response.Write ""
For i=0 to rs.Fields.Count-1
Response.Write ""
Next
response.write""
While Not rs.EOF
Response.Write ""
For i=0 To rs.Fields.Count-1
Response.Write ""
Next
Response.Write ""
rs.MoveNext
Wend
Response.Write "

"& Ucase(rs(i).Name)&"

"&rs(i).value&"

"

<%
set conn=server.createobject("adodb.connection")
conn.open DBQ="+server.mappath("nameco.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"

area=Request.QueryString("area")
sql="select * from nameco"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn

if request("page")="" then
curpage=1
else
curpage=cint(request("page"))
end if
rs.pagesize=8
rs.absolutepage=curpage
for i = 1 to rs.pagesize

%>
'循环操作
<%
rs.MoveNext
if rs.eof then
i = i + 1
exit for
end if
next%>
当前第<%=curpage%>页 共<%=rs.PageCount%>页
<%if curpage<>1 then%>&area=<%=area%>>上一页<%end if%>
<%if curpage<> rs.PageCount then%>
&area=<%=area%>>下一页<%end if%>

晕牙
不懂循环的吗?

<%
dim userid
userid=Trim(request.cookies("login")("userid"))
%>









<%
set conn=server.createobject("adodb.connection")
conn.open DBQ="+server.mappath("nameco.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
sql="select * from nameco"
set rs=server.CreateObject("adodb.recordset")
rs.open sql,conn

Response.Write ""
For i=0 to rs.Fields.Count-1
Response.Write ""
Next
response.write""
if request("page")="" then
curpage=1
else
curpage=cint(request("page"))
end if
rs.pagesize=8
rs.absolutepage=curpage
for i = 1 to rs.pagesize

%>
<%



Response.Write ""
For i=0 To rs.Fields.Count-1
Response.Write ""
Next
Response.Write ""

%>

<%
rs.MoveNext
if rs.eof then
i = i + 1
exit for
end if
next
Response.Write "

"& Ucase(rs(i).Name)&"

"&rs(i).value&"

"
%>
当前第<%=curpage%>页 共<%=rs.PageCount%>页
<%if curpage<>1 then%>>上一页<%end if%>
<%if curpage<> rs.PageCount then%>
>下一页<%end if%>

哦,看看
conn.open "DBQ="+server.mappath("nameco.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"