recycle.asp

一个不错的论坛原代码

<!--#include file="Connections.asp" -->
<!--#include file="top.asp" -->
<!--#include file="ubb.asp" -->

<%if h_viewcpb=1 and isuser=false then response.redirect("login.asp")
cpbtitle="回收站"
call toptitle(l_title,cpbtitle)
call head(4,"论坛信息",Request.ServerVariables("HTTP_REFERER"),cpbtitle)%>



<table border=0 cellpadding=0 cellspacing=0 class=tb2>
  <TR> 
    <td> 
      <table  border=1 borderColor=<%=tdc2%> cellPadding=1 cellSpacing=0 width=100% style="border-collapse: collapse">
        <tr > 
          <td width="5%" align="center" height="23" <%=tColor%> class=tdc1>状态</td>
          <td width="5%" align="center" <%=tColor%> class=tdc1>图标</td>
         
          <td <%=tColor%> class=tdc1>主题</td>
          <td align=center width="10%"<%=tColor%> class=tdc1>话题发起</td>
           <td align=center nowrap width="5%" <%=tColor%> class=tdc1>点击</td>
          <td align=center  nowrap width="5%" <%=tColor%> class=tdc1>回复</td>
          <td align=center width="25%" <%=tColor%> class=tdc1 >最后发表</td>
        </tr>
  
<form name=recycle action=adminrecycle.asp method=post>
<% 
 page=request.querystring("page")
  if page="" then  page=1
  pages = ""&t_page&""
set rs_topic = server.createobject("adodb.recordset") 
sql = "select l_id,t_count,t_content,t_replynum,t_id,t_jinhua,t_title,t_face,t_time,t_username,t_lasttime,t_lastusername,t_top,t_vote,t_lock from topic where t_lock=2 "
sql=sql&"order by t_top,t_lasttime desc"
rs_topic.open sql,conn,1,1
if not(rs_topic.BOF or rs_topic.EOF) then
rs_topic.pagesize = pages 
maxpagecount=rs_topic.pagecount
r=cint(rs_topic.RecordCount)'记录总数
rs_topic.absolutepage = page '当前页数
rcount=0

 %>

<% do while not rs_topic.eof and rcount <rs_topic.pagesize
'判断是否要分页
%> 
      <tr> 
          <td valign=MIDDLE align=center width="5%" bgcolor=<%=tcolor2%> class=tdc height=23>   <input type="checkbox" name=t_id value="<%=rs_topic("t_id")%>" 
                      </td>
          <TD  align=center valign=MIDDLE width="2%" bgcolor=<%=tcolor1%> 
 class=tdc>   <a href=topic.asp?l_id=<%=rs_topic("l_id")%>&t_id=<%=rs_topic("t_id")%>  target=_blank><img src=<%=rs_topic("t_face")%> alt="弹出新窗口显示"   border="0"></a></td>
  
          <TD  valign=middle bgcolor=<%=tcolor2%> onmouseover=this.bgColor='<%=tcolor1%>'; onmouseout=this.bgColor='<%=tcolor2%>';
 class=tdc> &nbsp;
          <% if rs_topic("t_top")="1" then %><B>置顶</b><% end if%> <% if rs_topic("t_jinhua")="1" then %><img src=image/jh.gif alt=精华><% end if%> <a href=topic.asp?l_id=<%=rs_topic("l_id")%>&t_id=<%=rs_topic("t_id")%> title="主题：<%=HTMLEncode(rs_topic("t_title"))%>&#13;&#10;观看：<%=rs_topic("t_count")%>次&#13;&#10;回复：<%=rs_topic("t_replynum")%>篇&#13;&#10;发起人：<%=rs_topic("t_username")%>&#13;&#10;最后回复：<%=rs_topic("t_lastusername")%>&#13;&#10;最后回复时间：<%=rs_topic("t_lasttime")%>&#13;&#10;主题内容大小：<%=len(rs_topic("t_content"))%>字节" ><%=left(HTMLEncode(rs_topic("t_title")),25)%> </a> 
          
          

                        
          </td>
          <td  valign=MIDDLE bgcolor=<%=tcolor1%> 
 class=tdc align=center width="10%" ><a href=viewuser.asp?username=<%=rs_topic("t_username")%> target=_blank><%=rs_topic("t_username")%></a>　</td>
                  <td nowrap bgcolor=<%=tcolor2%> 
 class=tdc align=center valign=MIDDLE width="5%" ><%=rs_topic("t_count")%>　</td>
          <td align=center bgcolor=<%=tcolor1%> 
 class=tdc width="5%"  ><%=rs_topic("t_replynum")%>　</td>
          <td  bgcolor=<%=tcolor2%> 
 class=tdc valign=MIDDLE width="25%"  align=center><a href=viewuser.asp?username=<%=rs_topic("t_lastusername")%> target=_blank><%=rs_topic("t_lastusername")%></a>|<%=rs_topic("t_lasttime")%>
          </td>
        </tr>
  <% 

rs_topic.MoveNext 
rcount=rcount+1
loop 
%> 
<tr  align="left" height=23>   
            <td colspan="5" bgcolor=<%=tColor2%> class=tdc > 
          
            
            
         <%
            if maxpagecount="" then maxpagecount=1
            if r="" then r=0
pagestart=page-5
pageend=page+5
if pagestart<1 then pagestart=1
if pageend>maxpagecount then pageend=maxpagecount
response.write(" [ ")
if maxpagecount > 6 then Response.Write ("<a href=?page=1>1</a> ... ")
for i=pagestart to pageend
if i<>int(page) then
Response.Write (" <a href=?page="&i&">" & i & "</a> ")
else
Response.Write ("<b>"&i&"</b> ")
end if
next
if maxpagecount > page +5 then Response.Write( " ... <a href=?page="&maxpagecount&">"&maxpagecount&"</a>")
response.write(" ] ")
response.write("..页次:"&page&"/"&maxpagecount&"页   每页:"&pages&" 回收数:"&r&" </td> ")%> 　<td colspan="2" bgcolor=<%=tColor2%> class=tdc ><%if issupermaster then%>
<input type=submit name=action onclick="{if(confirm('确定还原选定的纪录吗?')){this.document.recycle.submit();return true;}return false;}" value=还原 class=bdtj>&nbsp;<input type=submit name=action onclick="{if(confirm('确定删除选定的纪录吗?')){this.document.recycle.submit();return true;}return false;}" value=删除 class=bdtj>&nbsp;<input type=submit name=action onclick="{if(confirm('确定清除回收站所有的纪录吗?')){this.document.recycle.submit();return true;}return false;}" value=清空回收站 class=bdtj><%end if%></td> 
</tr></form>
    <%else%>
     <tr  align="center" height=23> 
            <td colspan="7" bgcolor=<%=tColor2%> class=tdc >暂无删除主题</td></tr>

<%
end if
rs_topic.close 
set rs_topic=nothing
%>

      </table>
    </td>
  </tr>
</table>

  </center>
<!--#include file="bq.asp" -->