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

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

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

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

Css就可以了。

<title>无标题文档</title>
<style type="text/css">
<!--
img {margin: 2px;border: 1px solid #00FF00;}
-->
</style>
</head>

加上这段就可以了。

多谢啦,老师!