<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%Call Head()
call zonecard("我的空间动态","left")
if myid=clng(uid) then
response.write "<a href=""index_gl.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">个人中心</a>|"
end if
response.write "<a href=""index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">主页</a>|"&_
               "<a href='blog.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>日志</a>|"&_
               "<a href='user_info.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>个人档</a><br/>"&_
               "【我的空间动态】<br/>"
conn.Execute("update zonedt_my set yid=1 where gid="&myid)
set rs=Server.CreateObject("ADODB.Recordset")
  rs.Open "select * from zonedt_my where gid="&myid&" order by htm desc",conn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10					
	Dim Count,page,pagecount,gopage			
	gopage="zonedt_my.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))
	For i=1 To PageSize     						
	If rs.eof Then Exit For	
response.write ""&i+(page-1)*PageSize&"."&_
               usb(rs("txt"))&"<br/>"&_
               "[" & fordate(rs("htm"))& "]<br/>"
rs.moveNext
 	Next
	call zone_Page(pagecount,page,"zonedt_my.asp?sid="&sid&"&amp;saytk="&saytk&"",count,"Page")
Else
response.write "暂时没有新动态！<br/>"
end if
conn.close
set conn=nothing
call zonelast()
call headsay()
%>                          