读取SQL数据库信息并逐条向上滚动公告显示 我想显示前十条后循环 现在我实现了一条 其他的不知怎样搞

你那语句不对

应该是：

<marquee

direction="up"

scrollamount="2"

height="260"

onMouseOver="thisstop();"

onMouseOut="thisstart();"><%Call

List_Pindao("NewsData2","A0001",12,33,0)%></marquee>

这里的<%Call

List_Pindao("NewsData2","A0001",12,33,0)%>可以根据自己的情况修改。

<%

dim curpage

curpage=request("curpage")

if curpage="" then curpage=1 '取得当前页码，如果返回为空，就默认第一页

%>

<%

'--------------------------------------------

'打开记录集

set rs=servercreateobject("adodbrecordset")

sql="select from 表"

rsopen sql,conn,1,1

'--------------------------------------------

rspagesize=10 ‘设置每页显示10条

rsabsolutepage=curpage ‘设置游标页码等于当前页码

if not rseof then '记录集不为空

for i= 1 to rspagesize ’循环显示数据

if rseof then '显示过程中随着游标下移，一旦记录到最后就立刻退出循环

exit for

end if

%>

<%=rs("a")%> 内容1

<%=rs("b")%> 内容2

<%=rs("c")%> 内容3

<%=rs("d")%> 内容4

<%

rsmovenext ‘游标下移

next

%>

<%if curpage=1 then%>第一页<%else%><a href="curpage=1">第一页</a><%end if%>　

<%if curpage=1 then%>上一页<%else%><a href="curpage=<%=curpage-1%>">上一页</a><%end if%>

<%if rspagecount<curpage+1 then%>下一页<%else%><a href="curpage=<%=curpage+1%>">下一页</a><%end if%>　

<%if rspagecount<curpage+1 then%>尾页<%else%><a href="curpage=<%=rspagecount%>" >尾页</a><%end if%><br />

<%

else

responsewrite "<tr><td>暂时没有内容</td></tr>"

end if

rsclose

%>

完全可以的，你不想用while循环也完全可以做到。

我给你大致说一下思路：

打开数据库获得记录集，之后按要求定义二维数组

假定数组为：MM_Array(X,Y)

那么，X指定字段，Y指定记录。

用两个For循环嵌套，就可以把Y条记录（每条记录取前X字段）的值存到数组中了。

……PS：为什么While循环不是很好？用好了哪个都一样。

以上就是关于读取SQL数据库信息并逐条向上滚动公告显示 我想显示前十条后循环 现在我实现了一条 其他的不知怎样搞全部的内容，包括:读取SQL数据库信息并逐条向上滚动公告显示 我想显示前十条后循环 现在我实现了一条 其他的不知怎样搞、ASP 从 sql 数据库读取数据循环显示在页面并且分页、如何嵌套循环，内层循环去查询数据库等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！