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

点击下载：

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

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

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

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

怎么没有人回答呀？

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

对列进行循环
if cols >1 and cols mod 4 =1 then response.write "</tr> <tr><td width=""20""></td></tr> <tr>"
红色部分可以不加。

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

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

如果要实现你说的滚动的，要用到js的，这个我不太熟悉了

把
messages[0]='。。。';
messages[1]='。。。';
messages[2]='。。。';
messages[3]='。。。';
换成

<%dim rs,sql,i,j,cols,strs
cols=4
sql="Select Top 16 ID,Title,ImgUrl From PIC By ID Desc"
set rs=conn.execute (sql)
if not rs.eof then sql=rs.GetRows ()
j=1
strs=strs &"messages["&j-1&"]='<TABLE cellSpacing=0 cellPadding=4 width=540 align=center border=0><tr>"
For i = 0 To Ubound(sql,2)
strs=strs &"<td height=130 width=20% align=center><table border=0 cellspacing=0 cellpadding=0><tr><td align=center><a href=""javascript:""><img src="&sql(2,i)&" width=80 height=100 border=0 class=img></a></td></tr><tr><td align=center>"&sql(1,i)&"</tr></table></td>"
i=i+1:j=j+1
if (j mod cols)=0 then
strs=strs&"</td></tr></table>';"&vbcrlf
strs=strs&"messages["&j&"]='<TABLE cellSpacing=0 cellPadding=4 width=540 align=center border=0><tr>"
end if
next
end if
response.write strs
rs.close:set rs=nothing
%>
大概就是这样。。。不过没有用你的条件测试，循环可能有点问题。。。你再调试一下就行了。。。

[此贴子已经被作者于2007-7-25 12:59:39编辑过]

效果关键是看那段JS的..
只要循环好了就行了..

不行，生成的阵列排列为

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编辑过]

看看这