📄 boards.asp
字号:
<!-- #include file=inc/BBSsetup.asp -->
<!-- #include file=inc/User_Setup.ASP -->
<!-- #include file=inc/Board_Popfun.asp -->
<%
DEF_PubMessageEnable = 1
GBL_CHK_PWdFlag = 0
Dim LMT_SimpleHomePage '是否为简约首页
LMT_SimpleHomePage = 0
If Request.QueryString("S") = "1" Then LMT_SimpleHomePage = 1
Dim GBL_ID
Dim GBL_REQ_Assort,GBL_TopicNum,GBL_AnnounceNum,GBL_GoodNum,GBL_TodayAnnounce,GBL_StartBoard
Dim GBL_OnlineUserNum,GBL_UserCount,GBL_MaxOnline,GBL_OnlineTime,GBL_MaxolTime,GBL_PageCount,GBL_UploadNum
Dim GBL_MaxAnnounce,GBL_MaxAncTime,GBL_YesterdayAnc
Dim Blist,BoardNum
Blist = Application(DEF_MasterCookies & "BList")
Function CheckAssort
GBL_REQ_Assort = Left(Request.QueryString("Assort"),14)
If isNumeric(GBL_REQ_Assort)=0 Then GBL_REQ_Assort=0
GBL_REQ_Assort = Fix(cCur(GBL_REQ_Assort))
Dim BoardNum,N,TempArray
GBL_StartBoard = 0
If GBL_REQ_Assort > 0 and isArray(Blist) = True Then
BoardNum = Ubound(Blist,2)
For N = 0 to BoardNum
If GBL_REQ_Assort = cCur(Blist(1,n)) Then
TempArray = Application(DEF_MasterCookies & "BoardInfo" & Blist(0,n))
If isArray(TempArray) = True Then
GBL_Board_BoardAssort = cCur(TempArray(1,0))
GBL_Board_AssortName = TempArray(14,0)
GBL_StartBoard = N
Exit For
Else
GBL_REQ_Assort = 0
GBL_Board_BoardAssort = 0
GBL_Board_AssortName = ""
Exit For
End If
End If
Next
If N > BoardNum Then GBL_REQ_Assort = 0
Else
GBL_REQ_Assort = 0
GBL_Board_BoardAssort = 0
GBL_Board_AssortName = ""
End If
If cCur(GBL_ShowBottomSure) = 0 and GBL_REQ_Assort > 0 Then GBL_SiteBottomString = ""
End Function
Function DisplayBoard
Dim Temp,Flag
Flag = 0
Dim GetData
If isArray(Blist) = True Then
BoardNum = Ubound(Blist,2)
Else
ReloadBoardListData
Blist = application(DEF_MasterCookies & "BList")
If isArray(Blist) = True Then
BoardNum = Ubound(Blist,2)
Else
BoardNum = -1
End if
End If
'Response.Write "fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1)):"&fix(abs(CDBL(Timer)*1000 - DEF_PageExeTime1))
'DEF_PageExeTime1=Timer * 1000
%>
<table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center>
<tr><td><%=GBL_TableHeadString%></td></tr></table>
<table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=1 cellpadding=5 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<tr bgcolor=<%=DEF_BBS_LightDarkColor%>>
<td class=TBHead><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>〓 最新话题 〓</font><b></td>
<td class=TBHead><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>〓 热门话题 〓</font><b></td>
<td class=TBHead><img src=images/blank.gif width=2 height=3><br><b><font color=ffffff class=HeadFont>〓 用户登录 〓</font><b></td>
</tr>
<tr bgcolor=<%=DEF_BBS_LightestColor%> class=TBBG9>
<td width=38%>
<script language=javascript src=./other/article/topic.asp?TORA=1&Number=6&STime=0&StrLen=24&Hits=0></script>
</td>
<td width=38%>
<script language=javascript src=./other/article/topic.asp?TORA=1&Hotflag=1&Number=6&STime=0&StrLen=24&Hits=0></script>
</td>
<td width=24%>
<%If GBL_CHK_User <> "" Then%>
<%If GBL_CHK_User <> "" Then
Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/user.gif> 用 户 名：<a href=User/LookUserInfo.asp?name=" & GBL_CHK_User & ">" & GBL_CHK_User & "</a><br>"
Response.Write "<img src=images/null.gif width=2 height=2><br><img src=images/user_jy.gif> 经 验 值：" & CLng(cCur(GBL_CHK_OnlineTime)/60)
End If%>
<br>
<%If GBL_CHK_User <> "" Then
Response.Write "<img src=images/emoney.gif> " & DEF_PointsName & "：" & GBL_CHK_Points
End If%>
<br><img src=images/red_g.gif> 浏 览 器：<%=GetSBInfo(Request.ServerVariables("HTTP_USER_AGENT"),1)%>
<br><img src=images/red_g.gif> 操作系统：<%=GetSBInfo(Request.ServerVariables("HTTP_USER_AGENT"),2)%>
<br><img src=images/red_g.gif> ＩＰ：<%=GBL_IPAddress%>
<br><br>新进来宾：<%DisplayUserNewest%>
<%
else
%>
<table border=0 cellspacing=1 cellpadding=6 align=center bgcolor=<%=DEF_BBS_DarkColor%> class=TBone>
<form action=User/login.asp method="post">
<tr>
<table border=0 cellspacing=0 cellpadding=0 width='100%'>
<tr align=center>
<td width='70%'>
<table border=0>
<form name=login_frm method=post action='login.asp?action=login_chk' onsubmit="return login_true()">
<tr>
<td>
<p align="right">用户:</p>
</td>
<td><input name=user type=text maxlength=20 size=10 value="<%=htmlencode(GBL_CHK_user)%>" class=fminpt></td>
<tr>
<td>
<p align="right">密码:</p>
</td>
<td><input name=pass type=password maxlength=20 size=10 value="<%=htmlencode(GBL_CHK_pass)%>" class=fminpt>
</td>
</tr>
<tr>
<td colspan="2"><Select name=CkiExp>
<option value="-1">无效
<option value="365">一年
<option value=1>一天
<option value=2>两天
<option value=7>一周
<option value=31>一月
</select> <input type=submit value="登录" class=fmbtn>
</td>
</tr>
</form></table>
</td>
<tr><td align=center>
<table border=0>
<tr>
<td><a href='User/UserJoin.asp'>免费注册</a></td>
<td width=5></td>
<td><a href='User/UserGetPass.asp'>忘记密码</a></td>
</tr>
</table>
</td></tr>
</table>
<% end if %>
</tr>
</table>
<table width=<%=DEF_BBS_ScreenWidth%> border=0 cellspacing=0 cellpadding=0 align=center><tr><td><%=GBL_TableBottomString%></td></tr></table>
<td align=left valign=top><img src=images/null.gif width=2 height=3></td>
<%
If BoardNum = -1 Then
Response.Write "<table width=" & DEF_BBS_ScreenWidth & " border=0 cellspacing=1 cellpadding=6 align=center bgcolor=" & DEF_BBS_DarkColor & " class=TBone><tr bgcolor=" & DEF_BBS_LightestColor & " class=TBBG9><td colspan=4>找不到任何版面</td></tr></table>"
Else%>
<script language=javascript>
var num=0,CurrentAssosrt = 0,Flag=0;
var GBL_TableBottomString = "<%=Replace(Replace(Replace(GBL_TableBottomString,"\","\\"),"""","\"""),VbCrLf,"\n")%>";
var GBL_TableHeadString = "<%=Replace(Replace(Replace(GBL_TableHeadString,"\","\\"),"""","\"""),VbCrLf,"\n")%>";
var DEF_BBS_ScreenWidth = "<%=DEF_BBS_ScreenWidth%>";
var GBL_DefineImage = "<%=GBL_DefineImage%>";
<%
If LMT_SimpleHomePage = 1 Then
If GetBinarybit(GBL_TempletFlag,1) = 1 Then
Server.ExeCute("inc/Templet/" & GBL_TempletID & "_0.JS")
Else%>
function displayboard(BoardID,BoardAssort,BoardName,AssortName)
{
var n;
if(CurrentAssosrt!=BoardAssort)
{
CurrentAssosrt = BoardAssort
if(Flag == 1)
{
if(num>0){for(n=num;n<5;n++)document.write("<td width=20%> </td>");}
document.write("</table>");
if(GBL_TableBottomString != "")document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>" + GBL_TableBottomString + "</td></tr></table>");
document.write("<br>");
}
if(GBL_TableHeadString != "")document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>" + GBL_TableHeadString + "</td></tr></table>");
document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=1 cellpadding=5 align=center bgcolor=#cccccc class=TBone><tr bgcolor=#666699><td colspan=5 class=TBHead><img src=images/blank.gif width=2 height=3><br><a href=Boards.asp?Assort=" + BoardAssort + "><b><font color=white class=HeadFont>" + AssortName + "</font></b></a></td></tr>");
Flag = 1;
num=0;
}
if((num%5)==0)document.write("<tr bgcolor=#f7f7f7 class=TBBG9>");
document.write("<td width=20%><a href=Board/Board.asp?BoardID=" + BoardID + ">" + BoardName + "</a></td>");
num+=1;
if(num>4)num=0;
}<% End If
Else
If GetBinarybit(GBL_TempletFlag,2) = 1 Then
Server.ExeCute("inc/Templet/" & GBL_TempletID & "_1.JS")
Else%>
function displayboard(BoardID,BoardAssort,BoardName,BoardIntro,LastWriter,LastWriteTime,TopicNum,AnnounceNum,ForumPass,LastAnnounceID,LastTopicName,MasterList,BoardLimit,AssortName,TodayAnnounce,GoodNum,BoardImgUrl,BoardImgWidth,BoardImgHeight,onlineUser,LowerBoard)
{
var Temp = 0;
if(CurrentAssosrt!=BoardAssort)
{
CurrentAssosrt = BoardAssort
if(Flag == 1)
{ document.write("</table>");
if(GBL_TableBottomString != "")document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>" + GBL_TableBottomString + "</td></tr></table>");
document.write("<br>");
}
if(GBL_TableHeadString != "")document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=0 cellpadding=0 align=center><tr><td>" + GBL_TableHeadString + "</td></tr></table>");
document.write("<table width=" + DEF_BBS_ScreenWidth + " border=0 cellspacing=1 cellpadding=5 align=center bgcolor=#cccccc class=TBone><tr bgcolor=#666699><td colspan=4 class=TBHead><img src=images/blank.gif width=2 height=3><br><a href=Boards.asp?Assort=" + BoardAssort + "><b><font color=white class=HeadFont>" + AssortName + "</font></b></a></td></tr>");
Flag = 1;
}
document.write("<tr bgcolor=#f7f7f7 align=center class=TBBG9><td width=25 bgcolor=eeeeee class=TBBG1><img src=images/" + GBL_DefineImage + "BoardTopic/");
if(TodayAnnounce > 0)document.write("_");
if(ForumPass!="")
{
document.write("lock.gif title=保密论坛");
}
else
{
if(BoardLimit&(1<<(7-1)))
{
document.write("lock3.gif title=版主专区");
}
else
{
if((BoardLimit&(1<<(4-1))) && (BoardLimit&(1<<(3-1))) && (BoardLimit&(1<<(6-1))))
{
document.write("readonly.gif title=只读论坛");
}
else
{
if(BoardLimit&(1<<(2-1)))
{
document.write("lock2.gif title=正式会员论坛");
}
else
{
if(BoardLimit&(1<<(1-1)))
{
document.write("lock1.gif title=注册认证论坛");
}
else
{
if(BoardLimit&(1<<(9-1)))
{
document.write("open.gif title=开放论坛");
}
else
{
document.write("1.gif title=常规论坛");
}
}
}
}
}
}
document.write(" width=24 height=24></td>");
document.write("<td align=Left><table width=100% border=0 cellspacing=0 cellpadding=0>");
if(BoardImgUrl != "" && BoardImgUrl != null)document.write("<tr><td rowspan=4 width=" + BoardImgWidth + " valign=top><img src=images/null.gif width=2 height=3><br><a href=Board/Board.asp?BoardID=" + BoardID + "><img src=\"" + BoardImgUrl + "\" width=" + BoardImgWidth + " height=" + BoardImgHeight + " border=0></a></td><td width=4 rowspan=4><img src=images/null.gif width=2 height=2></td></tr>");
document.write("<tr height=20><td><a href=Board/Board.asp?BoardID=" + BoardID + ">" + BoardName + "</a>");
document.write("</td><td align=right rowspan=2 valign=top><img src=images/null.gif width=2 height=2><br><a href=announce/announce2.asp?BoardID=" + BoardID + "><img src=images/" + GBL_DefineImage + "BoardTopic/post.gif height=11 width=9 border=0 title=在此论坛发表新帖子></a><br><img src=images/null.gif width=2 height=5><br><a href=Board/EBoard.asp?BoardID=" + BoardID + "><img src=images/" + GBL_DefineImage + "BoardTopic/elist.gif height=11 width=9 border=0 title=查看精华区内容(共" + GoodNum + "精华帖子)></a></td></tr>");
document.write("<tr height=11><td>");
document.write(BoardIntro);
document.write("</td>");
document.write("<tr height=11><td colspan=2>");
document.write("<img src=images/null.gif height=2 width=192><br>版主：");
DisplayBoardMastList(MasterList,5);
document.write("</tr></table></td>");
document.write("<td align=Left width=80 valign=top><img src=images/null.gif height=2 width=2><br>主题 <b>" + TopicNum + "</b><br><img src=images/null.gif height=4 width=2><br>新帖 <b><font color=#666699 class=TBtwofont>" + TodayAnnounce + "</font></b><br><img src=images/null.gif height=4 width=2><br>总量 <b>" + AnnounceNum + "</b></td>");
document.write("<td align=left width=222 valign=top><img src=images/null.gif height=2 width=2><br>");
if(LastTopicName == "" || LastTopicName==null)
{
document.write("主题：无");
}
else
{
if(strlength(LastTopicName)>31)LastTopicName = LeftTrue(LastTopicName,31-3) + "..."
LastTopicName = htmlencode(LastTopicName);
if(ForumPass != "" || (BoardLimit&(1<<(2-1))) || (BoardLimit&(1<<(7-1))))
{
document.write("主题：已设置为隐藏");
Temp = 1;
}
else
{
if(parseInt(LastAnnounceID)==0){document.write("主题：" + htmlencode(LastTopicName));}
else{document.write("主题：<a href=announce/announce.asp?BoardID=" + BoardID + "&ID=" + LastAnnounceID + "&Aupflag=1&Anum=1>" + htmlencode(LastTopicName) + "</a>");}
}
}
document.write("<br><img src=images/null.gif height=4 width=2><br>");
if(LastWriter == "")
{
document.write("作者：");
LastWriter="无";
document.write(LastWriter);
document.write("<br><img src=images/null.gif height=4 width=2><br>时间：无");
}
else
{
document.write("回复：");
if(LastWriter!="游客")
{
if(Temp == 1)
{
document.write("隐藏");
}
else
{
document.write("<a href=\"User/LookUserInfo.asp?Name=" + htmlencode(LastWriter) + "\">" + htmlencode(LastWriter) + "</a>");
}
}
else
{
document.write(htmlencode(LastWriter))
}
if(LastWriteTime.length==14)
{
LastWriteTime = LastWriteTime.substr(0,4) + "-" + LastWriteTime.substr(4,2) + "-" + LastWriteTime.substr(6,2) + " " + LastWriteTime.substr(8,2) + ":" + LastWriteTime.substr(10,2) + ":" + LastWriteTime.substr(12,2)
}
else
{
LastWriteTime = "无"
}
document.write("<br><img src=images/null.gif height=4 width=2><br>时间：" + LastWriteTime);
document.write("</td></tr>");
}
}<%
End If%>
function DisplayBoardMastList(s,num)
{
if("?LeadBBS?" == s)
{
document.write("全体版主");
}
else
{
if(s == "" || s == null)document.write("无");
var ss,n;
ss = s.split(",");
for(n=0;n<ss.length;n++)
{
if(n>=num)break;
document.write("<a href=\"User/LookUserinfo.asp?name=" + htmlencode(ss[n]) + "\">" + htmlencode(ss[n]) + "</a> ");
}
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -