<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%call head()
call zonecard(zonenamee,"left")
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?sid="&sid&"&amp;saytk="&saytk&""">主页</a>|"&_
               "<a href='blog.asp?sid="&sid&"&amp;saytk="&saytk&"'>日志</a>|"&_
               "<a href='user_info.asp?sid="&sid&"&amp;saytk="&saytk&"'>个人档</a><br/>"&_
               "【日志列表】"
if myid=clng(uid) then
response.write "<a href=""blog_add.asp?sid="&sid&"&amp;saytk="&saytk&""">写日志</a>"
end if
response.write "<br/>"
Dim zonerjf
zonerjf=conn.execute("Select count(ID) from [zonerj] where uid="&uID&"")(0)
response.write "+全部日志("&zonerjf&")<br/>"
response.write "<a href=""fladd.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">添加日志分类</a><br/>"

set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zonerjfl] where userid="&uid&" order by ID desc",conn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10					
	Dim Count,page,pagecount,gopage,parent			
	gopage="blog_fl.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
Dim zonerjfla
zonerjfla=conn.execute("Select count(ID) from [zonerj] where yc='"&rs("id")&"'")(0)
response.write "-<a href='blog.asp?cat="&rs("id")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&_
               ""&UBB(rs("zonerjflName"))&"("&zonerjfla&")</a><br/>"
rs.moveNext							
	Next
	call zone_Page(pagecount,page,"blog_fl.asp?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 zonexml()


'================



Function zone()

call zonecard(zonenamee,"left")
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?sid="&sid&"&amp;saytk="&saytk&""">主页</a>|"&_
               "<a href='blog.asp?sid="&sid&"&amp;saytk="&saytk&"'>日志</a>|"&_
               "<a href='user_info.asp?sid="&sid&"&amp;saytk="&saytk&"'>个人档</a><br/>"&_
               "【日志列表】"
if myid=clng(uid) then
response.write "<a href=""blog_add.asp?sid="&sid&"&amp;saytk="&saytk&""">写日志</a>"
end if
response.write "<br/>"
Dim zonerjf
zonerjf=conn.execute("Select count(ID) from [zonerj] where uid="&uID&"")(0)
response.write "+全部日志("&zonerjf&")<br/>"
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zonerjfl] where userid="&uid&" order by ID desc",conn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10					
	Dim Count,page,pagecount,gopage,parent			
	gopage="blog_fl.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
Dim zonerjfla
zonerjfla=conn.execute("Select count(ID) from [zonerj] where yc='"&rs("id")&"'")(0)
response.write "-<a href='blog.asp?cat="&rs("id")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&_
               ""&UBB(rs("zonerjflName"))&"("&zonerjfla&")</a><br/>"
rs.moveNext							
	Next
	call zone_Page(pagecount,page,"blog_fl.asp?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()

End Function
call headsay()
%>