<!--#include file="Inc.asp"-->
<!--#include file="ydzq1.asp"-->
<%'============================================================
' Copyright 2007-09 泡泡情缘. All Rights Reserved.
' Last Update: 2009-5-27  14:20
' ADD:wap.ppqy.cn
' E-Mail:ppqy@vip.qq.com  QQ：465418700
'============================================================
%>
<%
response.write "<card title=""用户信息""><p>"
Response.write "<anchor>返回上级<prev/></anchor><br/>"
'检查有几条新留言
dim newguest
newguest = 0
IF myid > 0 THEN
  newguest = ForNewGuest(myid)
END IF
if newguest > 0 then
Response.write "<img src='/bbs/xi.gif' alt='.' /><a href='bbs/msgview.asp?url=" & Replace(Replace(R_url(), "sid=", "o="), "sid=", "o=") & "&amp;sid=" & sid & "'>您有" & newguest & "条新消息</a><br/>" & Chr(13)
end if
dim id,oo,jia,about,YD_name,photoview,sex,age,regtime,overtime,ftsl,hfsl,City,sr,ids,xuan1,newmyjb,newmyjy,userkeys,userskey,newdatainfo,sjhmnum,zoneid,merry,newrmbcent
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")
userkeys=rs("keys")
userskey=rs("skey")
xuan1=rs("xuan")
newmyjb=rs("myjb")
newrmbcent=rs("rmbcent")
newbank=rs("bank")
newmyjy=rs("myjy")
newvipdj=rs("vipdj")
newvipface=rs("vipface")
newvipdate=rs("vipdate")
newdatainfo=rs("datainfo")
sex=clng(sex)
zoneid=rs("zoneid")
merry=rs("merry")
if myid<>clng(id) then
Response.write "<input name=""text"" title=""内容"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""500"" value=""""/><br/>"
Response.write "<anchor>发送消息"
Response.write "<go href='msgaddsave.asp?sid="&sid&"&amp;url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&"' method='post' accept-charset='utf-8'>"
Response.write "<postfield name=""txt"" value=""$(text)""/>"
Response.write "<postfield name=""lid"" value="""&ubb(id)&"""/>"
Response.write "</go></anchor><br/>"
else
end if
if len(photoview)>10 then
Response.write "<img src="""&ubb(photoview)&""" alt=""wap.ppqy.cn""/><br/>"
else
Response.write "<img src=""/img/photo.gif"" alt=""wap.ppqy.cn""/><br/>"
end if
Response.write "昵称："&ubb(YD_name)&"<br/>ID:"&ids&"<br/>"
set rs1=server.CreateObject("ADODB.RecordSet")
 rs1.Open "select ID from Users where tjj >= '"&DateAdd("n", lonline, Now())&"' and id="&ids,conn,1,1
if not rs1.eof then
response.write "状态:<a href=""/bbs/onlineview.asp?sid=" & sid & """>在线</a><br/>"
else
response.write "状态:离线<br/>"
end if
rs1.close
set rs1=nothing
response.write "职位："
if userkeys=1 then
response.write "社区总管"
elseif userkeys=3 then
response.write "论坛总管"
elseif userkeys=4 then
response.write "聊天室总管"
elseif userkeys=5 then
response.write "帮派总管"
elseif userkeys=6 then
response.write "同城总管"

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 "论坛版主"
else
ydname=rsb("name")
response.write "论坛版主<br/>管辖：<a href='board.asp?bbsid="&userskey&"&amp;sid="&sid&"'>"&ydName&"</a>"
rsb.close
set rsb=nothing
end if
elseif newvipface>0 then
response.write "VIP会员"
else
response.write "普通会员"
end if
response.write "<br/>"

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


response.write "帮派："
dim rs1,ydbbsname
set rs1=server.CreateObject("ADODB.RecordSet")
 rs1.Open "select name,adminusid from ydbbs where id= "&zoneid,conn,1,1
if rs1.eof then
response.write "暂无<br/>"
else
ydbbsname=rs1("name")
response.write "<a href='board.asp?bbsid="&zoneid&"&amp;sid="&sid&"'>"&ydbbsname&"</a><br/>"
if rs1("adminusid")=abs(ids) then
response.write "帮派权限：群主<br/>"
end if
end if
rs1.close
set rs1=nothing

response.write "性别："
if sex=1 then 
response.write "男"
elseif sex=2 then 
response.write "女"
else
response.write "保密"
end if
if merry<>0 then
response.write "<br/>配偶：<img src='/img/fen2.gif' alt='已婚'/>"
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;sid="&sid&""">"&rs1("name")&"</a>"
end if
rs1.close
set rs1=nothing
else
response.write "<br/>配偶：<img src='/img/fen1.gif' alt='未婚'/>未婚"
end if
response.write "<br/>年龄："&ubb(age)&""
response.write "<br/>生日："&ubb(sr)&"<br/>"
response.write "城市："&ubb(City)&"<br/>"

if jia<>"" then
response.write "家园:<a href=""jia/index.asp?sid="&sid&""">"&oo&"</a><br/>"&ubb2(jia)&"<br/>"
else
response.write "家园:<a href=""jia/index.asp?sid="&sid&""">还没有家园</a><br/>"
end if

response.write "等级："&ubb(getLvl(newmyjy))&"<br/>"
response.write "元宝："&checkrmb(newrmbcent)&""
if clng(id)=myid then
Response.write "<a href=""/bbs/vip/vip.asp?sid="&sid&""">充值</a>"&chr(13)
end if

response.write "<br/>"&getcent&"："&newmyjb&""

if clng(id)=myid then
Response.write "<a href=""paycent.asp?sid="&sid&""">兑换</a>"&chr(13)
end if

response.write "<br/>经验："&newmyjy&"<br/>"
response.write "勋章：" 
if xuan1<>"" then
response.write ubb2(xuan1)&"<br/>"
else
response.write "暂无<br/>"
end if
response.write "头衔："&getHandle(newmyjy)&"<br/>"
response.write "签名："&ubb(newdatainfo)&"<br/>"
if clng(id)=myid then
'response.write "手机："&ubb(sjhmnum)&"<br/>"
   Response.write "VIP期限到"&newvipdate&"<br/>"
else
'response.write "手机："&left(ubb(sjhmnum),7)&"****<br/>"
end if
response.write "个人介绍："&ubb(about)&"<br/>"
response.write "注册时间："&ubb(regtime)&"<br/>"
response.write "最后在线："&ubb(overtime)&""
Response.write "<br/>"&chr(13)

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

response.write "<a href='alist.asp?tid="&tid&"&amp;ids="&id&"&amp;sid="&sid&"&amp;TP=2'>参与帖子</a><br/>"

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

conn.close
set conn=nothing
if myid<>clng(id) then
Response.write "<a href=""bank.asp?ids="&id&"&amp;sid="&sid&""">赠送"&getcent&"</a>"&chr(13)

Response.write "<br/><a href=""get.asp?action=f&amp;TP=1&amp;ids="&id&"&amp;sid="&sid&""">加为好友</a>|"
Response.write "<a href=""get.asp?action=h&amp;TP=1&amp;ids="&id&"&amp;sid="&sid&""">加黑名单</a><br/>"&chr(13)
end if
Response.write "<a href=""/bbs/index.asp?sid="&sid&""">社区首页</a>"
IF keys=1 or keys=3 or skey>0 then
Response.write "<br/><a href=""adminuser.asp?action=h&amp;id="&id&"&amp;sid="&sid&""">管理会员</a>|"
end if
IF keys=1 or keys=3 then
Response.write "<a href=""adminboss.asp?id="&id&"&amp;sid="&sid&""">设定版主</a>"&chr(13)
end if
Response.write "</p></card></wml>"
%>