可用分押宝游戏火热进行中...	专题改版：Java Web 专题

新手求助：数据库循环读取问题

楼主vc_pioneer（继续革命）2003-12-04 11:48:31 在 Web 开发 / ASP 提问

我不是asp程序员，可老板让用asp实现一个功能。希望各位兄弟给出实例吧，没有办法了，才过来asp版求助！谢谢！
功能要求如下：
现有users表，其中表中有field1与field2两个字段，我需要循环读取出他们的值，在读取一组数值后，我对这组数据进行处理，然后在循环下一组数据，直至结束。求这样循环读取数据库源码。谢谢！问题点数：100、回复次数：11Top

1 楼vc_pioneer（继续革命）回复于 2003-12-04 11:50:05 得分 0

在线等待....分不够可以另开帖再给！希望能够全面一点的，我也好研究一下asp的机制了。不好意思，以前从来没有碰过！希望能够多支持！Top

2 楼jacklinchen（陈）回复于 2003-12-04 11:54:57 得分 5

do while not rs.eof

''处理
field1=rs("field1")
.....

rs.movenext
loopTop

3 楼shleo（sky）回复于 2003-12-04 11:57:17 得分 5

while not rs.eof
field1=rs("field1")
field2=rs("field2")

rs.movenext
wendTop

4 楼xiaozg118（肖）回复于 2003-12-04 11:59:30 得分 10

//定义你的数据库连接 conn
set rs=server.createobject("adodb.recordset")
sql="select * from table1"
rs.open conn,sql
do while not rs.eof
x1=rs("field1")
x2=rs("field2")
//你对这组数据进行处理
rs.movenext
loop
rs.close
set rs=nothingTop

5 楼girl1127（不懂就问）回复于 2003-12-04 11:59:56 得分 40

可以用DO WHILE。。。。来做，给你一个我写的。
<%set rs=createobject("adodb.connection")
sql=select * from users
rs.open sql,conn,1,3
on error resume next
pg=clng(request("page"))'设置一个存放页的变量
'此处链接你的数据库
if not rs.eof then
rs.pagesize=45'设置每页多少个记录
if request("page")="" then
pg=1
rs.absolutepage=1
else
rs.absolutepage=request("page")
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>商信通--〉综合查询</title>
<script language="javascript">
function view(company_code){
var company_code;
window.open('view.asp?company_code='+company_code,'_blank','status=yes,scrollbars=yes,top=0,left=0,width=780,height=620');
}
</script>
<link href="../css/gg.css" rel="stylesheet" type="text/css">
</head>

<body>
 <center>
<table width="103%" border="1" cellspacing="0" cellpadding="1">
<tr>
<td width="76%" valign="top">
<p align="center"><font color="#003366" size="5" face="华文新魏">您所查询的企业列表如下</font></p>
<table width="100%" border="1" cellpadding="1" cellspacing="0" bordercolor="#009966" frame="void">
<tr valign="top" bgcolor="#33CCCC">
<td>
<div align="center">企业编号</div>
</td>
<td width="43%">
<div align="center">企业名称</div>
</td>
<td width="17%">
<div align="center">电话</div>
</td>
<td width="20%">
<div align="center">路名</div>
</td>
</tr>
<% if session <>"" then%>
<% rcount=rs.recordcount
if pmcount="" or isempty(pmcount) or pmcount<1 then
pmcount=25
end if
rs.pagesize=pmcount '设置每页数
mpage=rs.pagecount '得到总页数
pageno=request("pageno")
if isempty(pageno) or cint(pageno)<1 or cint(pageno)>mpage then
pageno=1
end if%>
<% if rs.bof and rs.eof then
response.write "<tr><td colspan='5'><div align='center'>没有您要的信息</div></td></tr>"
else
rs.absolutepage=pageno '将指针移至指定页的第一条记录
loopno=pmcount
do while not rs.eof and loopno>0%>
<tr valign="top" bgcolor="#f2fbf2"> <span class="temp">
<td width="20%" >
<div align="center"><span class="temp"><%=rs("field1")%></span></div>
</td>

<td width="20%" >
<div align="center"><span class="temp"><%=rs("field2")%></span></div>
</td>
<td>
<div align="center"><span class="temp"><%=rs("tel")%></span> </div>
</td>
</span>
<td>
<div align="center">
<div align="left"></div>
<span class="temp"><%=rs("area3")%></span></div>
</td>
<span class="temp">
<%
rs.movenext
loopno=loopno-1
loop
end if
rs.close
set rs=Nothing
%>
</span></tr>
<tr align="left" valign="top">
<td colspan="4" >
<p align="right">
<%
if cint(pageno)>1 then%>
<font size="2">
<%''''''''''''''''''''''''''''''改动%>
[<a href='results.asp?sql=<%response.write replace(sql,"'","/")%>&pageno=<%=pageno-1%>'>上一页</a>]</font>
<%
end if
if cint(pageno)<cint(mpage) then
%>
<font size="2">
<%''''''''''''''''''''''''''改动%>
[<a href='results.asp?sql=<%response.write replace(sql,"'","/")%>&pageno=<%=pageno+1%>'>下一页</a>]
</font>
<%end if%>
共<%=cstr(pageno)&"/"&cstr(mpage)&"页 "&cstr(rcount)%>条企业信息</p>
</td>
</tr>
</table>
</td>
</tr>

</table>
<div align="center">
<%else response.Write(" 接受失败！")
end if %>
</div>
<div align="center">

</div>
</body>
</html>
<%

rs.close
set rs=nothing
conn.close
set conn=nothing
%>
Top

6 楼alexzhang00（三角猫）回复于 2003-12-04 12:00:00 得分 30

set con = Server.Createobject("adodb.connection")
con.open "数据库连接串"

set rs = server.Createobject("adodb.recordset")
rs.open "select * from users",con,1,1,1
if rs.eof then
rs.close
con.close
set con = nothing
response.write "没有数据"
response.end
else
for i=0 to rs.recordcount - 1
field1_value = rs(0)
field2_value = rs(1)
'这里编辑值
rs.movenext
next
rs.close
con.close
set con = nothing
end ifTop

7 楼vc_pioneer（继续革命）回复于 2003-12-04 12:00:40 得分 0

能不能更详细点啊！谢谢了Top

8 楼girl1127（不懂就问）回复于 2003-12-04 12:01:14 得分 0

数据库总会连接吧，连接以后直接用。这是一个完整的。还有分页显示，很好的。Top

9 楼luluso（真系好难捉摸啊!!）回复于 2003-12-04 12:03:39 得分 10

已经很详细了。就是用ado打开数据库，
用sql来查询合适的条件，
用recordset来存值，
用vbscript脚本循环取值
movenext来进行下一次取值
循环过程中取出的记录就是你要的记录。想怎么办就怎么办吧.Top

10 楼girl1127（不懂就问）回复于 2003-12-04 12:09:47 得分 0

其实你就把我们大家给你的弄懂，其实已经够详细拉。Top

11 楼vc_pioneer（继续革命）回复于 2003-12-05 08:48:14 得分 0

谢谢各位，结帖Top