<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%
Call Head()
call zonecard(""&username&"的说说","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/>"
if myid<>clng(uid) then
response.write "【<a href=""index.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">"&username&"</a>说:】<br/>"
else
response.write "【我的说说】<br/>"&_
               zonepost("moob_add.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"")&_
               "<input name=""titt"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""20""/><br/>"
if v=2 then
Response.Write "<input type=""submit"" value=""更新""/></form><br/>"
else
response.write "<anchor>更新"&_
               "<go href=""moob_add.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""" method=""post"" accept-charset=""utf-8"">"&_
               "<postfield name=""titt"" value=""$(titt)""/>"&_
               "</go></anchor><br/>"
end if
end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [zoness] where uid="&suid&" order by [ID] desc",conn,1,1
If Not rs.eof	Then
	Dim PageSize,i
	PageSize=10					
	Dim Count,page,pagecount,gopage,parent			
	gopage="moob_list.asp?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&"."&_
               ""&UBB(rs("tit"))&"<br/>"&_
               "[" & fordate(rs("tm")) & "]<br/>"&_
               "<a href='moob_view.asp?ID="&rs("ID")&"&amp;uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&_
               "评论("&UBB(rs("rc"))&")</a><br/>"
rs.moveNext							
	Next
	call zone_Page(pagecount,page,"moob_list.asp?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()
%>