📄 onlinelist.asp

📁 BBS论坛的开发和设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="admin/BBSConfig.asp"-->
<!--#include file="INC/online.asp"-->
<!--#include file="INC/ShowMsg.asp"-->
<!--#include file="INC/header.asp"-->
<!--#include file="INC/style.asp"-->
<%
'****************************************************************
'*  joinboard BBS Ver2.3.0/友盟论坛 Ver2.3.0
'*
'*  版权所有: JoinBoard V2.3
'*
'*  程序制作: 友盟工作室
'*           
'*  主页地址: http://joinboard.com    友盟论坛
'*
'*  论坛地址: http://bbs.joinboard.com/、http://youmeng.com
'*	                 
'****************************************************************
'*  Powered by: JoinBoard V2.3
'*　Copyright 2003－2004.  - All Rights Reserved.
'*  JoinBoard is a trademark of YouMeng Studio.
'****************************************************************

%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<meta http-equiv="refresh" content="30">
<title><%=BBS_Config(0)%> - 在线用户</title>
<link href="<%=Css_path%>" rel="stylesheet" type="text/css">
</head>
<body leftmargin="0" topmargin="0">
<%
Call onlineuser()
call top()

response.Write "<table border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"" class=""path-table"">"
response.Write "<tr><td>"
response.write "<img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <a href="""& BBSHomeUrl &""">"& BBS_Config(0) &"</a> <img src="""& BBS_Skin(3) &"JBB_bullet.gif""> <strong>在线用户</strong>" 
response.Write "</td></tr></table>"

if user_group(20) = true then viewonline = true
if user_group(21) = true then viewonlineip = true
if viewonline <> true then
	loginform "您不可以查看在线会员或者您还没有登录，如果您还不是本站会员，请<a href=""register.asp?action=agree"">注册</a>"
	Call Bottom()
	response.End()
End if
'----------------------------------------
set rs = server.CreateObject("adodb.recordset")
rs.open "select Uname,times,usergroup,userid,userip,thread_title,threadID,title,BoardID,act,userhidden From JBB_online order by usergroup asc",conn,1,1
if Not(rs.eof and rs.bof) then
%>
<table border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
  <tr>
    <td height="28">当前共:<strong><%=rs.recordCount%></strong> 位用户在线</td>
  </tr>
</table>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
  <tr class="table-title"> 
    <td>用户名</td>
    <td>悄悄话</td>
    <td>当前动作</td>
    <td>所在论坛</td>
    <td>所在主题</td>
    <td>最后活动</td>
    <%
	if viewonlineip = true then
	response.Write("<td bgcolor="&table_title_color&">用户IP</td>")
	End if
	%>
  </tr>
  <%
  color2 = 0	
	for i = 1 to rs.recordCount
	Uname = rs("Uname")
		if color2 mod 2 = 0 then 
			color1 = "Class=""table-dark"""
		else 
			color1 = "Class=""table-light"""
 		end if
	%>
  <tr <%=color1%>> 
    <td> 
      <%
	if rs("usergroup") <= 6 then
		userimg="<img src=images/"& rs("usergroup") &".gif>"
	End if
	if Uname <> "游客" then
		if rs("userhidden") and usergroup <> 1 then
			response.Write("<img src=images/7.gif> 隐身会员")
		else
			response.Write(userimg+"<a href=""user.asp?userid="&rs("userid")&""">"& Uname &"</a>")
		End if
	else
	response.Write(userimg+"游客")
	End if
	%>
    </td>
    <td> 
      <%
	 if Uname <> "游客" then
	  	if rs("userhidden") and usergroup <> 1 then
		else
			response.Write("<a title =""给 "& Uname &" 发送悄悄话"" href=""pm.asp?action=addpm&touser="&Uname&""">PM</a>")
		End if
	End if%>
    </td>
    <td><%=rs("act")%></td>
    <td>
<%response.Write"<a href=""Board.asp?BoardID="&rs("BoardID")&""">"&rs("title")&"</a>"%>
    </td>
    <td> 
      <%response.Write"<a href=""showthread.asp?threadID="&rs("threadID")&""">"&rs("thread_title")&"</a>"%>
    </td>
    <td><%=formatDateTime(rs("times"),4)%></td>
    <%
	if viewonlineip = true then
	response.Write("<td>"&rs("userIP")&"</td>")
	End if
	%>
  </tr>
  <%
  rs.MoveNext
  color2=color2+1
  Next'i
  %>
</table>
<%
End if
rs.close
set rs = Nothing
%>
<table height="35" border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
  <tr> 
    <td width="34%">&nbsp;</td>
    <td width="66%"><div align="right">论坛跳转: 
        <select name="select" onchange="if(this.options[this.selectedIndex].value != '') {
window.location=('Board.asp?BoardID='+this.options[this.selectedIndex].value+'') }">
          <%
			set rs = server.CreateObject("adodb.recordset")
			sql = "select JBB_Class.Class_name,JBB_Class.Class_ID,JBB_Board.BoardID,JBB_Board.title From JBB_board left join JBB_Class on (JBB_Board.ClassID = JBB_Class.Class_ID) order By JBB_Class.Class_order,JBB_Board.Boardorder asc"
			rs.open sql,conn,1,1
			if Not(rs.Bof and rs.Eof) then
				id = 0
				for board = 1 to rs.recordCount
				if id <> rs("Class_id") then
         			response.Write"<option value="""">"&rtrim(rs("Class_name"))&"</option>"
					id = rs("Class_id")
				End if
				response.Write"<option value="""& trim(rs("BoardID")) &""">　　"&rtrim(rs("title"))&"</option>"
				rs.MoveNext
				Next
			End if
			rs.Close
			set rs = Nothing
			%>
        </select>
      </div></td>
  </tr>
</table>
<%
'========================================
Call Bottom()
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -