重复区域问题 - 编程论坛

#2

robinbest2008-06-26 12:38

<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
        <%
        sql = "SELECT * FROM ZJnews ORDER BY postdate desc"
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.OPEN sql,Conn,1,1
        i=1
        Do While (Not rs.eof)
        %>
        <table width="280" height="96" border="0" cellpadding="0" cellspacing="0">
        <tr>
            <td width="99" rowspan="3" align="center" valign="middle">
               <img name="pImg" src='<%="./images/"&rs("picture")%>' width="90" height="90" alt=""></td>
            <td width="148" height="20" align="center" valign="middle"><%=rs("ZJname")%></td>
            <td width="33"> </td>
        </tr>
        <tr>
            <td height="20" align="center" valign="middle"><%=rs("cbdate")%></td>
            <td> </td>
        </tr>
        <tr>
            <td align="left" valign="top"><%=rs("jieshao")%></td>
            <td> </td>
        </tr>
        </table>
        <%
        if i mod 2 = 0 then response.write"</tr><tr>"
        i=i+1
        rs.movenext
        'loop
        %>
    </td>
  </tr>
</table>
<%
rs.close
set rs=nothing
%>

[[it] 本帖最后由 robinbest 于 2008-6-26 12:41 编辑 [/it]]

#3

wujiawen3122008-06-26 17:23

好像不行阿.~是竖着来读出的..~咋办?!

#4

gdk20062008-06-27 08:44

<table width="306" border="0" align="center" cellpadding="0" cellspacing="4">
  <tr>
  <%
  num=0
  for i=0 to 5
  %>
    <td width="304">

<table width="140" border="0" align="center" cellpadding="0" cellspacing="2">
  <tr>
    <td width="100" align="center" valign="middle" style="border:#000000 1px solid;"><img src="images/Article_title_icon.gif" width="100" height="100" /></td>
    <td width="20"> </td>
  </tr>
  <tr>
    <td height="40" align="center">X-Man</td>
    <td> </td>
  </tr>
</table>

</td>
<%
num=num+1
if (num mod 3)=0 then
response.Write("</tr>")
response.Write("<tr>")
end if
%>
<%
next
%>
  </tr>
</table>

自己去修改！