<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
call head()
Call saycarda("帖子回收")
%>


<%
set rs=Server.CreateObject("ADODB.Recordset")
rs.Open "select * from sell where yc=1 order by retime desc",conn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10				
	Dim Count,page,pagecount,gopage			
	gopage="adminsell.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;"
	Count=rs.recordcount	
	page=int(request.QueryString ("page"))
	if page<=0 or page="" then page=1		
	pagecount=(count+pagesize-1)\pagesize	
        if page>pagecount then page=pagecount
	rs.move(pagesize*(page-1))
dim ggss
	For i=1 To PageSize     						
	If rs.eof Then Exit For	
response.write"[<a href=""adminget.asp?action=acok&amp;ids="&rs("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">显</a>]"
response.write "<a href='adminsellmo.asp?tid="&rs("id")&"&amp;bbsid="&rs("bbsid")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>"
response.write ""&i+(page-1)*PageSize&"."
response.write ubb(rs("name"))&"</a><br/>"
response.write "<small>("&ubb(rs("fname"))&",回帖"
dim reCount
reCount=conn.execute("Select count(ID) from [relist] where tid="&rs("id"))(0)
if reCount<=0 then
response.write reCount
else
response.write "<a href=""relist.asp?tid="&rs("id")&"&amp;bbsid="&rs("bbsid")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&reCount&"</a>"
end if
response.write"楼)</small><br/>"

rs.moveNext
 	Next
	if page-pagecount<0 then response.write "<a href="""&gopage&"page="&page+1&""">下页</a>"
	if page>1 then response.write "<a href="""&gopage&"page="&page-1&""">上页</a>"
	if pagecount>1 then response.write "<br/><b>"&page&"</b>/"&pagecount&"页<input name=""page"" format=""*N"" value="""&page&""" type=""text"" maxlength=""5"" emptyok=""true"" size=""3""/><a href="""&gopage&"page=$(page)"">跳转</a><br/>"
Else
response.write "暂时没有相关记录！<br/>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
response.write"<a href=""topicdel.asp?action=ycdel&amp;saytk="&saytk&"&amp;sid="&sid&""">[清空回收]</a>"
%>
<!--#include file="fanhui.asp"-->
<%Call Headsay()%>