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

如:图片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 编辑 ]

您对临时参数用法不够好。
<%   
    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
   %>



[ 本帖最后由 ysf0181 于 2012-2-6 10:35 编辑 ]

这个用css实现最简单
css里div强制换行就可以，css样式可以设置超过长度自动换行
http://hi.baidu.com/290379929/blog/item/76a7301f8c20d116304e15c2.html
参考上面的
这样你设置div的宽度刚好容下5张图片，超过5张自动换行

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

<%   
检查：
  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
   %>

<%   
   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
        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
   %>

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

错误类型：
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
   %>
...............................

<%   
   dim ctotal,c
   ctoal=5'每行5个图片
   c=0
   for i=1 to ad.PageSize
     if ad.EOF or ad.BOF then exit for
        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
   %>

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