list.asp

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

<!--#include file="top.asp"-->
<%on error resume next %>
<%oid=request("id")
	if id<>"" then
		id=cint(id)
	end if %> <%
id=request("id")
if id="" then 
   response.write "参数不足"
   response.end
end if     
%> <%
sql="select * from learning where articleid="&id
rs.open sql,conn,1,2
if rs.bof or rs.eof then
   response.write "该内容已经不删除或者不存在"
   rs.close
   set rs=nothing
   conn.close
   set conn=nothing
   response.end
end if 
today=rs("today")

rs("todayhits")=rs("todayhits")+71
rs("hits")=rs("hits")+71
rs.update

if datediff("d",today,date)>=1 then
	rs("today")=date()
	rs("todayhits")=100
	rs.update
end if

title=rs("title")
hits=rs("hits")
writer=rs("writer")
if writer="" then
	writer="Xroha.Com"
end if
url=rs("writer_url")
sort=rs("sort")
dateandtime=rs("dateandtime")
content=rs("content")
rs.close
response.write count
%> 
<TABLE WIDTH="773" BORDER="0" CELLSPACING="0" CELLPADDING="0" ALIGN="CENTER" BGCOLOR="#FFFFFF">
  <TR>
    <TD WIDTH="160" 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="160" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
<TR> <TD BGCOLOR="#36A36C" HEIGHT="22"><TABLE CELLSPACING=0 CELLPADDING=2 WIDTH="100%" BORDER=0> 
<TBODY> <TR> <FORM NAME=searchJoke ACTION=search.asp METHOD=post> 
                    <TD CLASS=gb2 VALIGN=top BGCOLOR="#ff6600" HEIGHT="22">&nbsp; 
                      <INPUT SIZE=12 NAME=keyword VALUE="哈哈笑吧" CLASS="s_input">
                      &nbsp;<INPUT TYPE=submit VALUE=检索 NAME=search2 CLASS="un_submit">
                    </TD>
                  </FORM></TR> </TBODY> </TABLE></TD></TR> <TR> <TD BGCOLOR="#000000" HEIGHT="1"></TD></TR> 
<TR> 
          <TD ALIGN="center" VALIGN="middle" WIDTH="170">&nbsp;</TD>
        </TR> 
</TABLE>
        <table width="100%"  border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td><div align="center"><iframe width="128" height="128" src="http://c04.caishow.com/month_code/mm128x128.asp?f=1003" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no"></iframe></div></td>
          </tr>
        </table></TD>
    <TD ALIGN="right" valign="top"> 
      <TABLE BORDER="0" CELLSPACING="0" WIDTH="99%" CELLPADDING="0">
        <TR> 
          <TD HEIGHT="22" COLSPAN="2" bgcolor="#ff6600" CLASS="gb2">&nbsp;&nbsp;<A HREF="default.asp"><font color="#FFFFFF">幽默笑话</font></A><font color="#FFFFFF"> 
            -&gt; <%=sort%></font></TD>
        </TR><TR>
          <TD HEIGHT="9" COLSPAN="2" bgcolor="#f1f1f1" CLASS="gb1">&nbsp;</TD>
        </TR> 
<TR> 
          <TD HEIGHT="30" COLSPAN="2" ALIGN="center" VALIGN="TOP" bgcolor="#f1f1f1" CLASS="gb1"> 
            〖<FONT SIZE="3" COLOR="#993300"><B><%=title%></B></FONT>〗</TD>
        </TR> 
<TR> 
          <TD COLSPAN="2" ALIGN="RIGHT" bgcolor="#f1f1f1" CLASS="gb2"><FONT COLOR="#666666">发布</FONT><FONT COLOR="#666666">：<%=writer%>
            日期：
            <%addday=year(dateandtime)&"年"&month(dateandtime)&"月"&day(dateandtime)&"日"%>
            <%=addday%>&nbsp;浏览：<%=hits%>次</FONT>&nbsp;&nbsp;</TD>
        </TR><TR> 
          <TD COLSPAN="2" bgcolor="#f1f1f1"> 
            <HR STYLE="border-style: dotted" SIZE="1" COLOR="#808080"></TD></TR> 
<TR> 
          <TD COLSPAN="2" ALIGN="center" bgcolor="#f1f1f1"> 
            <TABLE WIDTH="92%" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
<TR> <TD CLASS="gb1"> 
  <%
				content=Replace(content,CHR(10) & CHR(10), "</P><P>")
				content=Replace(content,CHR(10),"<br>")
				content=Replace(content,CHR(13)," ")
				content=Replace(content,CHR(32),"&nbsp;")
				Response.Write(ubbcode(content))%>
</font></TD>
</TR> </TABLE></TD></TR> 
<TR> 
          <TD HEIGHT="17" COLSPAN="2" ALIGN="center" bgcolor="#f1f1f1">&nbsp; </TD>
        </TR><TR> 
          <TD HEIGHT="8" COLSPAN="2" ALIGN="RIGHT" bgcolor="#e7e7e7" CLASS="gb2"> 
            <LI>下一篇： 
<%
sql="select * from learning where syxs<>0 and articleid="&id+1
rs.open sql,conn,1,2
if rs.bof or rs.eof then
   response.write "无"
   else
   response.write "<a href=list.asp?id="&id+1&">"&rs("title")&"</a>"
   end if 
rs.close    
%> 〖<A HREF="javascript:window.close()"><FONT COLOR="#FF0000">关闭窗口</FONT></A>〗　</TD></TR> 
</TABLE>
      <TABLE WIDTH="99%" BORDER="0" CELLSPACING="1" CELLPADDING="0" BGCOLOR="#cccccc">
        <TR>
          <TD HEIGHT="10"></TD>
        </TR></TABLE>
      <BR></TD></TR></TABLE>
	  <!--#include file="copyright.asp"-->