问题已经解决，效果页请查看Http://www.lelexiqing.com/ 首页商务礼品栏目的滚动图片，现把整页代码送上，有兴趣的朋友可以继续深入研究，指出我的不足之处：

点击下载：

9li68Efb.rar (2.07 KB) [分享]问题解决：图片向上滚动的效果代码

大家好，我想做这个页面的效果：http://www.lelexiqing.com/pic.htm
我现在想从数据表 [PIC] 中读取16条记录。

现在我想请问一下如何把读出来的这16条记录（或者少于16条）排成如http://www.lelexiqing.com/pic.htm这个页面JS脚本里ARRAY这样的形式。

这样的形式呢？不知道这个循环该怎么写，麻烦高手帮忙写一下示例代码，谢谢。

[此贴子已经被作者于2007-8-4 11:40:31编辑过]

怎么没有人回答呀？

帮帮忙啊，我想了两天了，没有做出来，麻烦大家啦，谢谢。

不是很明白，做出来一个四行四死显示的。

可是我的目的是把这每一行都是一个单独的表格，而且每一个表格的值又得赋值给MESSAGES[0]

不行，生成的阵列排列为

messages[0]=""

messages[4]=""

messages[8]=""

这个问题很长时间了，一直没有解决，头疼ING。。。。

感谢朋友们的加贴，问题已经解决，最后的循环我用的是：

[CODE]<%sql="select top 12 * from pic order by ID Desc"
set rs=conn.execute (sql)
if not rs.eof then
j=0
for i=0 to 2
Response.write "messages["&j&"]='<TABLE><tr>"
for a=1 to 4
response.write "<td><img src="&rs("Img")&" width=150 height=150 border=0></td>"
rs.movenext
next
response.write "</tr></table>';" & vbCrlf
j=j+1
next
end if
rs.close
set rs=nothing
%>[/CODE]

我把代码里的所有格式全去掉了，方便朋友们阅读，有兴趣的朋友可以到顶楼下载源码。

[此贴子已经被作者于2007-8-4 11:39:21编辑过]