下面这段代码,只能让图片纵向循环,怎样办才能让图片横向循环?最好是横向纵向同时循环.谢谢!
(横向,纵向的图片数量能修改,越简单越好!)

如:图片1  图片2  图片3  图片4  图片5
   图片6  图片7  图片8  图片9  图片10
   .................................
 
<%   
   for i=1 to ad.PageSize
     if ad.EOF or ad.BOF then exit for
  %><p>&nbsp;&nbsp;&nbsp;<img src="lm/<% =ad("pic")%>"></p><%  
     ad.movenext
    next
   %>

[ 本帖最后由 tepnidh 于 2012-2-6 09:46 编辑 ]

谢谢您!我试了一下,还是横向循环不了,不知是什么原因?请您再帮帮我,好吗?
祝:元宵节快乐!!

谢谢您,我试了一下,还是不行.

错误类型：
Microsoft VBScript compilation (0x800A0411)
Name redefined
/34/index.asp, line 47, column 4
Dim c
---^

...............
<%   
   dim ctotal,c
   ctoal=5'每行5个图片
   c=0
   for i=1 to ad.PageSize
     if ad.EOF or ad.BOF then exit for
        Dim c.........................................47 .............错误类型
        With Response
           .Write "<img src='lm/"&ad("pic")&">"
           if c>5 Then
              .Write "<br/>"
              c=0
           end if
        end with
     ad.movenext
     c=c+1
    next
   %>
...............................

谢谢您,我试了一下,还是不行.如果把"检查"去掉,网页显示"10"

错误类型：
Microsoft VBScript compilation (0x800A0408)
Invalid character
/34/index.asp, line 42
检查：


...............
<%   
检查：...........................................42..............错误类型

  response.write    ad.PageSize
  response.end
   ii = 0
    for i=1 to ad.PageSize
       if ad.EOF or ad.BOF then exit for
  %><p>&nbsp;&nbsp;&nbsp;<img src="lm/<% =ad("pic")%>"></p><%  
       ad.movenext
       ii = int(ii) + 1
       if int(ii) = 5 then
          ii = 0
          response.write "<br>"
       end if
    next
   %>
...............................

谢谢您,辛苦了,经测试,图片未能显示出来,只有一行四张图片占位符,是这样的效果:

您好!yms123老师,试了一下,还是不行,我把整个程序浓缩了一下,发给您,如果您有时间的话就再帮帮我吧!万分感谢!

谢谢您,wangjy500老师!经测试,横向纵向能同时循环,但问题又来了,这就是:1,横向的图片数量能控制,但每页显示图片的行数不知道如何控制?  2,如何实现翻页?   我是一个菜菜鸟啊,请老师再帮帮我,好吗!万分感谢!

谢谢您,尊敬的wangjy500老师!经测试,二个字"成功"!非常好!真的很感谢您!成功之后,我又试着给图片加表格,结果,横向又不能循环了,我想给图片加上表格,一个是让图片有一个边框,好看,另一个是让图片间有个间距,所以,学生想再次恳请您帮帮我!当然,您如果很忙就算了,帮学生帮到这份上,我已感激不尽了!再次表示感谢!

多谢啦,老师!