disonline.asp

仿雅虎论坛静态生成html版 后台管理：admin/admin.asp 用户名：admin 密码：admin TOP/top.htm 顶部模板 left.htm 左边树形菜单模板

<!--#include file="const.asp"-->
<!--#include file="BtBBS_Fun.asp"--><%
Dim login,StarTime,EndTime,AccessNum,Online1,OnlineNum,page
login=Request.Cookies("login")
Call JCC_Board_Top
StarTime = Timer():AccessNum=0
'----------计算页的位置-----------------------
page=Request("page")
If IsNumeric(page)=False then page=1:page=cint(page) end if
if page="" or page<=0 then page=1 end if
'-------------------------------------------------
Call Login_EN
Response.Write "<center><table width=743><tr><td colspan=3 height=30 class=light>&nbsp;<img src=../images/nav.gif>&nbsp;<a href=index.asp><font class=NavColor>论坛首页</a>&nbsp;>>&nbsp;在线情况&nbsp;>>&nbsp;</font><a href=# onclick=history.go(-1)><font class=NavColor>返回</font></a>&nbsp;<script src=online.asp?userwz=在线情况></script></td></tr></table></center>"
Response.Write "<center><table  border=0 width=743 cellspacing=0 cellpadding=0 align=center class=table1><tr align=center><td height=27 class=TBHead><font class=headfont><b>用户名</b></font></td><td width=350 class=TBHead><font class=headfont><b>所在位置</b></font></td><td width=150 class=TBHead><font class=headfont><b>IP地址</b></font></td><td class=TBHead><font class=headfont><b>登陆时间</b></font></td></tr>"
if Len(Application(BBSname&"Online"))<1 then
    Response.Write "<tr><td height=27 colspan=6><center>没有在线用户</center></td></tr>"
else
    Online1=Split(Application(BBSname&"Online"),"#")
    Onlinenum=UBound(Online1)

    pageNum=int((Onlinenum+1)/ListNum) '计算页数
    if pageNum<1 then pageNum=1 end if
    if Onlinenum+1>pageNum*ListNum then pageNum=PageNum+1 end if
  
    if cint(page)>PageNum then page=pageNum end if

    If Onlinenum+1>listnum and page>1 then j=(page-1)*Listnum else j=0 end if
    i=j
    while i<j+20 and i<=Onlinenum
        Online2=Split(Online1(i),"|")
        IpDress=Split(Online2(4),".")
        IpDress3=IpDress(0)&"."&IpDress(1)&"."&IpDress(2)&".*"
        Response.Write "<tr><td height=27 align=center class=light>&nbsp;"&Online2(1)&"</td><td class=light>&nbsp;"&Online2(3)&"</td><td class=light align=center>&nbsp;"&IpDress3&"</td><td align=center class=light>&nbsp;"&Online2(6)&"</td></tr>"
        i=i+1
    wend
end if
'----------------翻页
%></form><form name=dislist  method=post action=DisOnline.asp><table border=0 width=743 cellspacing=0 cellpadding=0 class=table1 height=28><tr><td width=250>第<%=page%>页&nbsp;共<%=pageNum%>页&nbsp;本页<%=ListNum%>条&nbsp;在线数&nbsp;<%=Onlinenum+1%></td><td valign=top align=right><%=Pagination(pageNum,Bmid)%> &nbsp;跳转到第<INPUT  class=fminpt name=page type=text size=3>页<input type=image src=../images/sch.gif border=0 id=image1 name=dislist WIDTH=17 height=14 align=absmiddle><img src=../images/null.gif width=5 height=2></td></tr></table></table></center><%

EndTime = Timer()
%>
<!--#include file="../inc/tom1.inc"-->