Question

ASP代码首页调用图片显示，现在首页是显示的7张随机图片，我想显示15张怎么弄，代码如下

</div>
<!--room-->
<div class="room">
<div><img src="images/bg_room.gif" alt="bg_room"/></div>
<ul>
<marquee >
<%
Dim htmRoom,rndI
Function GetRnd(bound)
DIM ranNum
Randomize()
ranNum=int(bound*rnd)
If Instr(session("Appeared"),"["&ranNum&"]") Then'产生的随机数是否出现过
ranNum = getRnd(bound)
End If
session("Appeared") = session("Appeared") & "["&ranNum&"]"'记录已出现的随机数
GetRnd = ranNum
End Function
if IsArray(aryIdxRoom) Then
For ni=0 To 6
rndI=GetRnd(UBound(aryIdxRoom,2))
htmRoom=htmRoom&"<li><a href=view_Room.asp?id="&aryIdxRoom(0,rndI)&" class='black' title='客房名称："&aryIdxRoom(1,rndI)&"'><img src="&aryIdxRoom(2,rndI)&" border='0' width='100' height='75'/></a></li>"
Next
session("Appeared")=""
Else
htmRoom="<li>系统还没有房间信息</li>"
End If
response.write htmRoom
%>
</marquee>
</ul>
</div>

Answer 1

看这段代码：
if IsArray(aryIdxRoom) Then
For ni=0 To 6

应该将这个循环：　For ni=0 To 6　　改成：　For ni=0 To 14　再试试．

追问

For ni=0 To 6   原先的这个显示的是  两排图片  上面4张  下面3张

我改成  For ni=0 To 14  就报错了

• 我试图改成：For ni=0 To 10   图片显示成三排了  上面一排4张  二排4张  三排  3张

  我只需要两排   一排显示5张的

  错误类型：Microsoft VBScript 运行时错误 (0x800A0007)内存不够: 'session'/index.asp, 第 142 行浏览器类型：Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0) 

   

Answer 2

楼上回答正解，有没有限制调用条数的地方，比如设置推荐最多10条，改成15条。
分行问题一般是在css中控制的。 需要修改css样式表单。

Answer 3

For ni=0 To 14 试试

追问

For ni=0 To 6   原先的这个显示的是  两排图片  上面4张  下面3张

我改成  For ni=0 To 14  就报错了

我试图改成：For ni=0 To 10   图片显示成三排了  上面一排4张  二排4张  三排  3张

我只需要两排   一排显示5张的

错误类型：Microsoft VBScript 运行时错误 (0x800A0007)内存不够: 'session'/index.asp, 第 142 行浏览器类型：Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)