picclass.asp

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

<!--#include file="top.asp"-->
<TABLE WIDTH="773" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="#FFFFFF">
  <TR>
    <TD WIDTH="160" ALIGN="CENTER" VALIGN="TOP" bgcolor="#f1f1f1"> 
      <TABLE WIDTH="160" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
<TR> 
          <TD BGCOLOR="#ff6600" HEIGHT="22">　 <FONT COLOR="#ffffff">笑话分类</FONT></TD>
        </TR> 
<TR> <TD BGCOLOR="#000000" HEIGHT="1"></TD></TR> <TR> 
          <TD ALIGN="center" VALIGN="middle" WIDTH="170"> 
            <SCRIPT LANGUAGE="javascript" SRC="js/jokesort.js"></SCRIPT>
          </TD>
        </TR> </TABLE><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD HEIGHT="2"></TD></TR></TABLE><TABLE WIDTH="160" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
<TR> 
          <TD BGCOLOR="#ff6600" HEIGHT="22">　 <FONT COLOR="#ffffff">笑话检索</FONT></TD>
        </TR> 
<TR> <TD BGCOLOR="#000000" HEIGHT="1"></TD></TR> <TR> 
          <TD ALIGN="center" VALIGN="middle" WIDTH="170">
<TABLE CELLSPACING=0 CELLPADDING=3 WIDTH="100%" BORDER=0> 
<TBODY> <TR> <FORM NAME=searchJoke ACTION=search.asp METHOD=post> 
                    <TD CLASS=gb2 VALIGN=top><FONT COLOR=#000000>关键字查询 &gt;&gt;&gt;</FONT><BR>
                      <INPUT SIZE=12 NAME=keyword VALUE="笑翻天"> 
<INPUT TYPE=submit VALUE=检索 NAME=search2 CLASS="submit">
                    </TD>
                  </FORM></TR> </TBODY> 
</TABLE></TD></TR> </TABLE><BR><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
        <TR> 
          <TD WIDTH="160" HEIGHT="20" ALIGN="CENTER" VALIGN="middle" bgcolor="#ff6600"><FONT COLOR=#ffffff>十佳图片榜 </FONT> 
            <TABLE WIDTH="100%" BORDER="0" CELLPADDING="0" CELLSPACING="0" bgcolor="#f1f1f1">
              <TR><TD WIDTH="5">&nbsp;</TD><TD><SCRIPT LANGUAGE="javascript" SRC="js/top10pic.js"></SCRIPT></TD></TR></TABLE></TD></TR> 
</TABLE>
      <TABLE WIDTH="160" BORDER="0" CELLSPACING="0" CELLPADDING="0" ><TR> 
          <TD>&nbsp;          </TD>
      </TR> <TR> <TD HEIGHT="11">&nbsp;</TD></TR> 
</TABLE><BR><TABLE WIDTH="100%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR>
          <TD ALIGN="CENTER">&nbsp; </TD>
        </TR></TABLE></TD>
    <TD VALIGN="TOP" ALIGN="right"> 
      <TABLE WIDTH="99%" height="23" BORDER="0" CELLPADDING="0" CELLSPACING="0">
        <TR> 
          <TD bgcolor="#ff6600"> 
            <TABLE WIDTH="70" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
<TR> <TD ALIGN="center" VALIGN="bottom" HEIGHT="18"><FONT COLOR="#ffffff">漫画</FONT></TD></TR> 
</TABLE>
          </TD>
        </TR> </TABLE><BR>
<TABLE WIDTH="99%" BORDER="0" CELLPADDING="0" CELLSPACING="0" bgcolor="#f1f1f1">
        <%

sql="select picid,picname,pichits from pic where picsy<>0  order by picid desc" 
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1
						
	n=0 
	if not isempty(request("page")) then   
	pagecount=cint(request("page"))   
	else   
	pagecount=1
	end if

	rs.pagesize=40
	rs.AbsolutePage=pagecount       
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><% n=n+1
					rs.movenext
					if rs.eof or rs.bof then 
					response.write "<td width='33%'></td>"
					exit do
					end if
					%> <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><%                           
                n=n+1
				rs.movenext
				if n>=rs.pagesize then exit do
				loop                                   
                %> </TR> </TABLE><BR>
      <TABLE WIDTH="99%" BORDER="0" CELLSPACING="0" CELLPADDING="0">
        <FORM ACTION="picclass.asp" METHOD="post"> <TR> 
            <TD WIDTH="100%" HEIGHT="22" ALIGN="right" bgcolor="#CCCCCC"> 页次: 
              <B><FONT COLOR=red><%=pagecount%></FONT>/<%=rs.pagecount%></B> 
              <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%>
              <A HREF="picclass.asp?page=<%=cstr(pagecount+1)%>"> 下一页</A> 
              <% end if %>
              <% if rs.pagecount>1 and rs.pagecount=pagecount then %>
              <A HREF="picclass.asp?page=<%=cstr(pagecount-1)%>"> 上一页</A> 
              <%end if%>
              <% if pagecount<>1 and rs.pagecount<>pagecount then%>
              <A HREF="picclass.asp?page=<%=cstr(pagecount-1)%>"> 上一页</A> <A HREF="picclass.asp?page=<%=cstr(pagecount+1)%>"> 
              下一页</A> 
              <% end if%>
              &nbsp; 直接到第 
              <SELECT NAME="select" CLASS="un_submit"> <%for i=1 to rs.pagecount%> 
<OPTION VALUE="<%=i%>"><%=i%></OPTION> <%next%> </SELECT> 页 <INPUT TYPE="submit" NAME="go2" VALUE="Go" CLASS="un_submit"> 
<INPUT TYPE="hidden" NAME="sort2" VALUE="<%=sort%>"> </TD></TR> </FORM>
<%
response.write count
rs.close
set rs=nothing
%> </TABLE></TD></TR>
</TABLE>
<!--#include file="copyright.asp"-->