<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->
<%call head()
dim id,about,YD_name,photoview,sex,age,regtime,overtime,ftsl,hfsl,City,sr,ids,xuan1,newmyjb,newmyjy,userkeys,userskey,newdatainfo,sjhmnum,zoneid1,merry,newrmbcent,rzzt,newmytl,newmych,newmyml,xm,sfz,dzt,dname,ppzone
id=usb(request("id"))
if id="" or IsNumeric(id) = False then
id=myid
  end if
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from [Users] where [id]="&id,conn,1,1
if rs.eof then
 Call Error("没有此会员！")
  end if
oo=rs("oo")
jia=rs("jia")
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")
ppzone=rs("ppzone")

userkeys=rs("keys")
userskey=rs("skey")
xuan1=rs("xuan")
newmyjb=rs("myjb")
newmytl=rs("mytl")
newmych=rs("mych")
newmyml=rs("myml")
newrmbcent=rs("rmbcent")
xm=rs("xm")
sfz=rs("sfz")
ttvv=rs("ttvv")
newbank=rs("bank")
newmyjy=rs("myjy")
newvipdj=rs("vipdj")
newvipface=rs("vipface")
newvipdate=rs("vipdate")
newdatainfo=rs("datainfo")
fxhaoma=rs("fxhaoma")
qqhaoma=rs("qqhaoma")
photozt=rs("photozt")
mm=rs("mm")
sidrs=rs("sid")
sex=clng(sex)
zoneid1=rs("zoneid")
merry=rs("merry")
cwsm=rs("cwsm")  
cwrq=rs("cwrq") 
cwxq=rs("cwxq") 
cwqg=rs("cwqg")  
cwzs=rs("cwzs")
dzt=rs("dzt")
dname=rs("dname")
pz=rs("cw")
RC=rs("RC")
rzzt=rs("rzzt")
Call saycarda(""&myni&"资料")

Dim M_myreadnum
M_myreadnum=conn.execute("Select count(ID) from [usbook] where usid="&id)(0)
if ttvv=0 and keys<>1 and vipdj<=0 and keys<>2 then
Response.write ""&ubb(YD_name)&"I D:"&ids&""
response.write "<br/>TA的房门已锁！VIP会员可使用强行开锁功能"
elseif ttvv=2 then
response.write "该用户房门(地盘和资料)已被系统彻底锁死"
else
%>
<!--#include file="sy1.asp"-->
<%If saytk>1 Then Response.write "<div style=""line-height:18px;padding:0 12px 3px 12px;color:#4F4F4F;"">"

Response.write ""&ubb(YD_name)&"(ID:"&ids&")"

response.write "/"&getLvl(newmyjy)&"/"

set rs1=server.CreateObject("ADODB.RecordSet")
If datesql=0 then
 rs1.Open "select ID from Users where tjj >= '"&DateAdd("n", lonline, Now())&"' and id="&ids,conn,1,1
 Else
 rs1.Open "select ID from Users where DATEDIFF('s', tjj, now())<60*60 and id="&ids,conn,1,1
 End if
if not rs1.eof then
response.write "在线<img src=""/img/on1.gif"" alt='在线'/><br/>"
else
response.write "离线<img src=""/img/off1.gif"" alt='离线'/><br/>"
end if
rs1.close
set rs1=nothing

   if newvipdj<>0 then
   Response.write "<img src=""/img/vip"&newvipdj&".gif"" alt='VIP"&newvipdj&"'/>"
   else
   Response.write "<img src=""/img/vip"&getvip(newmyjb+newbank,newmyjy)&".gif"" alt='VIP"&getvip(newmyjb+newbank,newmyjy)&"'/>"
   end if

response.write "/"
if sex=1 then 
response.write "男"
elseif sex=2 then 
response.write "女"
else
response.write "保密"
end if
response.write "/"&ubb(age)&"岁"
response.write "/地区:"
if city=" " then
response.write "未知"
else
response.write ""&ubb(City)&""
end if

response.write "/"&getHandle(newmyjy)&"<br/>"

if myid<>clng(id) then


Response.write ">>聊<a href=""msglist.asp?fid="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">内线</a>|"

response.write"<a href='/bbs/bank.asp?ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>转帐</a>|"
Response.write "<a href=""get.asp?action=h&amp;TP=1&amp;ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">黑名</a>|"&chr(13)


Response.write "<a href=""get.asp?action=f&amp;TP=1&amp;ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">加好友</a><br/>"

End if

response.write">>顶<a href='alist.asp?tid="&tid&"&amp;ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;TP=1'>贴子</a>|"


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

response.write"<a href='myphoto.asp?ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>相册</a>|"
response.write"<a href='myread.asp?ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>留言板("&M_myreadnum&")</a><br/>"


If id<>myid Then

response.write">>互动:<a href='/bbs/blog/?uid="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>踩空间</a>|"
response.write"<a href='/saytkcom/nn/?uid="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>挠挠TA</a><br/>"

End if

if myid<>clng(id) then

if ids=100 then 
response.write "<b>社区超级巡管</b><br/>"
end if
Else



response.write "您正在查看自己的空间<br/>"
response.write"<a href=""passedit.asp?saytk="&saytk&"&amp;sid="&sid&""">修改密码</a>|"&chr(13)
response.write"<a href=""checkshow.asp?saytk="&saytk&"&amp;sid="&sid&""">修改资料</a><br/>"&chr(13)
response.write"<a href=""sid.asp?saytk="&saytk&"&amp;sid="&sid&""">更换标识</a>|"&chr(13)
response.write"<a href=""login.asp"">重新登录</a><br/>"&chr(13)
response.write"<a href=""show.asp?saytk="&saytk&"&amp;sid="&sid&""">进入我的小屋>></a><br/>"&chr(13)

end if


if userkeys=1 then

response.write"职位:"&saybbsgl&"<img src="""&adminlogo&""" alt="".""/><br/>"
elseIf userkeys=2 then
response.write"职位:"&saybbsgl1&"<br/>"
elseIf userkeys=3 then
response.write"职位:"&saybbsgl2&"<br/>"
elseIf userkeys=4 then
response.write"职位:"&saybbsgl3&"<br/>"
elseIf userkeys=5 then
response.write"职位:"&saybbsgl4&"<br/>"
elseIf userkeys=6 then
response.write"职位:"&saybbsgl5&"<br/>"
elseIf userkeys=7 then
response.write"职位:"&saybbsgl6&"<br/>"

elseif userskey>0 then

dim rsb,ydname
set rsb=server.CreateObject("ADODB.RecordSet")
 rsb.Open "select name,adminusid from ydbbs where id= "&userskey,conn,1,1
if rsb.eof then
response.write "<img src=""/img/banzhu.gif"" alt=""版主""/>论坛版主"
else
ydname=rsb("name")
response.write"<img src=""/img/banzhu.gif"" alt=""版主""/>论坛版主<br/>管辖：<a href='board.asp?bbsid="&userskey&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&ydName&"</a>"
rsb.close
set rsb=nothing
end if
elseif newvipface>0 then
response.write"<img src=""/img/VIP.gif"" alt="".""/>VIP会员"
else
response.write"<img src=""/img/VIP.gif"" alt="".""/>普通会员"
end if
response.write "<br/>"

if len(photoview)>10 then
Response.write "<img src="""&ubb(photoview)&""" alt="".""/><br/>"
else
if sex=1 then
Response.write "<img src=""/img/boy.gif"" alt="".""/><br/>"
else
if sex=2 then
Response.write "<img src=""/img/girl.gif"" alt="".""/><br/>"
else
Response.write "<img src=""/img/photo.gif"" alt="".""/><br/>"
end if
end if
end if


if sex=1 then 
response.write "他"
elseif sex=2 then 
response.write "她"
else
response.write "TA"
end if

response.write "的简介:"&ubb(about)&"<br/>"


if sex=1 then 
response.write "他"
elseif sex=2 then 
response.write "她"
else
response.write "TA"
end if

response.write "的签名:"&ubb(newdatainfo)

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?Action=ok&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;ids="&clng(id)&""">追求TA</a>"
else
response.write "<br/>[配偶]：未婚"
end if
end if

response.write "<br/>["&zonene&"]：" 
dim rs1,ydbbsname
set rs1=server.CreateObject("ADODB.RecordSet")
 rs1.Open "select * from ydbbs where id= "&zoneid1,conn,1,1
if rs1.eof then
response.write "未加入"&zonene&"!!<a href=""zone.asp?saytk="&saytk&"&amp;sid="&sid&""">快加入</a>."
else
ydbbsname=rs1("name")
response.write"<a href='zoneall.asp?bbsid="&rs1("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>"&ubb(ydbbsname)&"</a>"

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

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


  response.write" <a href=""zonefav.asp?action=in&amp;id="&rs1("id")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">加入</a>"&chr(13)
 
if rs1("adminusid")=abs(ids) then
response.write " <img src=""/img/zhuzhang.gif"" alt="".""/>"&zonezz&""
end if
end if
rs1.close
set rs1=nothing


if clng(id)=myid then
response.write "<br/>[手机]："&ubb(sjhmnum)&"<br/>"
else
response.write "<br/>[手机]："&left(ubb(sjhmnum),7)&"****<br/>"
end if

response.write "[最后活动时间]："
response.write date_gametalk(ubb(overtime))
response.write "前<br/>"

response.write "<a href=""uin.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">更多TA的资料>></a><br/>"

'显星座信息


xz=left(ubb(sr),4)
if xz="" then
xz=""
elseif xz="1" then
xz="沁"
elseif xz="1gg1" then
xz="你"
end if
'response.write ""&xz&""

response.write "[店铺]:"

if dzt=2 then
response.write "<a href=""/shop/tdp.asp?id="&id&"&amp;pagegg=1&amp;saytk="&saytk&"&amp;sid="&sid&""">去"&dname&"逛逛</a>"



if clng(id)=myid then

response.write "<br/>[姓名]:"&ubb(xm)&""


response.write "<br/>[身份证]:"&ubb(sfz)&""

else

response.write "<br/>[姓名]:"&left(ubb(xm),1)&""


if sex=1 then 
response.write "先生"
elseif sex=2 then 
response.write "小姐"
else
response.write "某人"
end if

response.write "<br/>[身份证]:"&left(ubb(sfz),12)&"******"

end if
response.write "<br/>[状态]:"
if rzzt=2 then
Response.write "已审核<img src=""sm.gif"" alt='实名'/>"
else
Response.write "身份证未审核"

end if
else
response.write "未开通?<a href=""/shop/mykd.asp?saytk="&saytk&"&amp;sid="&sid&""">申请开店</a>"&chr(13)

end if

if jia<>"" then
response.write "<br/>[家园]:<a href=""jia/index.asp?saytk="&saytk&"&amp;sid="&sid&""">"&oo&"</a><br/>"&ubb2(jia)&"<br/>"
else
response.write "<br/>[家园]:露宿街头<a href=""jia/index.asp?saytk="&saytk&"&amp;sid="&sid&""">购房</a><br/>"
end if

if cwsm<1 or cwrq<1 then
Response.write "宠物已死亡!!!<br/>"
else
Response.write "[宠物品种]:"

if pz=0 then
response.write "没有"
else if pz=1 then
response.write "龙系>"
else if pz=2 then
response.write "精灵系>"
else if pz=3 then
response.write "鸟系>"
else if pz=4 then
response.write "猫系>"
else if pz=5 then
response.write "熊猫系>"
else if pz=6 then
response.write "青蛙系>"
else if pz=7 then
response.write "兔子系>"
end if
end if
end if
end if
end if
end if
end if
end if
if pz=0 then
response.write "领养宠物哦！"

Response.write "马上去<a href=""/bbs/cw/index.asp?saytk="&saytk&"&amp;sid="&sid&""">宠物森林</a>挑选！<br/>"&chr(13)

else
if pz=1 then
if cwsm+cwrq>60000 then
response.write "冰翼龙(顶级)<br/><img src='/bbs/cw/long/s11.gif' alt='.'/>"
else if cwsm+cwrq>30000 then
response.write "飞龙<br/><img src='/bbs/cw/long/s10.gif' alt='.'/>"
else if cwsm+cwrq>18000 then
response.write "进化兽人龙<br/><img src='/bbs/cw/long/s9.gif' alt='.'/>"
else if cwsm+cwrq>9999 then
response.write "兽人龙<br/><img src='/bbs/cw/long/s8.gif' alt='.'/>"

else if cwsm+cwrq>8999 then
response.write "战龙<br/><img src='/bbs/cw/long/s7.gif' alt='.'/>"
else if cwsm+cwrq>7999 then
response.write "独角龙<br/><img src='/bbs/cw/long/s6.gif' alt='.'/>"
else if cwsm+cwrq>6999 then
response.write "箭龙<br/><img src='/bbs/cw/long/s5.gif' alt='.'/>"
else if cwsm+cwrq>5999 then
response.write "冰龙<br/><img src='/bbs/cw/long/s4.gif' alt='.'/>"
else if cwsm+cwrq>3999 then
response.write "鱼尾龙<br/><img src='/bbs/cw/long/s3.gif' alt='.'/>"
else if cwsm+cwrq>1999 then 
response.write "蜴龙<br/><img src='/bbs/cw/long/s2.gif' alt='.'/>"
else if cwsm+cwrq>799 then 
response.write "火龙<br/><img src='/bbs/cw/long/s1.gif' alt='.'/>"

else if cwsm+cwrq>299 then 
response.write "乖乖龙<br/><img src='/bbs/cw/long/s0.gif' alt='.'/>"

else if cwsm+cwrq<299 then 
response.write "宠物蛋<br/><img src='/bbs/cw/cwd.gif' alt='.'/>"
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
if pz=2 then
if cwsm+cwrq>60000 then
response.write "圣仙子(顶级)<br/><img src='/bbs/cw/ling/b9.gif' alt='.'/>"
else if cwsm+cwrq>30000 then
response.write "花仙子<br/><img src='/bbs/cw/ling/b8.gif' alt='.'/>"
else if cwsm+cwrq>18000 then
response.write "人鱼<br/><img src='/bbs/cw/ling/b7.gif' alt='.'/>"
else if cwsm+cwrq>7999 then
response.write "绿精灵<br/><img src='/bbs/cw/ling/b6.gif' alt='.'/>"
else if cwsm+cwrq>3999 then
response.write "蝴蝶精灵<br/><img src='/bbs/cw/ling/b5.gif' alt='.'/>"
else if cwsm+cwrq>299 then 
response.write "蝴蝶<br/><img src='/bbs/cw/ling/b4.gif' alt='.'/>"
else if cwsm+cwrq<299 then 
response.write "<br/>宠物蛋<br/><img src='/bbs/cw/cwd.gif' alt='.'/>"
end if
end if
end if
end if
end if
end if
end if
end if
if pz=3 then
if cwsm+cwrq>60000 then
response.write "火凤凰(顶级)<br/><img src='/bbs/cw/niao/5.gif' alt='.'/>"
else if cwsm+cwrq>30000 then
response.write "冰翼凤<br/><img src='/bbs/cw/niao/4.gif' alt='.'/>"
else if cwsm+cwrq>18000 then
response.write "火凤<br/><img src='/bbs/cw/niao/3.gif' alt='.'/>"
else if cwsm+cwrq>7999 then
response.write "冰凤<br/><img src='/bbs/cw/niao/2.gif' alt='.'/>"
else if cwsm+cwrq>299 then 
response.write "凤兽<br/><img src='/bbs/cw/niao/1.gif' alt='.'/>"
else if cwsm+cwrq<299 then 
response.write "宠物蛋<br/><img src='/bbs/cw/cwd.gif' alt='.'/>"
end if
end if
end if
end if
end if
end if
end if
if pz=4 then
if cwsm+cwrq>60000 then
response.write "猫王(顶级)<br/><img src='/bbs/cw/mao/12.gif' alt='.'/>"
else if cwsm+cwrq>30000 then
response.write "猫后<br/><img src='/bbs/cw/mao/11.gif' alt='.'/>"
else if cwsm+cwrq>18000 then
response.write "究极黄金猫<br/><img src='/bbs/cw/mao/10.gif' alt='.'/>"
else if cwsm+cwrq>9999 then
response.write "究极猫<br/><img src='/bbs/cw/mao/9.gif' alt='.'/>"
else if cwsm+cwrq>8999 then
response.write "变种火猫<br/><img src='/bbs/cw/mao/8.gif' alt='.'/>"
else if cwsm+cwrq>7999 then
response.write "天使猫<br/><img src='/bbs/cw/mao/7.gif' alt='.'/>"
else if cwsm+cwrq>6999 then
response.write "进化白猫<br/><img src='/bbs/cw/mao/6.gif' alt='.'/>"
else if cwsm+cwrq>5999 then
response.write "进化火猫<br/><img src='/bbs/cw/mao/5.gif' alt='.'/>"
else if cwsm+cwrq>3999 then
response.write "火猫<br/><img src='/bbs/cw/mao/4.gif' alt='.'/>"
else if cwsm+cwrq>1999 then 
response.write "黄金猫<br/><img src='/bbs/cw/mao/3.gif' alt='.'/>"
else if cwsm+cwrq>799 then 
response.write "灰猫<br/><img src='/bbs/cw/mao/2.gif' alt='.'/>"
else if cwsm+cwrq>599 then 
response.write "白猫<br/><img src='/bbs/cw/mao/1.gif' alt='.'/>"
else if cwsm+cwrq>299 then 
response.write "猫系进化蛋<br/><img src='/bbs/cw/mao/0.gif' alt='.'/>"
else if cwsm+cwrq<299 then 
response.write "宠物蛋<br/><img src='/bbs/cw/cwd.gif' alt='.'/>"
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
if pz=5 then
if cwsm+cwrq>60000 then
response.write "无敌大国宝(顶级)<br/><img src='/bbs/cw/xiong/10.gif' alt='.'/>"
else if cwsm+cwrq>30000 then
response.write "国宝<br/><img src='/bbs/cw/xiong/9.gif' alt='.'/>"
else if cwsm+cwrq>18000 then
response.write "功夫熊猫<br/><img src='/bbs/cw/xiong/8.gif' alt='.'/>"
else if cwsm+cwrq>9999 then
response.write "天使熊猫<br/><img src='/bbs/cw/xiong/7.gif' alt='.'/>"
else if cwsm+cwrq>7999 then
response.write "圣熊猫<br/><img src='/bbs/cw/xiong/6.gif' alt='.'/>"
else if cwsm+cwrq>6999 then
response.write "霸王熊猫<br/><img src='/bbs/cw/xiong/5.gif' alt='.'/>"
else if cwsm+cwrq>5999 then
response.write "领头熊猫<br/><img src='/bbs/cw/xiong/4.gif' alt='.'/>"
else if cwsm+cwrq>1999 then 
response.write "大熊猫<br/><img src='/bbs/cw/xiong/3.gif' alt='.'/>"
else if cwsm+cwrq>799 then 
response.write "顽皮熊猫<br/><img src='/bbs/cw/xiong/2.gif' alt='.'/>"
else if cwsm+cwrq>599 then 
response.write "小熊猫<br/><img src='/bbs/cw/xiong/1.gif' alt='.'/>"
else if cwsm+cwrq>299 then 
response.write "熊猫幼仔<br/><img src='/bbs/cw/xiong/0.gif' alt='.'/>"
else if cwsm+cwrq<299 then 
response.write "熊猫仔<br/><img src='/bbs/cw/cwd.gif' alt='.'/>"
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
if pz=6 then
if cwsm+cwrq>60000 then
response.write "青蛙王子(顶级)<br/><img src='/bbs/cw/wa/9.gif' alt='.'/>"
else if cwsm+cwrq>30000 then
response.write "无敌牛蛙<br/><img src='/bbs/cw/wa/9.gif' alt='.'/>"
else if cwsm+cwrq>18000 then
response.write "霸王牛蛙<br/><img src='/bbs/cw/wa/8.gif' alt='.'/>"
else if cwsm+cwrq>9999 then
response.write "变异牛蛙<br/><img src='/bbs/cw/wa/7.gif' alt='.'/>"
else if cwsm+cwrq>7999 then
response.write "大牛蛙<br/><img src='/bbs/cw/wa/6.gif' alt='.'/>"
else if cwsm+cwrq>6999 then
response.write "牛蛙<br/><img src='/bbs/cw/wa/5.gif' alt='.'/>"
else if cwsm+cwrq>5999 then
response.write "大青蛙<br/><img src='/bbs/cw/wa/4.gif' alt='.'/>"
else if cwsm+cwrq>1999 then 
response.write "小青蛙<br/><img src='/bbs/cw/wa/3.gif' alt='.'/>"
else if cwsm+cwrq>799 then 
response.write "幼青蛙<br/><img src='/bbs/cw/wa/2.gif' alt='.'/>"
else if cwsm+cwrq>299 then 
response.write "进化蝌蚪<br/><img src='/bbs/cw/wa/1.gif' alt='.'/>"
else if cwsm+cwrq<299 then 
response.write "蝌蚪<br/><img src='/bbs/cw/cwd.gif' alt='.'/>"
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
if pz=7 then
if cwsm+cwrq>60000 then
response.write "无敌兔(顶级)<br/><img src='/bbs/cw/tu/10.gif' alt='.'/>"
else if cwsm+cwrq>30000 then
response.write "霸王兔<br/><img src='/bbs/cw/tu/9.gif' alt='.'/>"
else if cwsm+cwrq>18000 then
response.write "功夫<br/><img src='/bbs/cw/tu/8.gif' alt='.'/>"
else if cwsm+cwrq>9999 then
response.write "泼皮兔<br/><img src='/bbs/cw/tu/7.gif' alt='.'/>"
else if cwsm+cwrq>7999 then
response.write "蹦蹦兔<br/><img src='/bbs/cw/tu/6.gif' alt='.'/>"
else if cwsm+cwrq>6999 then
response.write "大白兔<br/><img src='/bbs/cw/tu/5.gif' alt='.'/>"
else if cwsm+cwrq>5999 then
response.write "小白兔<br/><img src='/bbs/cw/tu/4.gif' alt='.'/>"
else if cwsm+cwrq>1999 then 
response.write "小兔<br/><img src='/bbs/cw/tu/3.gif' alt='.'/>"
else if cwsm+cwrq>799 then 
response.write "毛兔<br/><img src='/bbs/cw/tu/2.gif' alt='.'/>"
else if cwsm+cwrq>299 then 
response.write "幼兔<br/><img src='/bbs/cw/tu/1.gif' alt='.'/>"
else if cwsm+cwrq<299 then 
response.write "兔崽子<br/><img src='/bbs/cw/cwd.gif' alt='.'/>"
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if
end if





response.write "<br/>宠物生命:" & cwsm & ""
response.write "<br/>健康指数:" & cwrq & ""
response.write "<br/>心情指数:" & cwxq & ""
response.write "<br/>情感指数:" & cwqg & ""
response.write "<br/>智力指数:" & cwzs & "<br/>"
if myid=clng(id) 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>瞧瞧吧!<br/>"
end if
end if
response.write "宠物等级:"

 if cwsm+cwrq>499999 then 
    Response.write "(顶级)<img src='/bbs/cw/cwdj/22.gif' alt='22级'/>"



else if cwsm+cwrq>100000 then 
    Response.write "<img src='/bbs/cw/cwdj/21.gif' alt='21级'/>"



else if cwsm+cwrq>60000 then 
    Response.write "<img src='/bbs/cw/cwdj/20.gif' alt='20级'/>"

else if cwsm+cwrq>30000 then 
    Response.write "<img src='/bbs/cw/cwdj/19.gif' alt='19级'/>"


else if cwsm+cwrq>21000 then 
    Response.write "<img src='/bbs/cw/cwdj/18.gif' alt='18级'/>"




else if cwsm+cwrq>18000 then 
    Response.write "<img src='/bbs/cw/cwdj/17.gif' alt='17级'/>"

else if cwsm+cwrq>15000 then 
    Response.write "<img src='/bbs/cw/cwdj/16.gif' alt='16级'/>"

else if cwsm+cwrq>13000 then 
    Response.write "<img src='/bbs/cw/cwdj/15.gif' alt='15级'/>"

else if cwsm+cwrq>11000 then 
    Response.write "<img src='/bbs/cw/cwdj/14.gif' alt='14级'/>"

else if cwsm+cwrq>9999 then 
    Response.write "<img src='/bbs/cw/cwdj/13.gif' alt='13级'/>"


else if cwsm+cwrq>8999 then 
    Response.write "<img src='/bbs/cw/cwdj/12.gif' alt='12级'/>"

else if cwsm+cwrq>7999 then 
    Response.write "<img src='/bbs/cw/cwdj/11.gif' alt='11级'/>"

else if cwsm+cwrq>6999 then 
    Response.write "<img src='/bbs/cw/cwdj/10.gif' alt='10级'/>"


else if cwsm+cwrq>5999 then 
    Response.write "<img src='/bbs/cw/cwdj/9.gif' alt='9级'/>"

else if cwsm+cwrq>4999 then 
    Response.write "<img src='/bbs/cw/cwdj/8.gif' alt='8级'/>"

else if cwsm+cwrq>3499 then 
    Response.write "<img src='/bbs/cw/cwdj/7.gif' alt='7级'/>"

else if cwsm+cwrq>1999 then 
    Response.write "<img src='/bbs/cw/cwdj/6.gif' alt='6级'/>"

else if cwsm+cwrq>1199 then 
    Response.write "<img src='/bbs/cw/cwdj/5.gif' alt='5级'/>"

else if cwsm+cwrq>799 then 
    Response.write "<img src='/bbs/cw/cwdj/4.gif' alt='4级'/>"

else if cwsm+cwrq>299 then 
    Response.write "<img src='/bbs/cw/cwdj/3.gif' alt='3级'/>"

else if cwsm+cwrq>110 then 
    Response.write "<img src='/bbs/cw/cwdj/2.gif' alt='2级'/>"

else if cwsm+cwrq<110 then 
    Response.write "<img src='/bbs/cw/cwdj/1.gif' alt='1级'/>"


End if
End if
End if
End if
End if
End if
End if
End if
End if
End if
End if
End if
End if
End if

End if
End if
End if
End if
End if
End if
End if
End if
end if
end if

if myid<>abs(id) then
conn.Execute("update users set rc=rc+1 Where id=" & id)
end if
if myid<>0 then
mz="[url=uinfo.asp?id="&myid&"&amp;saytk="&saytk&"&sid=[sid]]"&myni&"[/url]"
else
mz="游客"
end if
if myid<>clng(id) then
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"偷偷看了(url=/bbs/uinfo.asp?id="&ids&"&amp;saytk="&saytk&"&sid=[sid])"&ubb(YD_name)&"(/url)一眼')")
else
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"拿着镜子在(url=/bbs/uinfo.asp?id="&ids&"&amp;saytk="&saytk&"&sid=[sid])臭美(/url)')")
end if

if myid<>clng(id) then
Function CreatedTextFiles(FileName,body)
'On Error Resume Next
If InStr(FileName, ":") = 0 Then FileName = Server.MapPath(FileName)
	Dim oStream
	Set oStream = CreateObject("ADODB.Stream")
	oStream.Type = 2 
	oStream.Mode = 3 
	oStream.Charset = "GB2312"
	oStream.Open
	oStream.Position = oStream.Size
	oStream.WriteText body
	oStream.SaveToFile FileName, 2
	oStream.Close
	Set oStream = Nothing
	If Err.Number <> 0 Then Err.Clear
	End Function
'================================================
dim cont_file,path_File
if myid=0 then
else
path_File= Server.MapPath("/msg/"&ids&".txt")
cont_file="[url=/bbs/uinfo.asp?id="&myid&"&saytk="&saytk&"&sid=[sid]]"&myni&"[/url]正看着你"
Call CreatedTextFiles(path_File,cont_file)
path_File= Server.MapPath("/index.inc")
cont_file="[url=/bbs/uinfo.asp?id="&myid&"&saytk="&saytk&"&sid=[sid]]"&myni&"[/url]看了[url=/bbs/uinfo.asp?id="&ids&"&saytk="&saytk&"&sid=[sid]]"&ubb(YD_name)&"[/url]一眼"
Call CreatedTextFiles(path_File,cont_file)
end if
if myid<>0 then
mz="[url=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/uinfo.asp?id="&ids&"&amp;saytk="&saytk&"&sid=[sid])"&ubb(YD_name)&"(/url)一眼')")

end if



response.write "<br/>【TA的勋章】<br/>" 
if xuan1<>"" then
response.write ubb2(xuan1)&" "

if clng(id)=myid then
Response.write "<a href=""xunzhang.asp?saytk="&saytk&"&amp;sid="&sid&""">购买</a>"&chr(13)
end if

else
response.write "暂无！<br/>"

Response.write "<a href=""xunzhang.asp?saytk="&saytk&"&amp;sid="&sid&""">去购买勋章^^</a>"&chr(13)

end if
Response.write "<br/>【TA的博客动态】<br/>"

dim rs2,fdid
set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open"select * from users where id="&id&" order by id desc",conn,1,1
if Not rs2.eof Then
  
a=1

do while ((not rs2.EOF) and a <=3)
set rs3=Server.CreateObject("ADODB.Recordset")
rs3.open"select id,rc,xcid,htm,fgid,rjid,txt from frzonedt where fgid="&id&" order by htm desc",conn,1,1
if rs3.eof then
 Response.write "暂无动态！！<br/>"
   else

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 "《"&Left(UBB(rjtit),10)&"》<br/>"&_
               ""&Left(UBB2(rjtxt),50)&"<br/>["
               
response.write "" &date_gametalk(rjtm) & ""
               
response.write "前]<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 "更新了心情:"&Left(UBB(xctit),50)&"<br/>["           
response.write "" & date_gametalk(xctm) & ""              
response.write "前]<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
rs2.Movenext

a=a+1
Loop
End If
rs3.close
set rs3=Nothing
rs2.close
set rs2=Nothing
M_myreadnumm=conn.execute("Select count(ID) from [baifang] where tid="&ids)(0)
If M_myreadnumm>100 then
conn.Execute"delete from [baifang] where tid="&ids
End if
Response.write "【最近访客】("&M_myreadnumm&")<br/>"

set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 3 * from [baifang] where tid="&ids&" order by id desc"
rs.open sql,conn,1,1
If rs.eof Then
Response.write "暂时无人拜访！<br/>"
else
k=3
i=1
do while ((not rs.EOF) and i<=3)
Response.write ""&k&".<a href=""uinfo.asp?id="&rs("tid")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&ubb2(rs("tx"))&"</a><br/>"
rs.Movenext
i=i+1
k=k-1
Loop	
end if
rs.close
set rs=nothing

If M_myreadnum>50 then
conn.Execute"delete from [usbook] where usid="&ids
End if
response.write "【给TA留言】"
response.write "<a href='myread.asp?ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>("&M_myreadnum&")</a>"

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

response.write "<br/>"
set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from [usbook] where usid="&ids&" order by num,id desc"
rs.open sql,conn,1,1
If rs.eof	Then
Response.write "暂时没有留言！<br/>"
else
l=3
i=1
do while ((not rs.EOF) and i<=1)

Response.write ""&l&".<a href=""uinfo.asp?id="&rs("fid")&"&amp;saytk="&saytk&"&amp;sid="&sid&""">"&usb(rs("fname"))&"</a>"
Response.write "说:"&ubb2(rs("content"))&"("&fordatebook(rs("ftime"))&")<br/>"
rs.Movenext
i=i+1
l=l-1
Loop	
end if
rs.close
set rs=nothing
if saytk=>2 then
	Response.write "<form name=""form"" method=""post"" action=""myreadadd.asp?act=ok&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;ids="&ids&""">"

end if
Response.write "<br/><input name=""content"" title=""内容"" type=""content"" format=""*M"" emptyok=""true"" maxlength=""500"" value=""路过你的小屋,被你的才华迷倒了!""/><br/>"
if saytk=>2 then
Response.Write "<input type=""submit"" value=""发表""/></form>"
else
Response.write "<anchor>发表留言"
Response.write "<go href='myreadadd.asp?act=ok&amp;saytk="&saytk&"&amp;sid="&sid&"&amp;ids="&ids&"' method='post' accept-charset='utf-8'>"
Response.write "<postfield name=""content"" value=""$(content)""/>"
Response.write "</go></anchor>"
End If 

Response.write "<br/>--------"

if myid<>abs(id) And myid<>0 then
conn.Execute("update users set rc=rc+1 Where id=" & id)
end if
if myid<>0 then
mz="[url=uinfo.asp?id="&myid&"&amp;[标识]]"&myni&"[/url]"
else
mz="游客"
end if
if myid<>clng(id) And myid<>0 then
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"进入了(url=/bbs/uinfo.asp?id="&ids&"&amp;[标识])"&ubb(YD_name)&"(/url)的个人空间')")
conn.execute("insert into baifang(times,usid,tid,tx)values('"&now&"','"&myid&"','"&ids&"','"&mz&"')")
else
conn.execute("insert into sqdt(shijian,dz)values('"&now&"','"&mz&"进入了(url=/bbs/uinfo.asp?[标识])个人空间(/url)')")
end if
conn.Execute"delete from [baifang] where usid=0"






if ttvv=0 and vipdj>0 then
Response.write "<br/>该会员的房门是关闭的，您是VIP会员，使用了强行开锁功能"&chr(13)
end if
IF keys=1 or keys=2 or skey>0 then
Response.write "<br/><a href=""adminuser.asp?action=h&amp;id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">管理会员</a>"
end if
IF keys=1 or keys=2 then
Response.write "|<a href=""adminboss.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">设定版主</a>"&chr(13)
end if
end If
If saytk>1 Then Response.write "</div>"
%>
<!--#include file="../bbs/fanhui.asp"-->

<%
conn.close
set conn=nothing
Call headsay()
%>
