<!-- #include file="../Inc.asp" -->
<!-- #include file="../ydzq.asp" -->
<!-- #include file="conn.asp" -->
<%
Call Head()
call zonecard(zonenamee,"left")

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>"
Response.Write "|<a href=""index_ry.asp?uid="&uid&"&amp;sid="&sid&"&amp;saytk="&saytk&""">应用</a>"
response.write zonepost("moob_add.asp?sid="&sid&"&amp;saytk="&saytk&"")&_
               "<br/><input type=""titt"" name=""titt"" title=""输入内容"" value=""发表你最想说的话"" maxlength=""300""/>"
if saytk=>2 then
Response.Write "<input type=""submit"" value=""发表""/></form><br/>"
else
response.write "<anchor title=""确定"">发表"&_
               "<go method=""post"" href=""moob_add.asp?sid="&sid&"&amp;saytk="&saytk&""">"&_
               "<postfield name=""titt"" value=""$(titt)""/>"&_
               "</go></anchor><br/>"
end if
Dim M_zonedt_my
M_zonedt_my=conn.execute("Select count(ID) from [zonedt_my] where yid=0 and gid="&myid)(0)
Response.write "<a href='zonedt_my.asp?sid="&sid&"&amp;saytk="&saytk&"'>我的空间动态"
if M_zonedt_my<>0 then
Response.write "(+"&M_zonedt_my&")"
end if

response.write"</a>."&chr(13)
response.write "<a href=""/bbs/mymsg.asp?sid="&sid&"&amp;saytk="&saytk&""">消息</a>"
response.write "<br/><a href=""blog_add.asp?sid="&sid&"&amp;saytk="&saytk&""">写日志</a>."
response.write "<a href=""/bbs/myphoto.asp?sid="&sid&"&amp;saytk="&saytk&""">传照片</a>."
response.write "<a href=""/bbs/game/?sid="&sid&"&amp;saytk="&saytk&""">玩游戏</a>"
Response.write "<br/>【好友动态】<br/>"
'================================

dim rs2,fdid
set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open"select * from myfriend where cid="&myid&" order by id desc",conn,1,1
if rs2.eof Then
   Response.write "暂无好友动态！！<br/>"
   else

a=1

do while ((not rs2.EOF) and a <=10)

set rs3=Server.CreateObject("ADODB.Recordset")
rs3.open"select id,rc,xcid,htm,fgid,rjid,txt from frzonedt where fgid="&rs2("did")&" order by htm desc",conn,1,1
if not rs3.eof then

dim k
k=rs3.recordcount
i=1
do while ((not rs3.EOF) and i <=cint(review))

response.write ubb3(rs3("txt"))&""
if rs3("rc")=1 then
dim rsrj,rjid,rjtxt,rjtit,rjtm,rjhc,uidd
set rsrj=Server.CreateObject("ADODB.Recordset")
rsrj.open"select * from [zonerj] where rc=0 and [ID]="&rs3("rjid")&" order by tm desc",conn,1,1
rjid=rsrj("id")
rjtit=rsrj("tit")
rjtm=rsrj("tm")
rjhc=rsrj("hc")
uidd=rsrj("uid")
rjtxt=left(rsrj("txt"),50)
if len(rsrj("txt"))>50 then
rjtxt=rjtxt+"..."
End if
rsrj.close
set rsrj=nothing
response.write "《"&UBB(rjtit)&"》<br/>"&_
               ""&UBB2(rjtxt)&"<br/>["
               
response.write "" &date_gametalk(rjtm) & ""
               
response.write "前]<br/><a href=""/bbs/blog/blog_view.asp?ID="&rjid&"&amp;uid="&uidd&"&amp;sid="&sid&"&amp;saytk="&saytk&""">评论("&UBB(rjhc)&")</a><br/>"
else
Dim rsxc,xcid,xctit,xctm,xcrc,uidf
set rsxc=Server.CreateObject("ADODB.Recordset")
rsxc.open"select * from zoness where id="&rs3("xcid"),conn,1,1
xcid=rsxc("id")
xctit=rsxc("tit")
xctm=rsxc("tm")
xcrc=rsxc("rc")
uidf=rsxc("uid")
rsxc.close
set rsxc=nothing
response.write "更新了心情:"&UBB(xctit)&"<br/>["
               
response.write "" & date_gametalk(xctm) & ""
               
response.write "前]<br/><a href=""/bbs/blog/moob_view.asp?ID="&xcid&"&amp;uid="&uidf&"&amp;sid="&sid&"&amp;saytk="&saytk&""">评论("&UBB(xcrc)&")</a><br/>"
end if
rs3.Movenext
k=k-1
i=i+1
Loop
end if


rs3.close
set rs3=nothing
rs2.Movenext

a=a+1
Loop
response.write"<a href='frzonedt_list.asp?sid="&sid&"'>查看更多>></a><br/>"
End if
rs2.close
set rs2=Nothing


Response.write "【最近访客】<br/>"
set rs6=Server.CreateObject("ADODB.Recordset")
  sql="select * from zonedt where fid=" & uid & " order by tm desc"
  rs6.open sql,conn,1,3
if rs6.eof then
Response.write "暂无访客"
else
For i=1 to 10
Response.write "<a href='index.asp?uid="&rs6("ids")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"& rs6("me") & "</a>."
if i=10 then Response.write "<a href='index.asp?uid="&rs6("ids")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"& rs6("me") & "</a>"
rs6.Movenext
if rs6.EOF then Exit for
 Next
end if
response.write"<br/>"
rs6.close
Set rs6= Nothing
conn.close
set conn=nothing
call zonelast()
call headsay()
%>