<!--#include file="inc.asp"-->
<!--#include file="ydzq.asp"-->
<!--#include file="../inc/char.asp"-->

<%
response.write"<card title=""我的家园-听我的!!""><p>"
'response.write "<anchor>返回上级<prev/></anchor><br/>"
%>
<!--#include file="sy1.asp"-->
<%
call bbslbtxt()
dim did1,rs11
set rs11=server.createobject("adodb.recordset")
rs11.open"select * from myfriend where cid="&myid&" order by id desc",conn,1,1
did1=rs11("did")
rs11.close
set rs11=nothing

dim id,about,yd_name,photoview,sex,age,regtime,overtime,ftsl,hfsl,city,sr,ids,xuan1,newmyjb,userkeys,userskey,newdatainfo,sjhmnum,dzt,dname

set rs=server.createobject("adodb.recordset")
rs.open"select * from [users] where [id]="&myid,conn,1,1
if rs.eof then
 call error("没有此会员！")
  end if
about=rs("about")
yd_name=rs("name")
sjhmnum=rs("sjhm")
photoview=rs("photo")
sex=rs("sex")
regtime=rs("regtime")
overtime=rs("tjj")
city=rs("city")
sr=rs("sr")
age=rs("age")
ids=rs("id")
userkeys=rs("keys")
userskey=rs("skey")
xuan1=rs("xuan")
newmyjb=rs("myjb")
newdatainfo=rs("datainfo")
dzt=rs("dzt")
dname=rs("dname")
sex=clng(sex)
call grdtmsg()
response.write"<br/>"&yd_name&""
response.write "(<img src=""/images/2.gif"" alt=""2""/><img src=""/images/h.gif"" alt=""h""/>)<br/>"

response.write "<a href=""/bbs/uinfo.asp?sid="&sid&"&amp;saytk="&saytk&""">等级</a>:"&getlvl(newmyjy)&" "
response.write "<a href=""/bbs/bank.asp?sid="&sid&"&amp;saytk="&saytk&""">"&getcent&"</a>:"&newmyjb&" "
response.write "<a href=""/bbs/mymsg.asp?sid="&sid&"&amp;saytk="&saytk&""">家信</a>:"


if newguest > 0 then
response.write ""&newguest&""
else
response.write "0"
END IF
response.write "<br/>"

dim myf1,myf2
    myf1=conn.execute("Select count(ID) from online where userid="&did1)(0)
    myf2=conn.execute("Select count(ID) from myfriend where cid="&myid)(0)
response.write "<a href=""/bbs/myfriend.asp?sid="&sid&"&amp;saytk="&saytk&""">好友</a>:"
if myf1=0 then
response.write "0/"
else
response.write ""&myf1&"/"
end if
if myf2=0 then
response.write "0 "
else
response.write ""&myf2&" "
end if


response.write "  <a href=""/bbs/uinfo.asp?sid="&sid&"&amp;saytk="&saytk&""">成就</a>:"
response.write ""&getHandle(newmyjy)&"<br/>"

Response.Write "<a href='/bbs/zone/moob_list.asp?sid="&sid&"'>心情</a>:"

dim rs12
set Rs12=Server.CreateObject("ADODB.Recordset")
Rs12.open"select top 5 * from zoness where uid="&myid&" order by id desc",conn,1,1
if Rs12.eof then

Response.Write "暂无!"
else

Response.Write ""&left(UBB(Rs12("tit")),12)&"..<br/>"

end if
Rs12.close
set Rs12=nothing
zonepost("zone/moob_add.asp?uid="&myid&"&amp;sid="&sid&"")
response.write"<input type=""titt"" name=""titt"" title=""输入内容"" value="""" maxlength=""300""/>"

Response.Write "<anchor title=""确定"">更新"&_
               "<go method=""post"" href=""zone/moob_add.asp?uid="&myid&"&amp;sid="&sid&""">"&_
               "<postfield name=""titt"" value=""$(titt)""/>"&_
               "</go></anchor><br/>"

Response.Write "<a href='/bbs/zone/moob_list.asp?sid="&sid&"'>我的说说</a>."
Response.Write "<a href='/bbs/zone/frzonedt_list.asp?sid="&sid&"'>好友心情</a><br/><br/>"

response.write"【<a href=""/bbs/game/?sid="&sid&""">游戏大厅(38)</a>】"
response.write"<br/>最火最热游戏推荐:<br/>"

Response.Write "<a href='/bbs/pkjd/index.asp?sid="&sid&"'>疯狂石头</a>|<a href='/bbs/words/index.asp?sid="&sid&"'>吹牛大王</a><br/><a href='/bbs/game/dx.asp?sid="&sid&"'>猜点数字</a>|<a href='/bbs/game/49.asp?sid="&sid&"'>四九选一</a><br/><a href='/bbs/game/jiandao.asp?sid="&sid&"'>剪刀石头</a>|<a href='/bbs/game/daxiao.asp?sid="&sid&"'>买大买小</a><br/><a href='/bbs/game/saima.asp?sid="&sid&"'>赛马游戏</a>|<a href='/bbs/game/suanmin-1.asp?sid="&sid&"'>电脑算命</a><br/>"
response.write"<br/>【新鲜事(2)】<br/>"
call hydtmsg()
response.write"<br/>【留言板】<br/>"


set Rs=Server.CreateObject("ADODB.Recordset")
Rs.open"select * from zonely where usid="&myid&" order by id desc",conn,1,1
If Rs.eof	Then
if myid<>clng(uid) then
Response.write "暂无留言<br/>"
else
Response.write "快快去给你的空间增加人气<br/>"
end if
else
For i=1 to 1
Response.write "<a href=""index.asp?uid="&Rs("fid")&"&amp;sid="&sid&""">"&usb(Rs("zonelyName"))&"</a>:"&Rs("zonecontent")&"<br/>[" & fordate(Rs("tm")) & "]<br/>"
Rs.Movenext
if Rs.EOF then Exit for
 Next
end if
Rs.close
Set Rs= Nothing

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

conn.close
set conn=nothing
response.write"<br/><a href=""show1.asp?sid="&sid&"&amp;saytk="&saytk&""">旧版家园</a>>>"
response.write"<br/>设置: <a href=""kat.asp?sid="&sid&"&amp;saytk="&saytk&""">头像</a>.<a href=""checkshow.asp?sid="&sid&"&amp;saytk="&saytk&""">资料</a>.<a href=""passedit.asp?sid="&sid&"&amp;saytk="&saytk&""">密码</a><br/>"&chr(13)
response.write"安全: <a href=""sid.asp?sid="&sid&"&amp;saytk="&saytk&""">标识</a>.<a href=""login.asp"">用户</a>"&chr(13)
conn.close
set conn=nothing
%>

<!--#include file="3gsaytk.asp"-->
</p></card>
</wml>