你已被全区加黑！") end if myid=rs("id") 'ID myni=rs("name") '昵称 myjb=rs("myjb") ' 币数 myjy=rs("myjy") ' 经验 vipdj=rs("vipdj") ' VIP等级 listnum=rs("listnum") tjj=rs("tjj") '在线时间 viewnum=rs("viewnum") '帖子字数 review=rs("review") '主帖下回复显示个数 relistnum=rs("relistnum") '回复显示个数 endleibie=rs("endleibie") '记录最后类别 keys=rs("keys") '社区管理员权限 skey=rs("skey") '版块版主权限 strbbs=rs("strbbs") '犯人通辑中 gulitime=rs("gulitime") '犯人释放时间 adminzone=rs("adminzone") if adminzone=0 then adminzone=999999999 END IF 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='"&User_Ip&"',tjj=Now() 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 if bbsopera<>"http://" And keys <> 1 Then'社区管理员不禁止 browsers=Lcase(Left(Request.ServerVariables("HTTP_USER_AGENT"),4)) browsers2=Lcase(Request.ServerVariables("HTTP_USER_AGENT")) 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" OR instr(browsers2,"msie")>0 or instr(browsers2,"openwave")>0 or instr(browsers2,"oper")>0 or instr(browsers2,"winw")>0 then response.redirect bbsopera end if end if %>