joke.asp

笑话堂(含上万数据) 笑话堂(含上万数据) 笑话堂(含上万数据)

<TABLE WIDTH="770" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="#FFFFFF">
  <TR> 
    <TD VALIGN="TOP" ALIGN="CENTER"> 
      <TABLE WIDTH="96%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
        <TR> 
          <TD width="20%" HEIGHT="1" BGCOLOR="#000000 COLSPAN="4"></TD>
        </TR>
        <TR> 
          <TD width="20%" HEIGHT="10" COLSPAN="4" ALIGN="CENTER"><BR> <TABLE BORDER="0" CELLPADDING="3" CELLSPACING="5" WIDTH="96%" ALIGN="center" >
              <%
set rs=server.createobject("adodb.recordset")               
sql="select picid,picname,pichits from pic where picsy<>0  order by adate desc"                  
rs.open sql,conn,1,1
nn=0
 do while not rs.eof                      
 %>
              <TR> 
                <TD HEIGHT="20" VALIGN="middle" WIDTH="33%" ONMOUSEOVER="this.bgColor = '#f0f0f0'" ONMOUSEOUT="this.bgColor = '#F6F6F6'" BGCOLOR="#F6F6F6" ALIGN="RIGHT"> 
                  <TABLE WIDTH="96%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
                    <TR> 
                      <TD><LI><A HREF="piclist.asp?picid=<%=rs("picid")%>" TARGET="_blank"><%=rs("picname")%></A>　<%=rs("pichits")%> 
                      </TD>
                    </TR>
                  </TABLE></TD>
                <% rs.movenext%>
                <TD HEIGHT="20" VALIGN="middle" WIDTH="33%" ONMOUSEOVER="this.bgColor = '#f0f0f0'" ONMOUSEOUT="this.bgColor = '#F6F6F6'" BGCOLOR="#F6F6F6" ALIGN="RIGHT"><TABLE WIDTH="96%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
                    <TR> 
                      <TD><LI><A HREF="piclist.asp?picid=<%=rs("picid")%>" TARGET="_blank"><%=rs("picname")%></A>　<%=rs("pichits")%> 
                      </TD>
                    </TR>
                  </TABLE></TD>
                <%                           
nn=nn+1
rs.movenext
if nn>=8 then exit do
loop
rs.close
set rs=nothing                               
%>
              </TR>
            </TABLE></TD>
        </TR>
      </TABLE>
      <BR>
    </TD>
  </TR>
</TABLE>