<table width="225" border="0" cellpadding="3" cellspacing="0" bgcolor="#F0F9FF">
                    <%
Set Rs=Server.Createobject("Adodb.Recordset")
Sql="Select * From pic order by id desc"
Rs.open Sql,Conn,1,1
%>
                    <%
For i=1 To 96
   If rs.eof Then Exit For
   If i mod 2 <> 0 Then
%>
                    <tr>
                      <td width="50%" height="25"> <a href="pic/<%=rs("id")%>.htm" target=_blank><%=left(rs("picname"),8)%></a></td>
                      <%Else%>
                      <td width="50%"> <a href="pic/<%=rs("id")%>.htm" target=_blank><%=left(rs("picname"),8)%></a></td>
                    </tr>
                    <%
End If
rs.movenext
Next
rs.close
set rs=NOTHING
%>
</table>

原来的是两列。我想把这个改变6列。大家帮忙。

If i mod 2 <> 0 Then
换成If i mod 6 <> 0 Then

我已经改了可还是不行
好像<%Else%> 出了什么问题

<table width="99%" border="0" cellspacing="0" cellpadding="0">
                <tr>
                <!--循环开始-->    
                 <%
dim j
j=1
set conn2=server.createobject("ADODB.Connection")
conn2.open"driver={Microsoft Access Driver (*.mdb)};DBQ="&server.mappath("news/db/sxzx-net.asp")
set rs=server.CreateObject("adodb.recordset")
sql="Select * from newscata where level=2 and left(rootid,3)=319  order by id "
rs.Open sql,conn2,1,1

do while not rs.EOF
 
%>
    
        
         <tD align="center" valign="middle">
           <table width="98%" border="0" cellspacing="0" cellpadding="0">
            <TR>
            
               <td height="20" class="font13"><table width="97%" border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td width="308" height="20" background="img/left16.gif"><table width="98%" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td width="39">&nbsp;</td>
                            <td width="239" class="font13"><%=rs("title")%></td>
                          </tr>
                        </table></td>
                        <td width="444" height="20" align="right" valign="middle" background="img/left11.gif"><a  href="flyzk_a.asp?cataid=<%=rs("id")%>&cataname=<%=rs("title")%>" class="red">更多&gt;&gt;</a> </a>&nbsp; </td>
                      </tr>
                    </table></td>
               
               </TR>
            <TR>
              <Td height="143" colspan="2" valign="top">
               <div align="left">
                                    <table width="97%" border="0" align="center" cellpadding="0" cellspacing="0" class="line">
                                      <tr>
                                        <td height="14" valign="bottom" bgcolor="#FFFFFF"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
                                            <tr>
                                              <td height="165" valign="top"><div align="left">
                                                
                                    <script language="JavaScript" src="news/snews.asp?cataid=<%=rs("id")%>&words=20&num=7&l_d=ok" type="text/javascript"></script>
                                              </div></td>
                                            </tr>
                                        </table></td>
                                      </tr>
                                    </table>
                                    <br><br>
               </div>              </Td>
            </TR>
           </table>
         </tD>
          <%
           if (j mod 2)=0 then
             j=0
            %>
              </tr><tr>
            <%
           end if
          %>
                             <%
     j=j+1                    
rs.movenext
loop
rs.close

%>
        </tr>
        </table>
<!--结束-->

给你一个参考!

[[it] 本帖最后由 孤独冷雨 于 2008-10-10 17:08 编辑 [/it]]

还是看不行。