Question

asp如何调用数据库图片，显示多张图片要怎么改下面的代码?

<%
set rs=server.createobject("adodb.recordset")
sql="select * from CompVisualize order by id desc"
rs.open sql,conn,1,1

dim MaPerPage
MaPerPage=9
dim text,checkpage
text="0123456789"
Rs.PageSize=MaPerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
If NOT IsEmpty(request("page")) Then
CurrentPage=Cint(request("page"))
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount
Else
CurrentPage= 1
End If
If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
CurrentPage=1
End if

call list

'显示帖子的子程序
Sub list()%>
<ul class="iCases clearfix">
<%i=1 %>
<% Do While Not rs.eof%>
<li>
<a href="CompVisualizeBig.asp?id=<%=rs("id")%>" target="_blank" class="imga">
<img src="<%=rs("CompVisualize")%>" alt="" />

<% if i mod 3 =0 then%>

</li>
<%end if%>
<%
i=i+1
if i >= 10 then exit do
rs.MoveNext
loop
%>
</ul>
<%
End sub
rs.close
set rs=nothing
%>

Answer 1

这个就是显示多张图片啊，每页九张图，三行，每行三张

追问

那怎么才显示1张图

我要两行8张

追答

有两个地方，第一个是dim MaPerPage
MaPerPage=9，你可以改成1，第二个地方i=i+1
if i >= 10 then exit do
rs.MoveNext
i>=10，改成i>=2,不过你改了之后还要改css不然布局不好看。两行8张的话先把MaPerPage=9改成MaPerPage=8，再if i >= 10改成if i >= 9，然后if i mod 3 =0 then改成if i mod 4 =0 then

追问

改了之后还是只显示一张图

追答

确定是这页的代码？或者你这页的后台确定上传了很多张图片？不会只有一张照片吧。。。

追问

6⃣️张啊，这代码放在另外的单独页面，用调用的

追答

那就再看看css，别的页面能用说明代码没问题，看看css是不是覆盖图片了

追问

css也应该没问题，别的调用放这个模块里可以显示多张图

追答

。。。。不知道了。。。。你再想想办法吧

Answer 2

你看看这个类别的数据是不是有那么多个，看代码应该是显示9个一页的，3个一行的

追问

有的里面有八张图，把这些代码放单独一个页面是可以都显示，放首页一个模块就只显示一个

追答

那么可能是你首页有其他重新定义了数量，如果你首页直接放一个循环就行了，不用那么复杂

Answer 3

显示1张 改 MaPerPage=1

追问

是要多张，可是显示出来就一张