<!--#include file="inc.asp"-->
<!--#include file="ydzq.asp"-->
<%
Call head()
Call saycarda("用户信息")

'检查有几条新留言
dim newguest
newguest = 0
if myid > 0 then
  newguest = fornewguest(myid)
end if
if newguest > 0 then
response.write "<a href='msgview.asp?url="&replace(replace(r_url(),"sid=","sidoo="),"sid=","sidoo=")&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>您有"&newguest&"条新消息</a><br/>"& chr(13)
end if
dim id,about,yd_name,photoview,sex,age,regtime,overtime,ftsl,hfsl,city,sr,ids,xuan1,newmyjb,newmyjy,userkeys,userskey,newdatainfo,sjhmnum,zoneid,merry,newrmbcent,dzt,dname
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")
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")
fxhaoma=rs("fxhaoma")
qqhaoma=rs("qqhaoma")
photozt=rs("photozt")
mm=rs("mm")
sidrs=rs("sid")
sex=clng(sex)
zoneid=rs("zoneid")
merry=rs("merry")
dzt=rs("dzt")
dname=rs("dname")
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;saytk="&saytk&"&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=""photo""/><br/>"
else
response.write "<img src=""/img/photo.gif"" alt=""photo""/><br/>"
end if
response.write "呢称:"&ubb(yd_name)&"<br/>i d:"&ids&""

response.write"<br/>职位："
if userkeys=1 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&"&amp;saytk="&saytk&"'>"&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&"&amp;saytk="&saytk&"'>"&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("n",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 dzt<>2 then
response.write "<br/>商店："
set rs1=server.createobject("adodb.recordset")
 rs1.open "select name from users where dzt="&dzt,conn,1,1
if not rs1.eof then
  response.write "ta还不是商户!"
end if
rs1.close
set rs1=nothing
else
response.write "<br/>商店：<a href=""/shop/tdp.asp?id="&id&"&amp;pagegg=1&amp;sid="&sid&"&amp;saytk="&saytk&""">"&dname&"</a>"
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;sid="&sid&"&amp;saytk="&saytk&""">"&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/>"

'显星座信息


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 "城市："&ubb(city)&"<br/>"

response.write "等级："&getlvl(newmyjy)&""
response.write "<br/>ｑｑ：<a href='http://blog2.z.qq.com/blog.jsp?b_uid="&qqhaoma&"'>"&qqhaoma&"</a>"
'response.write "<br/>飞信："&fxhaoma&""

'response.write "<br/>元宝："&checkrmb(newrmbcent)&""
if clng(id)=myid then
'response.write "<a href=""/bbs/vip/vip.asp?sid="&sid&"&amp;saytk="&saytk&""">充值</a>"&chr(13)
end if

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

if clng(id)=myid then
response.write "<a href=""paycent.asp?sid="&sid&"&amp;saytk="&saytk&""">兑换</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;saytk="&saytk&"&amp;tp=1'>论坛帖子</a>|"

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

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

conn.close
set conn=nothing
if myid<>clng(id) then
response.write "<a href=""bank.asp?ids="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">赠送"&getcent&"</a>"&chr(13)
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&"&sid=@@sid@@]"&myni&"[/url]正看着你"
call createdtextfiles(path_file,cont_file)
path_file= server.mappath("/index.inc")
cont_file="[url=/bbs/uinfo.asp?id="&myid&"&sid=@@sid@@]"&myni&"[/url]看了[url=/bbs/uinfo.asp?id="&ids&"&sid=@@sid@@]"&ubb(yd_name)&"[/url]一眼"
call createdtextfiles(path_file,cont_file)
end if
response.write "<br/><a href=""get.asp?action=f&amp;tp=1&amp;ids="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">加为好友</a>|"
response.write "<a href=""get.asp?action=h&amp;tp=1&amp;ids="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">加黑名单</a><br/>"&chr(13)

end If
response.write "<a href=""/bbs/uinfo.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">TA的个人空间</a><br/>"
response.write "<a href=""/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&""">社区首页</a>"
if keys=1 or skey>0 then
response.write "<br/><a href=""adminuser.asp?action=h&amp;id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">管理会员</a>"
end if
if keys=1 then
response.write "|<a href=""adminboss.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&""">设定版主</a>"&chr(13)
response.write "<br/>手机："&ubb(sjhmnum)&""&chr(13)
end if
Call headsay()
%>