<!--#include file="inc_const.asp"-->
<%response.expires=0
Response.CacheControl = "Private"
application.lock

set cschat=server.createobject("ffcschat.cssbchat")

my_level=cschat.getLevel(Session,Application(ConstStr & "_user_list"),Application(ConstStr & "_room_list"))

application.unlock
if my_level=0 then
  response.redirect("showerr.asp")
  response.end
end if
myname=cschat.myname
my_level=cint(cschat.GetListValue(Application(ConstStr & "_user_list"),myname,3))

Set Conn=Server.CreateObject("ADODB.Connection")
conn.open Application( ConstStr & "_connstr")

username=request("name")

set rs=conn.execute("SELECT * FROM user WHERE username='" & username & "'")
if rs.eof or rs.bof then
  response.redirect("showerr.asp?errtext=<font color=336699>〖"&username&"〗</font>还没有注册呢！")
  response.end
end if
if rs("sex")<>0 then
  sex="女"
else
  sex="男"
end if
if rs("saved")<>0 then
  saved="是"
  savedstr="cancel'>取消"
else
  saved="否"
  savedstr="ok'>置为"
end if
if rs("auto_update")<>0 then
  auto_u="是"
  auto_ustr="cancel'>禁止"
else
  auto_u="否"
  auto_ustr="ok'>允许"
end if
if my_level>=rs("user_level") then
  if my_level-application( ConstStr & "_l_seelevel")>=0 or myname=username then
    user_level=rs("user_level")
  else
    user_level=my_level
  end if
  if my_level-application( ConstStr & "_l_seeip")>0 or myname=username then
    first_ip=rs("first_ip")
    last_ip=rs("last_ip")
  else
    first_ip=""
    last_ip=""
  end if
end if%>
   <META content="text/html; charset=gb2312" http-equiv=content-type>
   <link rel="stylesheet" type="text/css" href="chat.css"><style>a{color:red}</style>
   <style>p{margin-left:10px;margin-right:20px;margin-top:5px;margin-bottom:0px}input{color:blue}</style>
   <body  style="background-color:EAF2FF;color:112233;scrollbar-Base-Color: #b0d8ff;SCROLLBAR-DARKSHADOW-COLOR:#b0d8ff;SCROLLBAR-arrow-COLOR:#336699;SCROLLBAR-TRACK-COLOR: EAF2FF;SCROLLBAR-3DLIGHT-COLOR: #b0d8ff;SCROLLBAR-SHADOW-COLOR: #336699;SCROLLBAR-HIGHLIGHT-COLOR: #b0d8ff;" leftmargin=3 topmargin=20 style="color:336699">
  <table height=100% width=100% ><tr><td align=center valign=center>
  <center><img src='headface/<%=rs("headface")%>.gif'></center>
  <table align=center cellspacing=0 cellpadding=0 style="border:'1px solid navy'">
    <tr><td colspan=2 class=navy1 style="border:'1px solid #EAF2FF'">〖<%=username%>〗个人信息</td>
    <form>
    <tr><td style="text-align:left;" nowrap><p>
      性别:<input type=text readonly size=9 value=<%=sex%> >
      保留:<input type=text readonly size=9 value=<%=saved%> >
      级别:<input type=text readonly size=9 value='<%=user_level%>'></p><p>
      次数:<input type=text readonly size=9 value='<%=rs("visit_num")%>'>
      经验:<input type=text readonly size=9 value='<%=rs("exp_num")%>'>
      自动升级:<input type=text readonly size=5 value='<%=auto_u%>'></p><p>
      爱好:<input type=text readonly size=45 value='<%=rs("aihaos")%>' ></p><p>
      首次访问:<input type=text readonly size=18 value='<%=cschat.alldatestr(rs("log_time"))%>' >
      ＩＰ:<input type=text readonly size=16 value='<%=first_ip%>' ></p><p>
      最后访问:<input type=text readonly size=18 value='<%=cschat.alldatestr(rs("in_time"))%>' >
      ＩＰ:<input type=text readonly size=16 value='<%=last_ip%>' ></p><p>
<%if instr(" "&rs("friends")&" "," "&myname&" ")<>0 or my_level-application( ConstStr & "_superlevel")=0 then%>
      邮件地址:<input type=text readonly size=18 value='<%=rs("email")%>' >
      ＱＱ:<input type=text readonly size=16 value='<%=rs("oicq")%>' ></p><p>
<%end if
if my_level-application( ConstStr & "_superlevel")=0 then%>
      好友名单:<input type=text readonly size=41 value='<%=trim(rs("friends"))%>' ></p><p>
      界面设置:<input type=text readonly size=18 value='<%=rs("bgcolor")%>' >
      离开:<input type=text readonly size=16 value='<%=cschat.alldatestr(rs("out_time"))%>' ></p><p>
  <%if myname<>username then%>
      密码提示:<input type=text readonly size=41 value='<%=rs("remand")%>' ></p><p>
      密码回答:<input type=text readonly size=41 value='<%=rs("answer")%>' ></p>
            <p>
              <%end if%>
              管理功能: <a href='modusername.asp?name=<%=username%>'>用户改名</a> <a href='moduserpass.asp?name=<%=username%>' >修改密码</a> 
              <a href='moduserface.asp?name=<%=username%>' >修改头相 </a>  <a href='moduserexp_num.asp?name=<%=username%>' >修改经验值 </a><a href='modusersaved.asp?name=<%=username%>&action=<%=savedstr%>保留</a> <a href='moduserautoupdate.asp?name=<%=username%>&action=<%=auto_ustr%>自动升级</a></p>
            <p>
<%end if
rs.close
set rs=nothing
conn.close
set cschat=nothing
set conn=nothing%>
     </p><p></table><br>[<a href='javascript:history.go(-1)'>后退</a>]</td></tr></table></form>
 </body></html>