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

<%Call head()
Call saycarda("好友聊天")

dim id,about,yd_name,photoview,sex,age,regtime,overtime,ftsl,hfsl,city,sr,ids,xuan1,newmyjb,newmyjy,userkeys,userskey,newdatainfo,sjhmnum,zoneid,merry,dzt,name
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")
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")
dzt=rs("dzt")
dname=rs("dname")
rc=rs("rc")
dim m_myreadnum
m_myreadnum=conn.execute("select count(id) from [usbook] where usid="&id)(0)
if myid<>clng(id) then
if ids=1 then 
response.write "<b>社区超级巡管</b><br/>"
end if
%>
<!--#include file="sy1.asp"-->
<%
'我的信箱
dim rs22
set rs22=server.createobject("adodb.recordset")
  rs22.open "select top 3 * from guest where sid="&myid&" and fid="&id&" order by ftm desc",conn,1,1

if Not rs22.eof then
if biao<>0 then
response.write "<img src='/bbs/face/"&biao&".gif' alt=''/>"
end if
response.write ""&ubb(yd_name)&"对我说:<br/>"
response.write ""&UBB(rs22("fnr"))&""

end if
rs22.close
set rs22=nothing


response.write"<br/><a href='haoyou.asp?id=" &id& "&amp;sid="&sid&"&amp;saytk="&saytk&"'>刷新消息</a>("
response.write"<a href='sqbz/?sid="&sid&"&amp;saytk="&saytk&"'>提示</a>"
response.write")<br/><a href='use.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>"&ubb(yd_name)&"</a>"
response.write"<br/>"

if saytk<>1 then
	Response.write "<form name=""form"" method=""post"" action=""msgaddsave.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;did="&id&"&amp;url="&replace(replace(r_url(),"sid=","sidoo="),"sid=","sidoo=")&""">"
end if
response.write "<input name=""txt"" title=""内容"" type=""text"" format=""*m"" emptyok=""true"" maxlength=""500"" value=""""/>"
response.write "<select title='表情' name='face' value='0'>"&chr(13)
response.write "<option title='表情' value='0'>表情</option>"&chr(13)
response.write "<option title='微笑' value='1'>微笑</option>"&chr(13)
response.write "<option title='哭泣' value='2'>哭泣</option>"&chr(13)
response.write "<option title='调皮' value='3'>调皮</option>"&chr(13)
response.write "<option title='脸红' value='4'>脸红</option>"&chr(13)
response.write "<option title='害羞' value='5'>害羞</option>"&chr(13)
response.write "<option title='生气' value='6'>生气</option>"&chr(13)
response.write "<option title='偷笑' value='7'>偷笑</option>"&chr(13)
response.write "<option title='流汗' value='8'>流汗</option>"&chr(13)
response.write "<option title='我倒' value='9'>我倒</option>"&chr(13)
response.write "<option title='得意' value='10'>得意</option>"&chr(13)
response.write "<option title='眦牙' value='11'>眦牙</option>"&chr(13)
response.write "<option title='疑问' value='12'>疑问</option>"&chr(13)
response.write "<option title='睡觉' value='13'>睡觉</option>"&chr(13)
response.write "<option title='好色' value='14'>好色</option>"&chr(13)
response.write "<option title='口水' value='15'>口水</option>"&chr(13)
response.write "<option title='敲头' value='16'>敲头</option>"&chr(13)
response.write "<option title='可爱' value='17'>可爱</option>"&chr(13)
response.write "<option title='猪头' value='18'>猪头</option>"&chr(13)
response.write "<option title='yeah' value='19'>yeah</option>"&chr(13)
response.write "<option title='玫瑰' value='20'>玫瑰</option>"&chr(13)
response.write "</select><br/>"&chr(13)


if saytk<>1 then
response.write "<input type=""hidden"" name=""lid"" value="""&ubb(id)&"""/>"
response.write "<input type=""hidden"" name=""did"" value="""&ubb(id)&"""/>"

%>
<input type="submit" name="Submit" value="发送消息"></form><br/>
<%else
response.write "<anchor>发送消息"
response.write "<go href='msgaddsave.asp?sid="&sid&"&amp;saytk="&saytk&"&amp;did="&id&"&amp;url="&replace(replace(r_url(),"sid=","sidoo="),"sid=","sidoo=")&"' method='post' accept-charset='utf-8'>"
response.write "<postfield name=""txt"" value=""$(txt)""/>"
response.write "<postfield name=""lid"" value="""&ubb(id)&"""/>"
response.write "<postfield name=""face"" value=""$(face)""/>"
response.write "<postfield name=""did"" value="""&ubb(id)&"""/>"
response.write "</go></anchor>."
response.write "<anchor>返回前页<prev/></anchor><br/>"
End if


dim rs23
set rs23=server.createobject("adodb.recordset")
  rs23.open"select top 3 * from guest where sid="&id&" and fid="&myid&" order by ftm desc",conn,1,1
if Not rs23.eof then
if biao<>0 then
response.write "<img src='/bbs/face/"&biao&".gif' alt=''/>"
end if
response.write "我对"&ubb(yd_name)&"说:<br/>"
response.write ""&UBB(rs23("fnr"))&""

end if
rs23.close
set rs23=nothing

response.write "<br/>【YY功能】<br/>"
response.write "<a href=""msglist.asp?fid="&ids&"&amp;sid="&sid&"&amp;saytk="&saytk&""">聊天记录</a>."

response.write"<a href='use.asp?id="&id&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>好友资料</a><br/>"

response.write "<a href=""msgdel.asp?id="&id&"&amp;url="&urls&"&amp;sid="&sid&"&amp;saytk="&saytk&""">删除消息</a>."
response.write "<a href=""msgfvsave.asp?id="&id&"&amp;url="&urls&"&amp;sid="&sid&"&amp;saytk="&saytk&""">马上收藏</a><br/>"

response.write "<a href=""onlineview.asp?sid="&sid&"&amp;saytk="&saytk&""">在线会员</a>."
response.write"<a href='getsave.asp?action=f&amp;ids="&ids&"&amp;sid="&sid&"&amp;saytk="&saytk&"'>删除好友</a><br/>"

response.write"<a href='/bbs/myfriend.asp?sid="&sid&"&amp;saytk="&saytk&"'>返回3gYY聊天</a><br/>"
response.write"【社区热点】<br/>"
call newsell(3,0)
response.write"<a href='/class.asp?class=162&amp;sid="&sid&"&amp;saytk="&saytk&"'>更多热点帖子</a>>><br/>"

response.write "<br/><a href=""/bbs/game/index.asp?sid="&sid&"&amp;saytk="&saytk&""">游戏</a>."
response.write "<a href=""/shop/index.asp?sid="&sid&"&amp;saytk="&saytk&""">商城</a>"
response.write ".<a href=""/bbs/yxxe/index.asp?sid="&sid&"&amp;saytk="&saytk&""">江湖</a>."
response.write "<a href=""/bbs/marry/index.asp?sid="&sid&"&amp;saytk="&saytk&""">婚姻</a><br/>"
response.write "<a href=""/bbs/g.asp?sid="&sid&"&amp;saytk="&saytk&""">社区管理团</a>>><br/>"



response.write "<br/><a href=""/index.asp?sid="&sid&"&amp;saytk="&saytk&""">网站首页</a>-"
response.write "<a href=""/bbs/index.asp?sid="&sid&"&amp;saytk="&saytk&""">社区</a>-"
response.write "<a href=""/bbs/show.asp?sid="&sid&"&amp;saytk="&saytk&""">家园</a><br/>"
response.write "<a href=""/bbs/blog/?sid="&sid&"&amp;saytk="&saytk&""">>>我的博客</a><br/>---------<br/>"
response.write now()

response.write "<br/>页面执行"& formatnumber((timer()-tss)*1000,3) & "毫秒"
end if

Call headsay()
%>