asp代码,怎样循环显示数据库中数据? 5
我编写了一段程序。想实现的功能是:让用户输入第一个显示的记录,然后程序从该条记录开始循环显示数据库中数据。这个程序运行的时候有时正常有时不正常。请高手指正。<table>...
我编写了一段程序。想实现的功能是:让用户输入第一个显示的记录,然后程序从该条记录开始循环显示数据库中数据。这个程序运行的时候有时正常有时不正常。请高手指正。
<table>
<%
if Session("jinghao")="" then
jinghao=Request("jinghao1")
else
jinghao=Session("jinghao")
end if
Set oRs = cn1.Execute("SELECT DISTINCT user_name From USER1 order by user_name")
do until oRs("user_name")=jinghao
oRs.MoveNext
loop
%><tr><td>jinghao:<%=jinghao%>,当前井号:<%=oRs("user_name")%></td></tr>
<%
oRs.MoveNext
if oRs.EOF then
oRs.MoveFirst
Session("jinghao")=oRs("user_name")
else
Session("jinghao")=oRs("user_name")
end if
jinghao2=Session("jinghao")
%>
<tr><td>jinghao2:<%=jinghao2%>,当前井号:<%=oRs("user_name")%></td></tr>
</table>
<%
oRs.Close
Set oRs = Nothing%> 展开
<table>
<%
if Session("jinghao")="" then
jinghao=Request("jinghao1")
else
jinghao=Session("jinghao")
end if
Set oRs = cn1.Execute("SELECT DISTINCT user_name From USER1 order by user_name")
do until oRs("user_name")=jinghao
oRs.MoveNext
loop
%><tr><td>jinghao:<%=jinghao%>,当前井号:<%=oRs("user_name")%></td></tr>
<%
oRs.MoveNext
if oRs.EOF then
oRs.MoveFirst
Session("jinghao")=oRs("user_name")
else
Session("jinghao")=oRs("user_name")
end if
jinghao2=Session("jinghao")
%>
<tr><td>jinghao2:<%=jinghao2%>,当前井号:<%=oRs("user_name")%></td></tr>
</table>
<%
oRs.Close
Set oRs = Nothing%> 展开
展开全部
没看出来想干嘛
Set oRs = cn1.Execute("SELECT DISTINCT user_name From USER1 order by user_name")
if oRs.eof and oRs.bof then
表示没有该记录
else
response.write(oRs("user_name"))
end if
此时游标处于当前记录,直接movenext就可以
while not oRs.eof
oRs.movenext
Wend
Set oRs = cn1.Execute("SELECT DISTINCT user_name From USER1 order by user_name")
if oRs.eof and oRs.bof then
表示没有该记录
else
response.write(oRs("user_name"))
end if
此时游标处于当前记录,直接movenext就可以
while not oRs.eof
oRs.movenext
Wend
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询