<!--#include file="Inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
response.write"<card title=""用户信息""><p>"
url=request("url")
if url="vippst.asp" then
response.write"<a href='"&URL&"?saytk="&saytk&"&amp;sid="&sid&"'>返回上级</a><br/>"
end if
'检查有几条新留言
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,uid,about,YD_name,photoview,sex,age,regtime,overtime,ftsl,hfsl,City,sr,ids,xuan1,newmyjb,newmyjy,userkeys,userskey,newdatainfo,zoneid,merry,answer
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
about=rs("about")
sjhmnum=rs("sjhm")
YD_name=rs("name")
photoview=rs("photo")
sex=rs("sex")
regtime=rs("regtime")
overtime=rs("tjj")
City=rs("City")
sr=rs("sr")
age=rs("age")
ids=rs("id")
uid=rs("sid")
userkeys=rs("keys")
userskey=rs("skey")
xuan1=rs("xuan")
newmyjb=rs("myjb")
newrmbcent=rs("rmbcent")
newbank=rs("bank")
newbankjie=rs("bankjie")
newmyjy=rs("myjy")
newdatainfo=rs("datainfo")
sex=clng(sex)
zoneid=rs("zoneid")
merry=rs("merry")
mobile=rs("mobile")
centmm=rs("centmm")
newregip=rs("myip")
newoverip=rs("loginIP")
answer=rs("answer")

Response.write "<input name=""txt"" title=""内容"" type=""text"" format=""*M"" emptyok=""true"" maxlength=""500"" value=""""/><br/>"
Response.write "<anchor>发送系统消息"
Response.write "<go href='msgaddsave.asp?saytk="&saytk&"&amp;sid="&sid&"' method='post' accept-charset='utf-8'>"
Response.write "<postfield name=""txt"" value=""$(txt)""/>"
Response.write "<postfield name=""ids"" value="""&ubb(id)&"""/>"
Response.write "</go></anchor><br/>"
if len(photoview)>10 then
Response.write "<img src=""/bbs/"&ubb(photoview)&""" alt=""photo""/><br/>"
else
Response.write "<img src=""/img/photo.gif"" alt=""photo""/><br/>"
end if
Response.write "I D:"&ids&""
if userkeys=1 then
response.write"(管理员)"
elseif userskey>0 then
response.write"(论坛版主)"
else
response.write"(普通会员)"
end if
response.write "<br/>"
response.write"昵称："&ubb(YD_name)&"<br/>"
response.write"VIP等级："
 if rs("vipdate")<>""then 
   txtname="自定义"
   else
   txtname="系统定"
   end if
   
   if rs("vipdj")<>0 then
   Response.write txtname&"<img src=""/img/vip"&rs("vipdj")&".gif"" alt='.'/><br/>"
   else
   Response.write txtname&"<img src=""/img/vip"&getvip(rs("myjb")+rs("bank"),rs("myjy"))&".gif"" alt='.'/><br/>"
   end if
 if rs("vipdate")<>""then 

   Response.write "VIP期限到"&rs("vipdate")&""
   response.write"<a href='topicdel.asp?action=vip&amp;ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>去掉VIP</a><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='/bbs/board.asp?bbsid="&zoneid&"'>"&ydbbsname&"</a><br/>"
if rs1("adminusid")=abs(ids) then
response.write "帮派权限：群主<br/>"
end if
end if
rs1.close
set rs1=nothing

set rs1=server.CreateObject("ADODB.RecordSet")
 rs1.Open "select ID from Users where '"&DateDiff("s",tjj,Now())&"<="&lonline&"' and id="&ids,conn,1,1
if not rs1.eof then
response.write "状态：在线<br/>"
else
response.write "状态：离线<br/>"
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/>配偶："
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
response.write "<br/>配偶：未婚"
end if
response.write "<br/>年龄："&ubb(age)&""
response.write "<br/>生日："&ubb(sr)&"<br/>"
response.write "城市："&ubb(City)&"<br/>"

response.write "等级："&getLvl(newmyjy)&"<br/>"
response.write "元宝："&checkrmb(newrmbcent)&"<br/>"
response.write ""&getcent&"："&newmyjb&""
response.write"<a href='getcent.asp?ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>&lt;赠送</a><br/>"
response.write "银行币："&newbank&"<br/>"
response.write "贷款币："&newbankjie&"<br/>"

response.write "经验："&newmyjy&"<br/>"

response.write "勋章：" 
if xuan1<>"" then
response.write ubb2(xuan1)&""
response.write"<a href='adminxx.asp?action=get&amp;userid="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>&lt;授予</a><br/>"
response.write"<a href='adminxx.asp?action=del&amp;userid="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>&lt;去掉</a><br/>"
else
response.write "暂无"
response.write"<a href='adminxx.asp?action=get&amp;userid="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>&lt;授予</a><br/>"
end if
response.write "头衔："&getHandle(newmyjy)&"<br/>"
response.write "签名："&ubb(newdatainfo)&"<br/>"

response.write "手机："&ubb(sjhmnum)&"<br/>"
response.write "手机型号："&ubb(mobile)&"<br/>"
response.write "密匙："&uid&"<br/>"
response.write "金币密码："&centmm&"<br/>"

response.write "个人介绍："&ubb(about)&"<br/>"
response.write "注册时间："&ubb(regtime)&"<br/>"
response.write "密保："&ubb(answer)&"<br/>"
response.write "注册IP："&ubb(newregIP)&"<br/>"
response.write "最后IP："&ubb(newoverIP)&""
Response.write "<br/>"&chr(13)

response.write "最后在线："&ubb(overtime)&""
Response.write "<br/>"&chr(13)



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=""topicdel.asp?action=sell&amp;ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">清空贴子</a><br/>"&chr(13)




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=""topicdel.asp?action=rel&amp;ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">清空参与</a><br/>"&chr(13)


response.write"<a href='adminguestcl.asp?ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>个人内线</a>|"
Response.write "<a href=""topicdel.asp?action=msg&amp;ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">清空内线</a><br/>"&chr(13)

response.write"<a href='photo.asp?ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&"'>个人相册</a>|"
Response.write "<a href=""topicdel.asp?action=pho&amp;ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">清空相册</a><br/>"&chr(13)


Response.write "<a href=""adminuser.asp?id="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">权限更改</a>|"
Response.write "<a href=""adminedituser.asp?ids="&id&"&amp;saytk="&saytk&"&amp;sid="&sid&""">编辑资料</a><br/>"&chr(13)

Response.write "<a href=""/bbs/index.asp?sid="&uid&""">用户社区</a>|"
response.write"<a href='adminpst.asp?saytk="&saytk&"&amp;sid="&sid&"'>会员管理</a>"
conn.close
set conn=nothing
  Function Checkrmb(str)
    str = Trim(str)
    If IsNull(str) Then str = "0"
    If str < 1 Then
    If Left(str, 1) <> "0" Then
            str = "0" & str
        End If
     End If
    Checkrmb = str
  End Function
%><!--#include file="fanhui.asp"-->
</p></card>
</wml>