📄 showforum.asp
字号:
<!-- #include file="Setup.asp" -->
<%
HtmlTop
ForumID=RequestInt("ForumID")
SortOrder=RequestInt("SortOrder")
TimeLimit=RequestInt("TimeLimit")
GoodTopic=RequestInt("GoodTopic")
order=HTMLEncode(Request("order"))
Category=HTMLEncode(Request("Category"))
if Len(order)>12 then error("非法操作")
if Len(Category)>25 then error("类别名字太长")
sql="select * from [Wo_Forums] where ForumID="&ForumID&""
Set Rs=Conn.Execute(sql)
if Rs.eof then error"<li>找不到该版块的资料"
ForumName=Rs("ForumName")
TotalThreads=Rs("TotalThreads")
Moderated=Rs("Moderated")
ParentID=Rs("ParentID")
GroupID=Rs("GroupID")
IsModerated=Rs("IsModerated")
ForumRules=YbbEncode(Rs("ForumRules"))
TotalCategorys=Rs("TotalCategorys")
ForumUrl=Rs("ForumUrl")
IsActive=Rs("IsActive")
Rs.close
%>
<!-- #include file="Utility/ForumPermissions.asp" --><%
if ForumUrl<>"" then response.redirect ForumUrl
if IsActive=0 and PermissionManage=0 then error"<li>该版块已经关闭！"
if PermissionView=0 then error("您的<a href=ShowForumPermissions.asp?ForumID="&ForumID&">权限</a>不够")
if TotalCategorys<>"" then
filtrate=split(TotalCategorys,"|")
CategorysList="[<a href='ShowForum.asp?ForumID="&ForumID&"'>全部</a>] "
for i = 0 to ubound(filtrate)
CategorysList=CategorysList&"[<a href='ShowForum.asp?ForumID="&ForumID&"&Category="&filtrate(i)&"'>"&filtrate(i)&"</a>] "
next
end if
%>
<title><%=ForumName%></title>
<meta http-equiv="refresh" content="300">
<table width="900" align="center" border="0" cellspacing="0" cellpadding="0">
<tr>
<td>
<div id="CommonBreadCrumbArea">
<div style="float:left"><%ClubTree%> → <%ForumTree(ParentID)%><%=ForumTreeList%><a href="ShowForum.asp?ForumID=<%=ForumID%>"><%=ForumName%></a></div>
<%
if Moderated<>empty then
filtrate=split(Moderated,"|")
for i = 0 to ubound(filtrate)
ModeratedList=ModeratedList&"<div class=menuitems><a href=Profile.asp?UserName="&filtrate(i)&">"&filtrate(i)&"</a></div>"
next
%>
<div style="float:right"></div>
<%end if%>
</div>
</td>
</tr>
</table>
<%
i=0
sql="Select * From [Wo_Forums] where ParentID="&ForumID&" and SortOrder>0 and IsActive=1 order by SortOrder"
Set Rs1=Conn.Execute(sql)
if not Rs1.eof then
%><table width="900" align="center" cellpadding="0" cellspacing="1" id="CommonListArea">
<tr id="CommonListTitle">
<td colspan="7"><a href="ShowForum.asp?ForumID=<%=ForumID%>"><%=ForumName%></a></td>
</tr>
<tr id="CommonListHeader" align="center">
<td width="30"></td>
<td>论坛</td>
<td width="50">主题</td>
<td width="50">帖数</td>
<td width="150">最后发表</td>
<td width="100">版主</td>
</tr>
<%
do while not Rs1.eof
ShowForum()
Rs1.Movenext
loop
response.write "</table>"
end if
Set Rs1 = Nothing
%> <%if ForumRules<>"" then%>
</table>
<%end if%>
<table width="900" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td align="Left">
</td>
<td align="right">
<%
if Moderated<>empty then
filtrate=split(Moderated,"|")
for i = 0 to ubound(filtrate)
ModeratedList=ModeratedList&"<div class=menuitems><a href=Profile.asp?UserName="&filtrate(i)&">"&filtrate(i)&"</a></div>"
next
%><img src="images/team.gif"> <a onMouseOver="showmenu(event,'<%=ModeratedList%>')">论坛版主</a>
<%end if%>
</td></tr>
</table>
<table width="80%" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<table width="900"border="0" cellspacing="0" cellpadding="0">
<tr>
<td valign="top">
<table width="99%" cellpadding="8" id="CommonListCell" style=" BORDER-RIGHT:#ccc 1px dotted; BORDER-TOP:#ccc 1px dotted; BORDER-LEFT:#ccc 1px dotted; BORDER-BOTTOM:#ccc 1px dotted;">
<tr>
<td><strong><font color="#ff0000">组规与导读</font></strong>
<table width="80%" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<%=ForumRules%></td>
</tr>
</table>
<table width="80%" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<div align="right"><%if PermissionPost=1 then%>
<a href="AddTopic.asp?ForumID=<%=ForumID%>"><img src="Images/post.gif" width="86" height="27" border="0"></a>
<%end if%>
<%if PermissionCreatePoll=1 then%>
<a href="AddTopic.asp?ForumID=<%=ForumID%>&Poll=1"><img src="Images/vote.gif" width="86" height="27" border="0"></a>
<%end if%> </div>
<table width="99%" cellpadding="0" cellspacing="1" id="CommonListArea">
<tr id="CommonListTitle3">
<td colspan="5"><div style="float:left"> 主题公告</div>
<div style="float:right"><%=CategorysList%></div></td>
</tr>
<%
if RequestInt("PageIndex") < 2 then
sql="[Wo_Threads] where IsApproved=1 and IsDel=0 and ThreadTop=2 or (ThreadTop=1 and ForumID="&ForumID&") order by ThreadTop DESC"
Set Rs=Conn.Execute(sql)
if Not RS.EOF then
Do While Not RS.EOF
ShowThread()
Rs.MoveNext
loop
response.write "<tr id=CommonListHeader height=25><td colspan=5> 版块主题</td></tr>"
end if
Rs.Close
end if
if order="" then order="lasttime"
if Category<>"" then SQLCategory="and Category='"&Category&"'"
if GoodTopic > 0 then SQLGoodTopic="and IsGood=1"
if TimeLimit > 0 then SQLTimeLimit="and lasttime>"&SqlNowString&"-"&TimeLimit&""
if SortOrder="1" then
SqlSortOrder=""
else
SqlSortOrder="Desc"
end if
topsql="[Wo_Threads] where IsApproved=1 and IsDel=0 and ForumID="&ForumID&" and ThreadTop=0 "&SQLCategory&" "&SQLTimeLimit&" "&SQLGoodTopic&""
TotalCount=conn.Execute("Select count(ThreadID) From "&topsql&" ")(0) '获取数据数量
PageSetup=SiteConfig("ThreadsPerPage") '设定每页的显示数量
TotalPage=Abs(Int(TotalCount/PageSetup*(-1))) '总页数
PageCount = RequestInt("PageIndex") '获取当前页
if PageCount <1 then PageCount = 1
if PageCount > TotalPage then PageCount = TotalPage
sql="select * from "&topsql&" order by "&order&" "&SqlSortOrder&""
if PageCount<11 then
Set Rs=Conn.Execute(sql)
else
rs.Open sql,Conn,1
end if
if TotalPage>1 then RS.Move (PageCount-1) * pagesetup
i=0
Do While Not RS.EOF and i<PageSetup
i=i+1
ShowThread()
Rs.MoveNext
loop
Rs.Close
%>
</table>
<table width="99%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><a onMouseDown="ToggleMenuOnOff('ForumOption')" href="#ForumOption"><img src="Images/xuan_x.gif" width="86" height="27" border="0"></a></td>
<td align="right"><%ShowPage()%></td>
</tr>
<tr>
<td colspan="2">
<div id="ForumOption" style="display:none;">
<fieldset>
<legend>选项</legend>
<table border="0" width="100%" align="center">
<tr>
<td valign="top">
<form name="form" action="ShowForum.asp?ForumID=<%=ForumID%>" method="POST">
排序规则：<select name="order">
<option value="">最后更新时间</option>
<option value="ThreadID">主题发表时间</option>
<option value="IsGood">精华主题</option>
<option value="IsVote">投票主题</option>
<option value="Topic">主题</option>
<option value="PostAuthor">作者</option>
<option value="TotalViews">点击数</option>
<option value="TotalReplies">回复数</option>
</select> 根据 <select name="SortOrder">
<option value="0" selected>降序</option>
<option value="1">升序</option>
</select> 排列<br>
日期过滤：<select name="TimeLimit">
<option value="1" >昨天以来</option>
<option value="2" >2 天以来</option>
<option value="7" >1 周以来</option>
<option value="10" >10 天以来</option>
<option value="14" >2 周以来</option>
<option value="30" >1 个月以来</option>
<option value="45" >45 天以来</option>
<option value="60" >2 个月以来</option>
<option value="75" >75 天以来</option>
<option value="100" >100 天以来</option>
<option value="365">1 年以来</option>
<option value="-1">任何时间</option>
</select><br>
<input type="submit" value=" 应用 "></form>
</td>
<td valign="top" align="right">您 <b><%if PermissionPost=0 then%>不<%end if%>能</b>
在此版发表新主题<br>
您 <b><%if PermissionReply=0 then%>不<%end if%>能</b> 在此版回复主题<br>
您 <b><%if PermissionEdit=0 then%>不<%end if%>能</b> 在此版修改您发表的主题<br>
您 <b><%if PermissionDelete=0 then%>不<%end if%>能</b> 在此版删除您发表的主题<br>
您 <b><%if PermissionCreatePoll=0 then%>不<%end if%>能</b> 在此版发起投票<br>
您 <b><%if PermissionVote=0 then%>不<%end if%>能</b> 在此版参与投票<br>
您 <b><%if PermissionAttachment=0 then%>不<%end if%>能</b> 在此版上传附件<br>
该版主题<b><%if IsModerated=0 then%>不<%end if%>需要审核</b></td>
</tr>
</table>
</fieldset> </div>
</td>
</tr>
</table></td>
<td width="200" valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="0" id="CommonListArea">
<tr id="CommonListTitle3">
<td> 操作</td>
</tr>
<tr id="CommonListCell">
<td>
<table width="100%" border="0" cellspacing="0" cellpadding="4">
<tr>
<td>
<%if IsModerated=1 then%>
<a href="Moderation.asp?ForumID=<%=ForumID%>&checkbox=1&Menu=Censorship"> 主题审核(<%=Conn.Execute("Select count(ThreadID) From [Wo_Threads] where IsApproved=0 and IsDel=0 and ForumID="&ForumID&"")(0)%>)</a>
<%end if%>
</td>
</tr>
<tr>
<td><img src="Images/Topicgood.gif" width="15" height="15"><a href="?ForumID=<%=ForumID%>&GoodTopic=1">精华主题</a></td>
</tr>
<tr>
<td><img src="Images/user_edit.gif" width="15" height="15"><a href="ShowForumPermissions.asp?ForumID=<%=ForumID%>">论坛权限</a></td>
</tr>
<tr>
<td><img src="Images/visitor.gif" width="15" height="15"><a href="ForumManage.asp?menu=ForumData&ForumID=<%=ForumID%>">版块管理</a></td>
</tr>
<%
set Rs2=Server.CreateObject("Adodb.recordset")
str="select * from WO_FavoriteForums where OwnerUserName='"&CookieUserName&"' and ForumID="&ForumID
Rs2.open str,conn,1,1
if rs2.eof then
%>
<tr>
<td><img src=images/favs.gif> <a href=MyFavorites.asp?menu=FavoriteForums&ForumID=<%=ForumID%>>收藏小组</a> </td>
</tr>
<%else%>
<tr>
<td><img src=images/Showdigest.gif> <a href=MyFavorites.asp?menu=DelFavoriteForums&FavoriteID=<%=Rs2("FavoriteID")%>>取消收藏</a></td>
</tr>
<%end if
Rs2.close
set Rs2=nothing%>
<tr>
<td><%if SiteConfig("EnableForumsRSS")=1 and PermissionRead=1 then%>
<img src="images/rss_button.gif" border="0" title="订阅 RSS 源"><a href="Rss.asp?ForumID=<%=ForumID%>">订阅Rss源</a>
<%end if%></td>
</tr>
<tr>
<td>
<script language="JavaScript">
var AllForumNameList=getCookie("ForumNameList");
var NowForumName="<option value='ShowForum.asp?ForumID=<%=ForumID%>'>" + document.title + "</option>";
if(AllForumNameList.indexOf(NowForumName)==-1){document.cookie= "ForumNameList" + "=" + escape(NowForumName+AllForumNameList);}
document.write("<select onchange='location=this.options[this.selectedIndex].value;'><option>最近访问的版块...</option>" + AllForumNameList+ "</select>");
</script>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="80%" height="8" border="0" cellpadding="0" cellspacing="0">
<tr>
<td></td>
</tr>
</table>
<!-- #include file="Utility/OnLine.asp" -->
<%
ForumIDOnline=Conn.execute("Select count(sessionid)from [Wo_UserOnline] where ForumID="&ForumID&"")(0)
regForumIDOnline=Conn.execute("Select count(sessionid)from [Wo_UserOnline] where ForumID="&ForumID&" and UserName<>''")(0)
%>
<table width="100%" cellpadding="0" cellspacing="1" id="CommonListArea">
<tr id="CommonListTitle3">
<td> 窝友在线信息</td>
</tr>
<tr id="CommonListCell">
<td>
<img src="images/plus.gif" id="followImg" style="cursor:pointer;" onClick="loadThreadFollow(<%=ForumID%>)"> 总在线： <b><%=Onlinemany%></b> 人<br>
本版有： <b><%=ForumIDOnline%></b> 人<br>
注册有： <b><%=regForumIDOnline%></b> 人<br>
访 客： <b><%=ForumIDOnline-regForumIDOnline%></b>
人
<div style="display:none" id="follow">
<hr width="98%" size="1" align="center"><span id="followTd">
<img src="images/loading.gif">正在加载...</span></div></td>
</tr>
</table>
</td>
</tr>
</table>
<br>
<table border="0" width="900" align="center">
<tr>
<td><img src="images/topic-announce.gif" border="0" align="absmiddle"> 公告主题</td>
<td><img src="images/topic-pinned.gif" border="0" align="absmiddle"> 置顶主题</td>
<td><img src="images/topic-popular.gif" align="absmiddle"> 精华主题</td>
<td><img src="images/topic-locked.gif" border="0" align="absmiddle"> 锁定主题</td>
<td><img src="images/topic-poll.gif" border="0" align="absmiddle"> 投票主题</td>
<td><img src="images/topic-hot.gif" border="0" title="回复数达到 <%=SiteConfig("PopularPostThresholdPosts")%> 或者点击数达到 <%=SiteConfig("PopularPostThresholdViews")%>" align="absmiddle"> 热门主题</td>
<td><img src="images/topic.gif" border="0" align="absmiddle"> 普通主题</td>
</tr>
</table>
<%
HtmlBottom
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -