Question

asp记录集多次循环问题？

一个记录集里有六个栏目的内容，我想做六次循环显示。如第一次循环输出栏目1的内容，第二次循环输出栏目2的内容...。循环语句该怎么写（每次循环都要从头读记录）？

Answer 1

不知道你为什么非要这样做,但我有个更简单的方法,就是按这个栏目字段排序,然后在循环内部检查当前记录的栏目列的值与上一条是否相同,如果不同,就说明该处理另一个栏目的输出了.这样只需遍历一次记录集即可输出所有六个栏目.但是如果按你现在的想法,要遍历六次.

追问

你说的太对了，我也想这样，但是记录集里把六个栏目的内容都混合在一起了，不从头读能行吗？

追答

这就是我告诉你为什么要按栏目排序了,只有这样,所有栏目相同的才会排列在一起,这样,只要发现某一条记录的栏目列的值与前一个不同了,就说明该轮到下一个栏目了.

追问

每个栏目还要按点击量选前10个的问题？

追答

那可以用union all来解决,不然你之前的查询也会存在同样的问题.

追问

uinon这个是混合了集。我觉得记录集就按栏目序号和点击量排序应该没有问题，主要是循环输出问题？

追答

那你就干脆设置六个变量来收集每个栏目的输出内容,在循环内部判断一下当前记录是哪个栏目的,就把输出追加到对应的那个变量后面.这样,当六个变量都收集到足够数量的记录或是循环结束时,就可以直接使用这六个变量输出了,这样也可以一次循环完成六个栏目,不用从头再循环了.

追问

其实是这样的：这是一个首页在六个栏目中输出相应栏目点击量最多的前10个记录。我把六个栏目按栏目和点击量做成一个记录，这样也可以六次循环一次遍历完成，你看行不行？可行的话循环语句的代码麻烦给做个师范，再加20分！哈哈，先谢谢了！还有更好的方法吗？

追答

如果你能确定记录集中每个栏目都只有10条记录且排在一起的话,那很简单啊,六个For就搞定了.
For i = 1 to 10
'输出第一个栏目
Rs.MoveNext
Next
For i = 1 to 10
'输出第二个栏目
Rs.MoveNext
Next
...
For i = 1 to 10
'输出第六个栏目
Rs.MoveNext
Next
但如果你的记录集不是每个栏目10条排在一起,那还不如我后面的方法,六个变量来得方便.如:
Dim tstring(5), tcount(5)
Do Until Rs.Eof
Select Case Rs("栏目")
Case 1
If tcount(0)<10 Then
tstring(0) = tstring(0) & Rs("标题")
tcount(0) = tcount(0) + 1
End If
Case 2
If tcount(1)<10 Then
tstring(1) = tstring(1) & Rs("标题")
tcount(1) = tcount(1) + 1
End If
....
End Select
Rs.MoveNext
Loop
然后在你需要的位置输入tstring(x)就行了.

Answer 2

因为你读了答复，光标确实不循环
应该写成，代码更精简

“936”％>

com.asp的的” - > <％

暗淡RS，RS1，SQL，SQL1，HF

集RS =服务器。 （“adodb.recordset”）

SQL =“选择编号，姓名，职称，身体，时间从客户订货编号递增”

rs打开SQL，CONN，1,1 设置RS1 =（“adodb.recordset”）

做而不是RS.EOF的

SQL1 =“SELECT *相对guestid =”＆RS（“ID”）注：这里面循环

rs1.Open SQL1，CONN ％>。

的