<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%
call Head()
call zonecard(zonenamee,"left")
dim cat
cat=request.QueryString("cat")
if myid=clng(uid) then
response.write "<a href=""index_gl.asp?sid="&sid&"&amp;saytk="&saytk&""">个人中心</a>|"
end if
response.write "<a href=""index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">主页</a>|"&_
               "日志"
Response.Write "|<a href=""index_ry.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">应用</a><br/>"
  if cat <>"" then
set rs5=Server.CreateObject("ADODB.Recordset")
rs5.open"select zonerjflName from [zonerjfl] where id="&cat,conn,1,1
zonerjflNam=rs5("zonerjflName")
rs5.close
set rs5=nothing
  Response.write "<a href=""blog_fl.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">分类</a>>"&zonerjflNam&"<br/>"
  else
response.write "<br/>【日志列表."&_
               "<a href=""blog_fl.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">分类</a>】"
if myid=clng(uid) then
response.write "<a href=""blog_add.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">写日志</a>"
end if
response.write "<br/>"
  end if
set rs=Server.CreateObject("ADODB.Recordset")
  if cat <>"" then
rs.open"select * from zonerj where rc=0 and yc="&cat&" order by ID desc",conn,1,1
else
rs.open"select * from [zonerj] where rc=0 and uid="&uid&" order by ID desc",conn,1,1
end if
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10					
	Dim Count,page,pagecount,gopage,parent			
	gopage="blog.asp?cat="&cat&"&amp;uid="&uid&"&amp;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 ""&i+(page-1)*PageSize&"."&_
               "<a href='blog_view.asp?ID="&rs("ID")&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&_
               ""&UBB(rs("tit"))&"</a>"&_
               "("&UBB(rs("hc"))&")<br/>"&_
               "[" & fordate(rs("tm")) & "]<br/>"
rs.moveNext							
	Next
	call zone_Page(pagecount,page,"blog.asp?cat="&cat&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"",count,"Page")
Else
response.write "暂时公开日志！<br/>"
end if
rs.close
set rs=nothing
conn.close
set conn=nothing
call zoneLast()
call headsay()
%>