ASP一行显示两条记录

作者:admin 日期:2008-09-07

字体大小: 小中大

我做了一个网站,在其中一个页面中需要显示图片及其说明,图片和说明都是从数据库读出的,希望一行显示两个图片及其说明,我原来的代码只能显示一列,如:
<%
set rs1=server.CreateObject("adodb.recordset")
sql="select * from JL_Vessel where VesselTypeID='"&ModelID&"' order by ID"
rs1.open sql,Oconn,1,1
do while not rs1.eof
%>
<tr>
<td width="180" height="80" valign="bottom"><div align="center">
<a href="vessel.asp?modelid=<%=ModelID%>&ID=<%=rs1("ID")%>"><img src="../manage/FilesTemp/<%=rs1("Picture")%>" width="200" height="151" border="0"></a>
</div></td>
</tr>
<tr>
<td height="5" valign="bottom"><div align="center"><%=rs1("VesselProject")%></div></td>
</tr>
<%
rs1.movenext
loop
rs1.close
%>
其中Picture是图片,modelid是页面id号,vesselproject是说明,
如果我希望一行显示两个图片,并且在其下方显示说明该怎么做,希望大家帮帮忙,谢谢,急!
答案如下：

<%
set rs1=server.CreateObject("adodb.recordset")
sql="select * from JL_Vessel where VesselTypeID='"&ModelID&"' order by ID"
rs1.open sql,Oconn,1,1
i=0
do while not rs1.eof
i=i+1

%>
<%if i mod 2=1 then%>
<tr>
<%end if%>
<td width="180" height="80" valign="bottom"><div align="center">
<a href="vessel.asp?modelid=<%=ModelID%>&ID=<%=rs1("ID")%>"><img src="../manage/FilesTemp/<%=rs1("Picture")%>" width="200" height="151" border="0"></a>
</div></td>

</tr>

<tr>
<td height="5" valign="bottom"><div align="center"><%=rs1("VesselProject")%></div></td>
<%if i mod 2=0 then%>
</tr>
<%
end if
rs1.movenext
loop
rs1.close
%>

///////////////////////////////////当是新闻时

   <table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E7E7E7">
                   <%
                        sqld="select * from newscata where  rootid='" & rootid & "' and level='2'"
                        set rsd=server.CreateObject("adodb.recordset")
                        rsd.Open sqld,conn,1,1
                        i=0
                        do while not rsd.eof
                        i=i+1
                        if i mod 2=1 then
                  %>
                          <tr>
                       <%end if%>
                  <td width="50%" height="18" style="padding:0 0 0 20px"><b><a href="?action=s&bid=<%=bid%>&sid=<%=rsd("id")%>" style=" color:#FF0000"><%=rsd("title")%></a></b></td>

                        <%if i mod 2=0 then%>
                        </tr>
                        <%
                        end if
                    rsd.movenext
                    loop
                    rsd.close
                    set rsd=nothing
                    %>

                      </table>

[本日志由 admin 于 2008-09-07 09:43 AM 编辑]