% top id=int(Request("id")) forumid=Conn.Execute("Select forumid From forum where id="&id)(0) sql="select * from bbsconfig where id="&forumid&"" Set Rs=Conn.Execute(sql) bbsname=rs("bbsname") moderated=rs("moderated") logo=rs("logo") pass=rs("pass") followid=rs("followid") password=rs("password") Set Rs = Nothing sql="select username from online where username<>'' and eremite<>1" Set Rs=Conn.Execute(sql) onlinelist="|" Do While Not RS.EOF onlinelist=""&onlinelist&""&rs("username")&"|" rs.movenext loop Set Rs = Nothing if Request("action")="next" then sql="select top 1 * from forum where id > "&id&" and forumid="&forumid&" and deltopic<>1" elseif Request("action")="Previous" then sql="select top 1 * from forum where id < "&id&" and forumid="&forumid&" and deltopic<>1 order by id Desc" else sql="select * from forum where ID="&id&"" end if Set Rs=Conn.Execute(sql) if rs.eof or rs.bof then error"
<%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> ><%=bbsname%> → <%=rs("topic")%> |
">/post.gif" border="0"> &topic=<%=rs("topic")%>">/reply.gif" border="0"> | 您是本帖第 <%=rs("views")%> 个阅读者 "> "> |
|
本主题共有 <%=TotalPage%> 页 [ ] | 收藏帖子 | 取消收藏 |
管理选项: <% response.write "拉前主题 | " if locktopic=1 then response.write "开放主题" else response.write "关闭主题" end if response.write " | " if toptopic=2 then response.write "取消总置顶" else response.write "主题总置顶" end if response.write " | " if toptopic=1 then response.write "取消置顶" else response.write "主题置顶" end if response.write " | " if goodtopic=1 then response.write "移出精华区" else response.write "添加到精华区" end if %>| 移动主题 | 删除主题 |