循环取八条数据出来，怎么报错

显示全部楼层 · 2008-6-23 00:11:45

我需要从数据库取出八条数据，显示出来，因为用到一个变量，它是这样形式：FOCUS_HOT_A1到FOCUS_HOT_A8，所以需要用到
FOCUS_HOT_A(i)=FOCUS_HOT_A(i+1) 但程序却报错，不知道怎么办？大家帮我看看怎么改？或者有什么其他写法更好的吗？
Function flash_east()
Cmd.parameters.refresh
cmd.CommandText = "flash_qq"
set rs=cmd.Execute()

dim i as integer
for i = 0 to 7
do while not rs.eof
title=rs("fc_topic")
cpp_id=rs("fc_id")

FOCUS_HOT_A(i)=FOCUS_HOT_A(i+1)
response.write "

"
response.write ""&fc_topic&""
response.write ""

rs.movenext
next
loop
rs.close
set rs=nothing
End Function

千问 · 2008-6-23 00:11:45

完全没有看懂你在写些什么。你这个循环是怎么做到哦。为什么用了for还要用do while not rs.eof呢？你把循环改一下，for i = 0 to 7 if not rs.eoftitle=rs("fc_topic") cpp_id=rs("fc_id") FOCUS_HOT_A(i)=FOCUS_HOT_A(i+1) response.write "

" response.write "<span titl