?? onlinelist.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%"> </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 + -