piclist.asp

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

<!--#include file="top.asp"--> <%
id=request("picid")
if id="" then 
   response.write "参数不足"
   response.end
end if     
%> <%
sql="select * from pic where picsy<>0 and picid="&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 
  tday=rs("tday")
rs("pichits")=rs("pichits")+71
rs("tohit")=rs("tohit")+71
rs.update


if datediff("d",tday,date)>=1 then
	rs("tday")=date()
	rs("tohit")=71
	rs.update
end if


title=rs("picname")
hits=rs("pichits")
writer=rs("writer")
if writer="" then
	writer="Xroha.Com"
end if
pic=rs("picurl")
adate=rs("adate")
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 HEIGHT="22">
<TABLE CELLSPACING=0 CELLPADDING=3 WIDTH="100%" BORDER=0> 
<TBODY> <TR> <FORM NAME=searchJoke ACTION=search.asp METHOD=post> 
                    <TD VALIGN=top bgcolor="#f1f1f1" CLASS=gb2>&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="160"><iframe src="http://c03.caishow.com/code/xuli/165x312.asp?f=1003" height="312" width="165" marginwidth="0" marginheight="0" hspace="0" vspace="0" frameborder="0" scrolling="no"></iframe>
</TD>
        </TR> 
</TABLE></TD>
    <TD ALIGN="right"> 
      <TABLE BORDER="0" CELLSPACING="0" WIDTH="99%" CELLPADDING="0">
        <TR> 
          <TD height="22" bgcolor="#ff6600" CLASS="gb2">&nbsp;<font color="#FFFFFF">&nbsp;<A HREF="picclass.asp"><font color="#FFFFFF">爆笑图片</font></A> 
            -&gt; <%=title%> </font></TD>
        </TR> <TR> 
          <TD HEIGHT="10" bgcolor="#f1f1f1">&nbsp; </TD>
        </TR> <TR VALIGN="TOP"> 
          <TD HEIGHT="30" ALIGN="center" bgcolor="#f1f1f1" CLASS="gb1">〖<FONT SIZE="3" COLOR="#993300"><B><%=title%></B></FONT>〗</TD>
        </TR><TR ALIGN="RIGHT">
          <TD bgcolor="#f1f1f1" CLASS="gb2"><FONT COLOR="#666666">发表</FONT><FONT COLOR="#666666">：<A HREF="<%=url%>" TARGET="_blank"><%=writer%></A> 
            日期： 
            <%addday=year(adate)&"年"&month(adate)&"月"&day(adate)&"日"%>
            <%=addday%>&nbsp; 浏览：<%=hits%>次</FONT> </TD>
        </TR><TR>
          <TD ALIGN="center" bgcolor="#f1f1f1" CLASS="gb1"> 
            <HR STYLE="border-style: dotted" SIZE="1" COLOR="#808080"></TD></TR> 
<TR> 
          <TD HEIGHT="101" ALIGN="center" bgcolor="#f1f1f1"> <BR> <TABLE WIDTH="520" BORDER="0" CELLSPACING="0" CELLPADDING="0"> 
<TR> <TD ALIGN="center"> <%
		  if instr(pic,"[img]") then
			 pic = Replace(pic, "[img]","<img src=")
			 pic = Replace(pic, "[/img]"," onload=""javascript:if(this.width>500)this.width=500"">")  
		  else
			 pic = Replace(pic, "[up]","<img src=upload/")
			 pic = Replace(pic, "[/up]"," ALT=荣华笑话站之爆笑漫画  onload=""javascript:if(this.width>500)this.width=500"">")  
		  end if
		  Response.Write(pic)
	   %> </TD></TR> <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))%> </TD></TR> 
</TABLE><BR> </TD></TR> <TR> 
          <TD HEIGHT="8" ALIGN="right" bgcolor="#CCCCCC"> 
            <li>下一篇： <%
sql="select * from pic where picsy<>0 and picid="&id+1
rs.open sql,conn,1,2
if rs.bof or rs.eof then
   response.write "无"
   else
   response.write "<a href=piclist.asp?picid="&id+1&">"&rs("picname")&"</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">
        <TR>
          <TD HEIGHT="10" bgcolor="#ff6600"></TD>
        </TR></TABLE>
      <BR></TD></TR></TABLE>
		<!--#include file="copyright.asp"-->