|
|
主题: 如何在用ASP读取MDB数据库中的所有字段>>...
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#12002/11/2 22:26:59
我要读取所有字段的数据...
显示在页面
请大侠帮忙>>.....
编辑历史:[这消息被清剑2编辑过(编辑时间2002-11-02 22:36:07)]
|
我佛山人
职务：版主
等级：4
金币：16.0
发贴：2269
|
#22002/11/2 23:07:49
假设你已经建立记录集rs，试试这样： Response.Write " "
For i=0 to rs.Fields.Count-1
Response.Write ""& Ucase(rs(i).Name)&" | "
Next
response.write" "
While Not rs.EOF
Response.Write ""
For i=0 To rs.Fields.Count-1
Response.Write ""&rs(i).value&" | "
Next
Response.Write " "
rs.MoveNext
Wend
Response.Write "
"
编辑历史:[这消息被我佛山人编辑过(编辑时间2002-11-02 23:08:54)]
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#32002/11/3 14:34:32
比如最近的三条记录
显示在页面上
数据库名为:namco.mdb/表名:nameco
各字段:name/password/telphone/fax等字段
如何在manage.asp的页面上显示
能实现吗??//
谁能帮我写一个完整的ASP程序;
谢了>>......
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#42002/11/3 16:34:47
如何在在网页中
读取数据中的内容
就是你在网页中输入第几条记录
它就显示第几条记录
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#52002/11/4 17:18:36
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 ""& Ucase(rs(i).Name)&" | "
Next
response.write" "
While Not rs.EOF
Response.Write ""
For i=0 To rs.Fields.Count-1
Response.Write ""&rs(i).value&" | "
Next
Response.Write " "
rs.MoveNext
Wend
Response.Write "
"
编辑历史:[这消息被dtmyou编辑过(编辑时间2002-11-04 17:20:51)]
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#62002/11/4 18:12:10
谢了 不知如何把字段改成自己想要显示的文字>>..... 还有就是如果记录太多的话 我想一页显示8条 按"下一页"来翻页如何实现 请各位大虾指点>>.......... 
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#72002/11/4 18:26:20
<% 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%>
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#82002/11/4 18:55:54
整个是这样的 但是出错>>....... <% dim userid userid=Trim(request.cookies("login")("userid")) %> Untitled Document<% 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%> <% Response.Write " "
For i=0 to rs.Fields.Count-1
Response.Write ""& Ucase(rs(i).Name)&" | "
Next
response.write" "
While Not rs.EOF
Response.Write ""
For i=0 To rs.Fields.Count-1
Response.Write ""&rs(i).value&" | "
Next
Response.Write " "
rs.MoveNext
Wend
Response.Write "
" %>
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#92002/11/4 19:00:30
晕牙 不懂循环的吗? <% dim userid userid=Trim(request.cookies("login")("userid")) %> Untitled Document<% 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 ""& Ucase(rs(i).Name)&" | "
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 ""&rs(i).value&" | "
Next
Response.Write " "
%>
<%
rs.MoveNext
if rs.eof then
i = i + 1
exit for
end if
next
Response.Write "
" %> 当前第<%=curpage%>页 共<%=rs.PageCount%>页
<%if curpage<>1 then%>>上一页<%end if%><%if curpage<> rs.PageCount then%> >下一页<%end if%>
编辑历史:[这消息被dtmyou编辑过(编辑时间2002-11-04 19:02:26)]
|
清剑2
职务：普通成员
等级：1
金币：1.0
发贴：122
|
#102002/11/4 19:14:13
出错: 错误类型： Microsoft VBScript 编译器错误 (0x800A0401) 语句未结束 /tijao/manage.asp, line 16, column 32 conn.open DBQ="+server.mappath("nameco.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};" -------------------------------^ 
|
5D荣誉版主
职务：普通成员
等级：1
金币：10.0
发贴：271
|
#112002/11/5 8:17:18
哦,看看
conn.open "DBQ="+server.mappath("nameco.mdb")+";DRIVER={Microsoft Access Driver (*.mdb)};"
|
