📄 board.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/Board_Config.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.
'****************************************************************
BoardID = trim(request.QueryString("BoardID"))
Board_info BoardID
Board_Config = Application(JBBMasterCookies&"Board_Config"&BoardID)
title = Board_Config(2)
'response.write Board_Config(6)
if Board_Config(6)=true then styleid = Board_Config(5)
%>
<!--#include file="INC/style.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="keywords" content="joinboard,forum,bbs,youmeng,友盟论坛">
<title><%=BBS_Config(0)&" - "&Board_Config(2)%></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""> <a href=""board.asp?BoardID="& BoardID &"""><strong>"& Board_Config(2) &"</strong></a>"
response.Write "</td></tr></table>"
%>
<br>
<table border="0" align="center" cellpadding="3" cellspacing="1" class="table">
<%
'=========================================================
set rsonline = server.CreateObject("adodb.recordset")
rsonline.open "select Uname,usergroup,userid,userhidden from JBB_online where BoardID="&CINT(BoardID) &" order By userid desc",conn,1,1
if Not rsonline.Eof then
onlinecount = rsonline.recordCount
%>
<tr>
<td class="table-title">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td> <img src="<%=BBS_Skin(3)%>img.gif" width="11" height="11">
当前在 <%=Board_Config(2)%> 共 <%=onlinecount%> 人</td>
<td><div align="right"><a href="javascript:this.location.reload()"><img src="images/refresh.gif" width="40" height="12" border="0"></a></div></td>
</tr>
</table></td>
</tr><% if trim(Board_Config(24))<>"" then %>
<tr>
<td class="table-light">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="70"> <strong> 版主寄语:</strong></td>
<td width="90%">
<script language="JavaScript">
ns4=(document.layers)?true:false
if (ns4)
{
document.write("<div name=divOuter>")
document.write(" <layer name=divmq onMouseover='Javascript:mvStop()' onMouseout='Javascript:mvUp()'>")
}
else
{
document.write("<marquee direction=\"left\" scrolldelay=50 scrollamount=3 width=100% height=18 truespeed onMouseOver=\"this.stop()\" onMouseOut=\"this.start()\">")
}
</script> <font color="<%=Board_Config(25)%>"><%=Board_Config(24)%></font>
<script language="Javascript">
if (ns4)
{
document.write(" </layer>")
document.write("</div>")
}
else
{
document.write("</marquee>")
}
</script>
</td>
</tr>
</table></td>
</tr><% end if %>
<tr>
<td class="table-dark">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
for o_tr = 1 to onlinecount
if rsonline.eof then exit for
%>
<tr>
<%
for o_td = 1 to 6
if rsonline.eof then exit for
%>
<td> <%
if rsonline(1) <= 6 then
userimg="<img src=images/"& rsonline(1) &".gif>"
End if
if rsonline(0) <> "游客" then
if rsonline("userhidden") and usergroup <> 1 then
response.Write("<img src=images/7.gif> 隐身会员")
else
response.Write(userimg+"<a href=""user.asp?userid="& rtrim(rsonline(2)) &""">"&rtrim(rsonline(0))&"</a>")
End if
else
response.Write(userimg & rtrim(rsonline(0)))
End if
%> </td>
<%
rsonline.MoveNext
Next
%>
</tr>
<%
Next
%>
</table></td>
</tr>
<%
End if
rsonline.close
set rsonline = Nothing
%>
</table>
<%
'response.write Board_Config(17)&user_group(2)
if Board_Config(18) = True then
if usergroup <= 4 then
enter = true
End if
else
enter = true
End if
if enter <> true Or user_group(2) <> true then
ShowMsg "对不起!~您没有权限进入此论坛，请点击 <a href=""javascript:history.back()"">这里</a> 返回."
Call Bottom()
response.End
End if
%>
<table height="38" border="0" align="center" cellpadding="0" cellspacing="0" class="table-noColor">
<tr>
<td width="18"><img src="<%=BBS_Skin(3)%>team.gif" alt="本版版主" border="0"></td>
<td>
<%
response.write " ("
response.write Board_Config(26)
response.write ") "
best = trim(request.QueryString("best"))
if best = "yes" then
best = " and bestpost=1"
bestpage = "&best=yes"
response.Write("<img src=""images/showbest.gif""> <a href=""?BoardID="& BoardID &""">查看全部贴子</a>")
else
response.Write("<img src=""images/showbest.gif""> <a href=""?BoardID="& BoardID &"&best=yes"">查看本版精华</a>")
End if
'--------------------------
%> </td>
<%
if usergroup <= 3 then
response.Write"<td><div align=""right""><a href=""admin_announcement.asp?action=add&boardID="& BoardID &""">发布公告</a> <a href=""Mod_clueon.asp?BoardID="& BoardID &""">管理版主寄语</a></div></td>"
end if
if Reads <> true or usergroup <= 4 then
%>
<td> <div align="right"><a href="newthread.asp?BoardID=<%=BoardID%>"><img src="<%=BBS_Skin(3)%>postnew.gif" border="0"></a></div></td>
<td width="80"> <div align="right"><a href="newvote.asp?BoardID=<%=BoardID%>"><img src="<%=BBS_Skin(3)%>votenew.gif" border="0"></a></div></td>
<%End if%>
</tr>
</table>
<%
response.write "<table border=""0"" align=""center"" cellpadding=""3"" cellspacing=""1"" class=""table"">"
response.write "<form name=""threadForm"" id=""threadForm"" method=""post"" action="""">"
response.write "<tr class=""table-title"">"
response.write "<td width=""26"" class=""table-title""><div align=""center"">图例</div></td>"
response.write "<td colspan=""2"" class=""table-title"">"
response.write "<div align=""center"">主 题</div></td>"
response.write "<td width=""80"" class=""table-title""> <div align=""center"">作者</div></td>"
response.write "<td width=""30"" class=""table-title""> <div align=""center"">点击</div></td>"
response.write "<td width=""30"" class=""table-title""> <div align=""center"">回复</div></td>"
response.write "<td width=""220"" class=""table-title""> <div align=""center"">最后回复</div></td>"
'批量选择
if usergroup <= 3 then
response.write "<td width=""10"" class=""table-title""></td>"
end if
response.write "</tr>"
'--------------------公告-------------------------
set rsa = server.CreateObject("adodb.recordset")
sqla = "select JBB_user.userid,JBB_user.username,JBB_announcement.ID,JBB_announcement.title,JBB_announcement.content,JBB_announcement.times from JBB_announcement left JOIN JBB_user On(JBB_announcement.userid=JBB_user.userid) where JBB_announcement.BoardID=0 Or JBB_announcement.BoardID="&BoardID &" order By JBB_announcement.ID Desc"
rsa.open sqla,conn,1,1
if Not rsa.eof then
for an = 1 to rsa.recordCount
response.write "<tr>"
response.write "<td class=""table-light""><div align=""center""><img src="""&BBS_Skin(3)&"ann.gif"">"
response.write "</div></td>"
response.write "<td colspan=""2"" class=""table-dark""><strong>论坛公告:</strong><a href=""announcement.asp?ID="& rsa("ID") &""" target=""_blank"">"& rtrim(rsa("title")) &"</a></td>"
response.write "<td width=""80"" class=""table-light""><div align=""center""><a href=""user.asp?userID="& rsa("userID") &""" target=""_blank"">"& rtrim(rsa("username")) &"</a></div></td>"
response.write "<td width=""30"" class=""table-dark""><div align=""center"">-</div></td>"
response.write "<td width=""30"" class=""table-light""><div align=""center"">-</div></td>"
response.write "<td width=""220"" class=""table-dark""> <div align=""right"">"&rtrim(rsa("times"))&"</div></td>"
'批量选择
if usergroup <= 3 then
response.write "<td class=""table-light""></td>"
end if
response.write "</tr>"
rsa.MoveNext
Next'an
End if
rsa.close
set rsa = nothing
'------------------主题--------------------------
iPageSize = 30
Set Cs=Conn.Execute("Select Count(*) As totalcount From JBB_thread where Board_ID="&BoardID & best)
totalcount = Cs("totalcount") '记录总数
If totalcount Mod iPageSize = 0 Then
totalpages = Int(totalcount/iPageSize)
Else
totalpages = Int(totalcount/iPageSize)+1
End If
If IsNumeric(Request("page")) Then
If Request("page")<1 Or Int(Request("page"))>totalpages Then
currentpage = 1
Else
currentpage = Request("page")
End If
Else
currentpage=1
End If
currentcount = (currentpage-1)*iPageSize+1
set Cs = nothing
'-----------------
set rst = server.CreateObject("adodb.recordset")
sqlt = "select Top " & currentcount & " threadID,lastpost,displayorder from JBB_thread where Board_ID="&BoardID & best &" order by displayorder desc,lastpost desc"
rst.open sqlt,conn,1,1
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -