class.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" ALIGN="CENTER" VALIGN="middle" bgcolor="#ff6600"><FONT COLOR=#ffffff>十佳文字榜 
            </FONT> 
            <TABLE WIDTH="160" BORDER="0" CELLPADDING="0" CELLSPACING="0" bgcolor="#f1f1f1">
          <TR><TD WIDTH="5">&nbsp;</TD><TD WIDTH="155"><SCRIPT LANGUAGE="javascript" SRC="js/top10list.js"></SCRIPT></TD></TR></TABLE></TD></TR> 
</TABLE>
      <TABLE WIDTH="160" BORDER="0" CELLSPACING="0" CELLPADDING="0" > 
 <TR> <TD> <TABLE CELLSPACING=0 CELLPADDING=10 WIDTH="100%" BORDER=0> 
<TBODY> <TR> <FORM NAME=upLoad METHOD=post ACTION=upload.asp> 
                    <TD CLASS=gb2 VALIGN=top ALIGN=left>&nbsp;                    </TD>
                  </FORM></TR> </TBODY> </TABLE></TD></TR> 
</TABLE></TD>
    <TD VALIGN="TOP" ALIGN="right">
      <table width="99%" height="22" 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><%if	request("sort")=""	then	response.write "全部笑话"	else	response.write request("sort")		end if%></font></td></tr> 
</table>
          </td>
        </tr> </table>
      <br> 
      <table width="99%" border="0" cellpadding="0" cellspacing="0" bgcolor="#f1f1f1" >
        <%
response.write count
sort=request("sort")
if sort="" then
sql="select articleid,title,hits from learning where syxs<>0 order by articleid desc"
else          
sql="select articleid,title,hits from learning where syxs<>0 and sort='" & sort & "' order by articleid desc"                  
end if

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=list.asp?id=<%=rs("articleid")%> TARGET=_blank><%=rs("title")%></A>　<%=rs("hits")%> 
</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="list.asp?id=<%=rs("articleid")%>" TARGET=_blank><%=rs("title")%></A>　<%=rs("hits")%> 
</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" cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
        <form action="class.asp" method="post"> <tr> <td height="22" align="right" width="100%"> 
页次: <b><font color=red><%=pagecount%></font>/<%=rs.pagecount%></b> <% if pagecount=1 and rs.pagecount<>pagecount and rs.pagecount<>0 then%> 
<a href="class.asp?sort=<%=sort%>&page=<%=cstr(pagecount+1)%>"> 下一页</a> <% end if %> 
<% if rs.pagecount>1 and rs.pagecount=pagecount then %> <a href="class.asp?sort=<%=sort%>&page=<%=cstr(pagecount-1)%>"> 
上一页</a> <%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%> <a href="class.asp?sort=<%=sort%>&page=<%=cstr(pagecount-1)%>"> 
上一页</a> <a href="class.asp?sort=<%=sort%>&page=<%=cstr(pagecount+1)%>"> 下一页</a> 
<% end if%> &nbsp; 直接到第 <select name="page" CLASS="un_submit"> <%for i=1 to rs.pagecount%> 
<option value="<%=i%>"><%=i%></option> <%next%> </select> 页 <input type="submit" name="go" value="Go" CLASS="un_submit"> 
<input type="hidden" name="sort" value="<%=sort%>"> </td></tr> </form><%
rs.close
set rs=nothing
%> </table><BR></TD></TR></TABLE>
<!--#include file="copyright.asp"-->