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

<%
call head()
if myid<>0 then
mz="[url=/bbs/uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"进入了(url=/bbs/show.asp?saytk="&saytk&"&sid=[sid])TA的个人地盘(/url)')")


Call saycarda("我的地盘")
%>
<!--#include file="sy1.asp"-->
<%if zqfjse = 1 then

call bbslbtxt()

end if
dim id,about,YD_name,photoview,sex,age,regtime,overtime,ftsl,hfsl,City,sr,ids,xuan1,newmyjb,userkeys,userskey,newdatainfo,sjhmnum,newvipface,dzt,dname,ttvv,newrmbcent,rc,newmyml,newmych,newmytl

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")
newvipface=rs("vipface")
xuan1=rs("xuan")
newmyjb=rs("myjb")
newdatainfo=rs("datainfo")
sex=clng(sex)
dzt=rs("dzt")
dname=rs("dname")
ttvv=rs("ttvv")
zoneid=rs("zoneid")
newrmbcent=rs("rmbcent")
rc=rs("rc")
newmytl=rs("mytl")
newmych=rs("mych")
newmyml=rs("myml")
logoo=rs("logo")




if (myjb<0 or myml<0 or mytl<0 or mych<0) and 0=<ttvv<2 then
conn.execute("update users set ttvv=2 where id="&myid&"")
end if
if myjb>=0 and myml>=0 and mytl>=0 and mych>=0 and ttvv=2 then
conn.execute("update users set ttvv=1 where id="&myid&"")
end if

Call wenhouyu()
if ttvv=3 then
response.write"<br/>您的房门(小屋和资料)已被系统彻底锁死,有疑问请联系社区管理员"
else
if ttvv=2 then
response.write"<br/>由于您的"&getcent&"/体力/魅力/才华不在正常状态,网站机器人已经为您的房门自动上锁,您只要将您的属性恢复到正常状态,机器人会自动为您解锁,有疑问请联系社区管理员<br/>"
response.write""&getcent&":"&myjb&"体力:"&mytl&"<br/>才华:"&mych&"魅力:"&myml&"<br/>"
response.write"您可以在社区发帖,回帖,打工,上班,上学等等来增加您的各项属性"
else

response.write"<br/><a href=""/bbs/xy/?saytk="&saytk&"&amp;sid="&sid&""">许愿</a>|"
response.write"<a href=""mymsg.asp?saytk="&saytk&"&amp;sid="&sid&""">信箱</a>|"

response.write"<a href=""qian.asp?saytk="&saytk&"&amp;sid="&sid&""">签到</a>|"


response.write"<a href=""myfriend.asp?saytk="&saytk&"&amp;sid="&sid&""">好友</a>|"

response.write"<a href=""myhait.asp?saytk="&saytk&"&amp;sid="&sid&""">黑名</a><br/>"


response.write"<a href=""/bbs/cw/?saytk="&saytk&"&amp;sid="&sid&""">宠物</a>|"
response.write"<a href=""jia/hua.asp?saytk="&saytk&"&amp;sid="&sid&""">花园</a>|"

response.write"<a href=""jia/dan.asp?saytk="&saytk&"&amp;sid="&sid&""">鸡窝</a>|"


response.write"<a href='photo.asp?ids="&myid&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>相册</a>|"

response.write"<a href=""ads.asp?saytk="&saytk&"&amp;sid="&sid&""">赚币</a><br/>"
If photoview<>"" then
Response.write "<img src='"&photoview&"' alt='.' />"
End if
response.write"<br/>ID("&MYID&")<a href=""uinfo.asp?saytk="&saytk&"&amp;sid="&sid&""">"&YD_name&"</a>|"
response.write"<a href=""uin.asp?saytk="&saytk&"&amp;sid="&sid&""">资料</a>"
response.write"<br/>-----------------"


if len(photoview)>10 then
'Response.write "<br/><img src="""&ubb(photoview)&""" alt=""wap.sayou.tk""/><br/>"
else
'Response.write "<br/><img src=""/img/photo.gif"" alt=""wap.sayou.tk""/><br/>"
end if


If keys=1 then
response.write"<br/>你的职位是:"&saybbsgl&"<img src="""&adminlogo&""" alt=""管理员""/><br/>"
End if
If keys=2 then
response.write"<br/>你的职位是:"&saybbsgl1&"<br/>"
End if
If keys=3 then
response.write"<br/>你的职位是:"&saybbsgl2&"<br/>"
End If
If keys=4 then
response.write"<br/>你的职位是:"&saybbsgl3&"<br/>"
End If
If keys=5 then
response.write"<br/>你的职位是:"&saybbsgl4&"<br/>"
End If
If keys=6 then
response.write"<br/>你的职位是:"&saybbsgl5&"<br/>"
End If
If keys=7 then
response.write"<br/>你的职位是:"&saybbsgl6&"<br/>"
End If

if keys=1 or keys=2 Then

response.write"-----------------<br/>"
response.write"<a href=""/bbs/adminbbs/adminboss.asp?saytk="&saytk&"&amp;sid="&sid&""">任命职位</a>"

response.write"|<a href=""/bbs/adminbbs/adminbbsboss.asp?saytk="&saytk&"&amp;sid="&sid&""">管理撤职</a>"

response.write"<br/>-----------------<br/>"
end if

If keys=1 then
response.write"清空:<a href=""shanchuguangbo.asp?saytk="&saytk&"&amp;sid="&sid&""">广播</a>"
response.write"|<a href=""shanchudongtai.asp?saytk="&saytk&"&amp;sid="&sid&""">动态</a>"
response.write"|<a href=""shanchuxy.asp?saytk="&saytk&"&amp;sid="&sid&""">许愿</a>"
response.write"|<a href=""shanchubaifang.asp?saytk="&saytk&"&amp;sid="&sid&""">拜访</a>"
response.write"<br/><a href=""scblog.asp?saytk="&saytk&"&amp;sid="&sid&""">清空博客动态</a><br/>"
response.write"<a href=""/admin/?saytk="&saytk&"&amp;sid="&sid&""">登陆网站管理后台</a>"
response.write"<br/>-----------------"
End if


Dim M_myreadnum
M_myreadnum=conn.execute("Select count(ID) from [usbook] where usid="&myid)(0)



response.write "<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"我的城市:"&city&""

response.write "<br/>经验："&newmyjy&""
response.write " 体力："&newmytl&""
response.write "<br/>才华："&newmych&""
response.write " 魅力："&newmyml&""
response.write "<br/>人气："&RC&" "
response.write "手机："&ubb(sjhmnum)&""
if merry<>0 then
response.write "<br/>配偶："
set rs1=server.CreateObject("ADODB.RecordSet")
 rs1.Open "select name from Users where id="&merry,conn,1,1
if not rs1.eof then
  Response.write "<a href=""uinfo.asp?id="&merry&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&rs1("name")&"</a>"
end if
rs1.close
set rs1=nothing
else
if myid<>clng(id) then
response.write "<br/>配偶:未婚 <a href=""marry/marry.asp?saytk="&saytk&"&amp;sid="&sid&"&amp;ids="&myid&""">结婚</a>"
else
response.write "<br/>配偶:未婚"
end if
end if
response.write "<br/>年龄："&ubb(age)&""
response.write "生日："&ubb(sr)&""




response.write"<br/>-----------------<br/>个人设置:<br/><a href='alist.asp?tid="&tid&"&amp;ids="&myid&"&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;TP=1'>帖子</a>|"

response.write"<a href='alist.asp?tid="&tid&"&amp;ids="&myid&"&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;TP=2'>回帖</a>|"

response.write"<a href=""shuxin.asp?saytk="&saytk&"&amp;sid="&sid&""">属性</a>|"

response.write"<a href=""mybook.asp?saytk="&saytk&"&amp;sid="&sid&""">收藏</a><br/>"

response.write"<a href=""feel.asp?saytk="&saytk&"&amp;sid="&sid&""">个性</a>|"

response.write"<a href=""kat.asp?saytk="&saytk&"&amp;sid="&sid&""">头像</a>|"

response.write"<a href=""guaji.asp?saytk="&saytk&"&amp;sid="&sid&""">挂机</a>|"

response.write"<a href=""game/?saytk="&saytk&"&amp;sid="&sid&""">游戏</a><br/>"

if ttvv=1 then
response.write"<a href=""guanbi.asp?saytk="&saytk&"&amp;sid="&sid&""">关门</a>|"
else
response.write"<a href=""guanbi.asp?saytk="&saytk&"&amp;sid="&sid&""">开门</a>|"
end if




response.write"<a href=""vipgm.asp?saytk="&saytk&"&amp;sid="&sid&""">贵宾</a>|"

response.write"<a href=""passedit.asp?saytk="&saytk&"&amp;sid="&sid&""">改密</a>|"
response.write"<a href=""checkshow.asp?saytk="&saytk&"&amp;sid="&sid&""">资料</a><br/>"
response.write"<a href=""sid.asp?saytk="&saytk&"&amp;sid="&sid&""">标识</a>|"
response.write"<a href=""login.asp?saytk="&saytk&""">换号</a>|"

response.write"<a href=""/bbs/grsmrz.asp?saytk="&saytk&"&amp;sid="&sid&""">实名</a>|"
response.write "<a href=""jia/index.asp?saytk="&saytk&"&amp;sid="&sid&""">家园</a><br/>"
response.write"<a href=""/bbs/bankCl.asp?saytk="&saytk&"&amp;sid="&sid&""">银行</a>|"
response.write"<a href=""/bbs/DJ.asp?saytk="&saytk&"&amp;sid="&sid&""">名片</a>|"

Response.write "<a href=""xunzhang.asp?saytk="&saytk&"&amp;sid="&sid&""">勋章</a>|"
Response.write "<a href=""paycent.asp?saytk="&saytk&"&amp;sid="&sid&""">兑换</a>"

response.write"<br/>【我的家族】"

dim rs11,ydbbsname
set rs11=server.CreateObject("ADODB.RecordSet")
 rs11.Open "select * from ydbbs where id= "&zoneid,conn,1,1
if rs11.eof then
response.write "<br/>暂未加入任何家族！"
else
ydbbsname=rs11("name")
response.write"<br/><a href='zoneall.asp?bbsid="&zoneid&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(ydbbsname)&"</a>"


dim zonenum1
    zonenum1=conn.execute("Select count(ID) from [users] where zoneid="&rs11("id"))(0)

  response.write"共<a href=""zoneman.asp?id="&rs11("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&zonenum1&"</a>人"

 response.write"(<a href=""zonefav.asp?action=out&amp;id="&rs11("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">退出</a>)"

if rs11("adminusid")=abs(ids) then
response.write "<br/>职位:<img src=""/img/zhuzhang.gif"" alt=""族长""/>族长"

end if

end if
rs11.close
set rs11=nothing

end if
end if
if myid=clng(id) then
if pz<>0 then
if cwsm<900 or cwrq<901 or cwqg<900 and myid=clng(id)then
response.write "你的宠物状态好像不是很好哦,赶紧去"
Response.write "<a href=""/bbs/cw/index.asp?saytk="&saytk&"&amp;sid="&sid&""">宠物森林</a>瞧瞧吧!"
else
end if
end if
end if


response.write "<br/>【空间留言板】"
response.write "<a href='myread.asp?ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>("&M_myreadnum&")</a><br/>最近访客:"

set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [baifang] where tid="&ids&" order by id desc"
rs.open sql,conn,1,1
If Not rs.eof	Then
	
Response.write "<a href=""uinfo.asp?id="&rs("tid")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&ubb2(rs("tx"))&"</a>"

end if
rs.close
set rs=nothing





Function fordatebook(riqi)
if IsDate(riqi) = True then
   fordatebook =""
  fordatebook = fordatebook&month(riqi) & "-"
  fordatebook = fordatebook&day(riqi)&""
end if
End Function


set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 1 * from [usbook] where usid="&ids&" order by num,id desc"
rs.open sql,conn,1,1
If Not rs.eof	Then
	
Response.write "<br/><a href=""uinfo.asp?id="&rs("fid")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&usb(rs("fname"))&"</a>"
Response.write "说:"&ubb3(rs("content"))&"("&fordatebook(rs("ftime"))&")"

else	
Response.write "<br/>暂时没有留言！"
end if

rs.close
set rs=nothing


conn.close
set conn=nothing
%>
<!--#include file="fanhui.asp"-->
<%
Call headsay()
%>