index_right_more.asp

来自「个人网站模板」· ASP 代码 · 共 78 行

<!-- //#include file="top.asp"-->
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td width="10" bgcolor="#666666">&nbsp;</td>
    <td><table width='100%' border='0' cellspacing='0' cellpadding='2'>
  <%
sql="select * from index_right order by listid ASc, id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,1

do while NOT rs.EOF %>
  <tr align='center'> 
    <%
for i=1 to 5
%>
    <td height="49"> 
      <%
if not rs.eof then
%>
            <table border="0" cellspacing="4" cellpadding="4">
              <tr>
                <td><table border=0 align=center cellpadding=0 cellspacing=0>
                    <tr> 
                      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="10"><img src="images/pic_l2.gif" width="10" height="16"></td>
                            <td background="images/pic_c2.gif"><img src="images/pic_c2.gif" width="10" height="16"></td>
                            <td width="10"><img src="images/pic_r2.gif" width="10" height="16"></td>
                          </tr>
                        </table></td>
                    </tr>
                    <tr> 
                      <td> <div align="center"> 
                          <table width="100%" border="0" cellspacing="0" cellpadding="0">
                            <tr> 
                              <td width="1" bgcolor="#CCCCCC"></td>
                              <td><table width="100%" border="0" cellpadding="0" cellspacing="4">
                                  <tr> 
                                    <td> <div align="center"><a href='<%=rs("pic_url")%>' target="_blank"><img src='admin/<%=rs("smallimg")%>' border='0' width=120></a></div></td>
                                  </tr>
                                  <tr> 
                                    <td><div align="center"><b><%=rs("pic_name")%></b></div></td>
                                  </tr>
                                </table></td>
                              <td width="1" bgcolor="#CCCCCC"></td>
                            </tr>
                          </table>
                        </div></td>
                    </tr>
                    <tr> 
                      <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                          <tr> 
                            <td width="10"><img src="images/pic_l1.gif" width="10" height="16"></td>
                            <td background="images/pic_c1.gif">&nbsp;</td>
                            <td width="10"><img src="images/pic_r1.gif" width="10" height="16"></td>
                          </tr>
                        </table></td>
                    </tr>
                  </table></td>
              </tr>
            </table> </td>
    <%
rs.movenext 
end if
next
%>
  </tr>
  <%
loop
rs.Close
set rs=nothing
%>
</table></td>
    <td width="10" bgcolor="#666666">&nbsp;</td>
  </tr>
</table>
<!-- //#include file="foot.asp"-->