<% '==============会员资料如下============== dim myid,myni,myjb,tjj,keys,vipdj,vipdate set rs=Server.CreateObject("ADODB.Recordset") rs.open"select id,name,myjb,myjy,tjj,keys,vipdj,vipdate from Users where sid='"&RequestStr(sid)&"'",conn,1,1 if rs.eof then myid=0 myni="网友" myjb=0 myjy=0 vipdj=0 keys = 0 '--------会员初始化设置-------------- ELSE myid=rs("id") 'ID myni=rs("name") '昵称 myjb=rs("myjb") ' 币数 myjy=rs("myjy") ' 经验 vipdj=rs("vipdj") ' VIP等级 vipdate=rs("vipdate") ' VIP等级 tjj=rs("tjj") '在线时间 keys=rs("keys") '社区管理员权限 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 operout<>"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 operout end if end if '最新文章 function newtitle(num,relid) dim a,rs1,gettest if relid<>0 then gettest="where classid="&relid end if set rs1 = server.createobject("adodb.recordset") rs1.open"select id,test,title,classid,hit from sms "&gettest&" order by id desc",conn,1,1 If rs1.eof Then response.write("还没有文章！
") else rs1.Move(0) a=1 do while ((not rs1.EOF) and a <=num) response.write""&UBB(rs1("title"))&"
" rs1.MoveNext a=a+1 loop end if rs1.close set rs1=nothing end function '最热文章 function hottitle(num,relid) dim rs2,b if relid<>0 then gettest="where classid="&relid end if set rs2 = server.createobject("adodb.recordset") rs2.open"select id,test,title,hit,classid from sms "&gettest&" order by hit desc",conn,1,1 If rs2.eof Then response.write("还没有文章！
") else rs2.Move(0) b=1 do while ((not rs2.EOF) and b <=num) response.write""&UBB(rs2("title"))&"
" rs2.MoveNext b=b+1 loop end if rs2.close set rs2=nothing end function '随机文章 function wendtitle(num,relid) dim rs3 if relid<>0 then gettest="where classid="&relid end if set rs3 = server.createobject("adodb.recordset") rs3.open"select top "&num&" id,test,title,hit,classid from sms "&gettest&" order by NEWID()",conn,1,1 while not rs3.EOF response.write""&UBB(rs3("title"))&"
" rs3.MoveNext wend rs3.close set rs3=nothing end function '最新图片 function newpic(num,relid) dim e,rs7 if relid<>0 then gettest="where typeID=1 and lid="&relid else gettest="where typeID=1 " end if set rs7 = server.createobject("adodb.recordset") rs7.open"select id,lid,name,idd from wjfile "&gettest&" order by id desc",conn,1,1 If rs7.eof Then response.write("还没有文件！
") else rs7.Move(0) e=1 do while ((not rs7.EOF) and e <=num) response.write""&UBB(rs7("name"))&"
" rs7.MoveNext e=e+1 loop end if rs7.close set rs7=nothing end function '最热图片 function hotpic(num,relid) dim f,rs8 if relid<>0 then gettest="where typeID=1 and lid="&relid else gettest="where typeID=1 " end if set rs8 = server.createobject("adodb.recordset") rs8.open"select id,lid,name,idd from wjfile "&gettest&" order by hit desc",conn,1,1 If rs8.eof Then response.write("还没有文件！
") else rs8.Move(0) f=1 do while ((not rs8.EOF) and f <=num) response.write""&UBB(rs8("name"))&"
" rs8.MoveNext f=f+1 loop end if rs8.close set rs8=nothing end function '随机图片 function wendpic(num,relid) dim rs9 if relid<>0 then gettest="where typeID=1 and lid="&relid else gettest="where typeID=1 " end if set rs9 = server.createobject("adodb.recordset") rs9.open"select top "&num&" id,lid,name,idd from wjfile "&gettest&" order by NEWID()",conn,1,1 while not rs9.EOF response.write""&UBB(rs9("name"))&"
" rs9.MoveNext wend rs9.close set rs9=nothing end function dim onlineip onlineip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") if onlineip="" then onlineip = Request.ServerVariables("REMOTE_ADDR") 'lonline为会员离线时间 if myid=0 then '判断用户未登录 set rs=Server.CreateObject("ADODB.Recordset") rs.open"select id,times,onlineip,online,name,userid from online where id='"&session.sessionid&"'",conn,1,2 if rs.eof then rs.addnew end if rs("id")=session.sessionID rs("online")=0 rs("onlineip")=onlineip rs("times")=now() rs("name")="游客"&session.sessionid rs("userid")=0 rs.update rs.close set rs=nothing else set rs=Server.CreateObject("ADODB.Recordset") rs.open"select id,times,onlineip,online,name,userid from online where id='"&session.sessionid&"' or userid="&myid,conn,1,2 if rs.eof then rs.addnew end if rs("id")=session.sessionID rs("online")=1 rs("onlineip")=onlineip rs("times")=now() rs("name")=myni rs("userid")=myid rs.update rs.close set rs=nothing end if %>