online.asp

本程序蓝本为6kbbs 默认前台管理员的帐号是:woodcoal

<!--#include file="conn.asp"-->
<!--#include file="inc/fun.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script>
if (top.location==self.location)
  {
   top.location="index.asp"
  }
</script>
<link rel=stylesheet type=text/css href=inc/Comm.css>
<%
dim onlinetj,sql,onnum,i,nowon,pic,lasttime,usertype,bd,lguserid
bd=checknum(request.querystring("bd"))
usertype=checknum(session(prefix&"usertype"))
onlinetj=request.querystring("onlinetj")
if onlinetj="index" then sql="select*from online order by userid desc"
if onlinetj="bd" then sql="select*from online where onbd="&bd&" order by userid desc"
set rs = server.createobject("adodb.recordset")
rs.Open sql,conn,1
onnum=rs.recordcount
%>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width=100% >
<tr>
<%
dim td,onlinename,action,seeuser,uip
td=1
uip=Request.ServerVariables("REMOTE_ADDR")

for i=1 to onnum
td=td+1
nowon=rs("nowon")
if isnull(nowon) or nowon="" then nowon="论坛首页"
onlinename=rs("name")
pic=rs("pic")
if pic=0 then onlinename="游客"
if rs("showyn")=false then onlinename="隐士":pic=6
lasttime=rs("lasttime")
if datediff("n",lasttime,now)<10 then
action="[<font color=red>活跃</font>]"
else
action="[<font color=#808080>发呆</font>]"
end if
if usertype>=4 then
seeuser=rs("ip")
else
seeuser="保密"
end if
seeuser="最后更新："&lasttime+timeset/24&"&#13;&#10;IP 地 址："&seeuser&"&#13;&#10;当前位置："&nowon&""
%>  <td width=20% ><img src=pic/<%=pic%>.gif border=0><a <%If pic<>0 Then%><%if rs("showyn")<>false Or (rs("showyn")=false And usertype>=4) then%>href="userinfo.asp?userid=<%=rs("userid")%>" target="_blank"<%End If%><%End If%> title="<%If rs("userid")<>0 And rs("userid")=session(prefix&"lguserid") Then%><%End If%><%If rs("userid")=0 And rs("ip")=uip Then%><%End If%><%=seeuser%>"><%If rs("userid")<>0 And rs("userid")=session(prefix&"lguserid") Then%><font color="#0000FF">&nbsp;<%=kbbs(onlinename)%>&nbsp;</font><%Elseif rs("userid")=0 And rs("ip")=uip Then%><font color="#99CC33">&nbsp;<%=kbbs(onlinename)%>&nbsp;</font><%Else%>&nbsp;<%=kbbs(onlinename)%>&nbsp;<%End If%></a><%=action%></td>
<%
if td>5 then
%></tr>
<tr>
<%
td=1
End If
rs.movenext
next
rs.close
set rs=nothing
%></tr>
</table>