怎样修改这段代码,使图片既能横向循环同时又能纵向循环? - 编程论坛

#2

ysf01812012-02-06 10:34

您对临时参数用法不够好。
<%
 ii = 0
 for i=1 to ad.PageSize
 if ad.EOF or ad.BOF then exit for
 %>   <img src="lm/<% =ad("pic")%>"><%
 ad.movenext
 ii = int(ii) + 1
 if int(ii) = 5 then
 ii = 0
 response.write " "
 end if
 next
 %>

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

#3

yms1232012-02-06 11:33

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

#4

tepnidh2012-02-06 11:38

回复 2楼 ysf0181

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

#5

ysf01812012-02-06 12:10

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

#6

yms1232012-02-06 12:30

<%
 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 " "
 c=0
 end if
 end with
 ad.movenext
 c=c+1
 next
 %>

#7

tepnidh2012-02-06 15:08

回复 6楼 yms123

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

错误类型：
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 " "
 c=0
 end if
 end with
 ad.movenext
 c=c+1
 next
 %>
...............................

#8

tepnidh2012-02-06 15:18

回复 5楼 ysf0181

谢谢您,我试了一下,还是不行.如果把"检查"去掉,网页显示"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
 %>   <img src="lm/<% =ad("pic")%>"><%
 ad.movenext
 ii = int(ii) + 1
 if int(ii) = 5 then
 ii = 0
 response.write " "
 end if
 next
 %>
...............................

#9

yms1232012-02-06 17:47

<%
 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 " "
 c=0
 end if
 end with
 ad.movenext
 c=c+1
 next
 %>

#10

tepnidh2012-02-06 18:10

回复 9楼 yms123

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

只有本站会员才能查看附件，请登录

#11

yms1232012-02-07 11:25

<%
 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 " "
 c=0
 end if
 end with
 ad.movenext
 c=c+1
 next
 %>

#12

tepnidh2012-02-07 16:28

回复 11楼 yms123

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

只有本站会员才能查看附件，请登录

#13

wangjy5002012-02-07 20:40

只有本站会员才能查看附件，请登录

#14

tepnidh2012-02-07 21:29

回复 13楼 wangjy500

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

#15

wangjy5002012-02-08 18:06

只有本站会员才能查看附件，请登录

#16

tepnidh2012-02-08 21:46

回复 16楼 wangjy500

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

#17

wangjy5002012-02-09 17:54

Css就可以了。

程序代码：

<title>无标题文档</title>
<style type="text/css">

</style>
</head>

加上这段就可以了。

#18

tepnidh2012-02-09 20:18

回复 18楼 wangjy500

多谢啦,老师!