<%
'=========社区基本设置==========
if bbsopera="1" and keys<>1 and keys<>2 then '社区管理员不禁止
dim browsers
browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4))
if browsers="oper"  or  browsers="winw"  or  browsers="wapi" or browsers="mc21" or browsers="up.b" or browsers="upg1" or browsers="upsi" or browsers="qwap" or browsers="jigs" or browsers="java" or browsers="alca" or browsers="wapj" or browsers="cdr/" or browsers="nec-" or browsers="fetc" or browsers="r380" or browsers="winw" or browsers="mozi" or browsers="mozi" or browsers="m3ga" then 
  Call Error("<card title=""出错""><p>请用手机访问！")
  end if
  end if
'==============会员资料如下==============
dim sid
sid=request("sid")
dim myid,myni,myjb,myjy,listnum,viewnum,review,relistnum,xuan,photo,tjj,upsize,endleibie,keys,skey,ChatID,strbbs,gulitime,mysellnum,myrelnum,myphotonum
set rs=Server.CreateObject("ADODB.Recordset")
rs.open"select * from Users where sid='"&sid&"'",conn,1,1
if rs.eof then
response.redirect "login.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&""
end if
if sid<>rs("sid") then
response.redirect "login.asp?url="&Replace(Replace(R_url(),"sid=","sidoo="),"sid=","sidoo=")&""
end if
if rs("hmd")=1 then 
  Call Error("<card title=""出错""><p>你已被全区加黑！")
  end if

myid=rs("id")             'ID

myni=rs("name")           '昵称
photo=rs("photo")         '头像
myjb=rs("myjb")           ' 币数
myjy=rs("myjy")           ' 经验
mysellnum=rs("mysellnum")        
myrelnum=rs("myrelnum")   
myphotonum=rs("myphotonum")   
listnum=rs("listnum")
tjj=rs("tjj")              '在线时间
ChatID=rs("ChatID")        '最后聊天ID
viewnum=rs("viewnum")      '帖子字数
review=rs("review")            '主帖下回复显示个数
relistnum=rs("relistnum")            '回复显示个数
'upsize=rs("upsize")        '上传文件权限,暂时不开放
endleibie=rs("endleibie")  '记录最后类别
keys=rs("keys")            '社区管理员权限
skey=rs("skey")            '版块版主权限
strbbs=rs("strbbs")         '犯人通辑中
gulitime=rs("gulitime")     '犯人释放时间
rs.close
set rs=nothing
'=============更新在线时间============
dim DiffEnd
DiffEnd = 100
if tjj <> "" then
  DiffEnd = DateDiff("s", tjj, NOW())
else
  tjj = (Now() - 1)
end if

IF DiffEnd >= 50 THEN
conn.Execute("update Users set loginIP='"&PassIP&"',tjj=getdate() Where id=" & myid)
END IF


 '============用户解锁============
  if strbbs <> 0 and gulitime <= now() then
    set rs=server.CreateObject("ADODB.RecordSet")
    rs.Open "select ID from hmd where guliid = "&myid,conn,1,2
    if not rs.eof then
      rs.delete
      rs.update
    end if
    rs.close
    set rs=nothing
  end if
  '更新相册
  Dim M_myphotonum
M_myphotonum=conn.execute("Select count(ID) from [upfile] where fid="&myid&" and smallstr=1")(0)
conn.execute("update users  Set myphotonum = "&M_myphotonum&" where ID = "&myID)
%>
<!--#include file="sever.asp"-->