search.asp

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

<!--#include file="top.asp"--> <%keyword=trim(request("keyword"))
if keyword="" then
	response.write"<SCRIPT language=JavaScript>alert('请出入您要查询的关键字！');"
	response.write"javascript:history.go(-1)</SCRIPT>"
	response.end
end if%> 
<TABLE WIDTH="773" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="#FFFFFF">
  <TR><TD WIDTH="1" BGCOLOR="#000000"></TD>
    <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="22" ALIGN="CENTER" VALIGN="middle" bgcolor="#FF6600"><br><FONT COLOR=#ffffff> 
            十佳文字榜 </FONT> 
            <TABLE WIDTH="160" BORDER="0" CELLPADDING="0" CELLSPACING="0" bgcolor="#f1f1f1">
              <TR>
                <TD WIDTH="5" height="32">&nbsp;</TD>
                <TD WIDTH="155"><SCRIPT LANGUAGE="javascript" SRC="js/top10list.js"></SCRIPT></TD></TR></TABLE></TD></TR> 
</TABLE><HR SIZE=1><TABLE WIDTH="160" BORDER="0" CELLSPACING="0" CELLPADDING="0" > 
<TR> <TD>&nbsp;</TD></TR> <TR> <TD>&nbsp; </TD>
</TR> 
</TABLE></TD><TD VALIGN="TOP" ALIGN="CENTER"><br><TABLE WIDTH="550" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
<TR> <TD BACKGROUND="images/bar20.gif" HEIGHT="29"> <TABLE WIDTH="70" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
<TR> <TD ALIGN="center" VALIGN="bottom" HEIGHT="18"><FONT COLOR=#000000>检索结果</FONT></TD></TR> 
</TABLE></TD></TR></TABLE><br>幽默笑话类<BR><TABLE WIDTH="98%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD><TABLE BORDER="0" CELLPADDING="0" CELLSPACING="3" WIDTH="90%" ALIGN="center" > 
<%
sql="select articleid,title,hits from learning where syxs<>0 and title like '%"&keyword&"%' order by articleid desc"
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "没有符合您要查询的内容！"
else
						
	n=0 
	if not isempty(request("page")) then   
	pagecount=cint(request("page"))   
	else   
	pagecount=1
	end if

	rs.pagesize=20
	rs.AbsolutePage=pagecount       
do while not rs.eof                      
title=rs("title")
title=replace(title,keyword,"<font color=red>"&keyword&"</font>")


%> <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><%=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><%=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="97%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="center"> 
<FORM ACTION="search.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="search.asp?keyword=<%=keyword%>&page=<%=cstr(pagecount+1)%>"> 下一页</A> 
<% end if %> <% if rs.pagecount>1 and rs.pagecount=pagecount then %> <A HREF="search.asp?keyword=<%=keyword%>&page=<%=cstr(pagecount-1)%>"> 
上一页</A> <%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%> <A HREF="search.asp?keyword=<%=keyword%>&page=<%=cstr(pagecount-1)%>"> 
上一页</A> <A HREF="search.asp?keyword=<%=keyword%>&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="keyword" VALUE="<%=keyword%>"> </TD></TR> </FORM><%
end if
rs.close
set rs=nothing
%> </TABLE></TD></TR></TABLE><BR><BR>搞笑图片类<BR><TABLE WIDTH="98%" BORDER="0" CELLSPACING="0" CELLPADDING="0"><TR><TD><TABLE BORDER="0" CELLPADDING="0" CELLSPACING="3" WIDTH="90%" ALIGN="center" > 
<%
sql="select picid,picname,pichits,picsy from pic where picsy<>0 and picname like '%"&keyword&"%' order by picid desc"
set rs=server.createobject("adodb.recordset") 
rs.open sql,conn,1,1
if rs.eof then
response.write "没有符合您要查询的内容！"
else
						
	nv=0 
	if not isempty(request("page")) then   
	pagecount=cint(request("page"))   
	else   
	pagecount=1
	end if

	rs.pagesize=20
	rs.AbsolutePage=pagecount       
do while not rs.eof                      
picname=rs("picname")
picname=replace(picname,keyword,"<font color=red>"&keyword&"</font>")


%> <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><%=picname%></A>　<%=rs("pichits")%> 
</TD></TR></TABLE></TD><% nv=nv+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><%=picname%></A>　<%=rs("pichits")%> 
</TD></TR></TABLE></TD><%                           
                nv=nv+1
				rs.movenext
				if nv>=rs.pagesize then exit do
				loop                                   
                %> </TR> </TABLE><BR> <TABLE WIDTH="97%" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="center"> 
<FORM ACTION="search.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="search.asp?keyword=<%=keyword%>&page=<%=cstr(pagecount+1)%>"> 下一页</A> 
<% end if %> <% if rs.pagecount>1 and rs.pagecount=pagecount then %> <A HREF="search.asp?keyword=<%=keyword%>&page=<%=cstr(pagecount-1)%>"> 
上一页</A> <%end if%> <% if pagecount<>1 and rs.pagecount<>pagecount then%> <A HREF="search.asp?keyword=<%=keyword%>&page=<%=cstr(pagecount-1)%>"> 
上一页</A> <A HREF="search.asp?keyword=<%=keyword%>&page=<%=cstr(pagecount+1)%>"> 
下一页</A> <% end if%> &nbsp; 直接到第 <SELECT NAME="select2" CLASS="un_submit"> <%for ii=1 to rs.pagecount%> 
<OPTION VALUE="<%=ii%>"><%=ii%></OPTION> <%next%> </SELECT> 页 <INPUT TYPE="submit" NAME="go22" VALUE="Go" CLASS="un_submit"> 
<INPUT TYPE="hidden" NAME="keyword2" VALUE="<%=keyword%>"> </TD></TR> </FORM><%
end if
rs.close
set rs=nothing
%> </TABLE></TD></TR></TABLE></TD></TR><TR><TD COLSPAN="3" BGCOLOR="#36A36C" HEIGHT="1"></TD></TR></TABLE>
<!--#include file="copyright.asp"-->