<!-- #include file="conn.asp" -->
<%
call Head()
call saycardd("日记管理")

gesttxt="where rc=0 order by ID desc"


set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from zonerj "&gesttxt,conn,1,1


If Not rs.eof	Then
	Dim PageSize,i
	If saytk>1 Then
	PageSize=30
	else
	PageSize=10	
	End if
	Dim Count,page,pagecount,gopage,parent			
	gopage="blog.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;"
	Count=rs.recordcount
  page=clng(request("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))
if pagecount>1 then
end if
	For i=1 To PageSize       						
	If rs.eof Then Exit For

response.write"[<a href=""editbbs.asp?id="&rs("ID")&"&amp;sid="&sid&"&amp;saytk="&saytk&"&amp;act=2"">编</a>"&_
              "|<a href='blogrj_del.asp?id="&rs("ID")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>删</a>] "


response.write ""&i+(page-1)*PageSize&".<b>"
response.write unames(rs("uid"))
response.write "</b>:<a href='blog_view.asp?ID="&rs("ID")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&_
               ""&UBB(rs("tit"))&"</a>"&_
               "("&UBB(rs("hc"))&")<br/>"
rs.moveNext							
	Next
	call zone_Page(pagecount,page,"blog.asp?sid="&sid&"&amp;saytk="&saytk&"",count,"Page")
Else
response.write "暂时日志！<br/>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
%><!--#include file="fanhui.asp"--><%
call headsay()
%>