<%
'=========================================================
' File: elist.asp
' Version:5.0
' Date: 2002-9-10
' Script Written by satan
'=========================================================
' Copyright (C) 2001,2002 AspSky.Net. All rights reserved.
' Web: http://www.aspsky.net,http://www.dvbbs.net
' Email: info@aspsky.net,eway@aspsky.net
'=========================================================
dim Ers,Esql
dim totalrec
dim currentpage,page_count,Pcount
dim guests
dim topic
dim rs1,sql1
dim endpage
stats="精华帖子列表"
currentPage=request("page")
if BoardID="" or not isInteger(BoardID) or BoardID=0 then
Errmsg=Errmsg+" "+"
错误的版面参数！请确认您是从有效的连接进入。"
founderr=true
else
BoardID=clng(BoardID)
end if
if currentpage="" then
currentpage=1
elseif not isInteger(currentpage) then
currentpage=1
else
currentpage=clng(currentpage)
end if
if founderr then
call nav()
call head_var(2,0,"","")
else
call nav()
call head_var(1,BoardDepth,0,0)
call main()
if founderr then call dvbbs_error()
end if
call footer()
sub main()
if Cint(GroupSetting(41))=0 then
Errmsg=Errmsg+" "+"
您没有浏览本论坛精华帖子的权限，请登陆或者同管理员联系。"
founderr=true
exit sub
end if
if cint(lockboard)=2 then
if not founduser then
Errmsg=Errmsg+" "+"
本论坛为认证论坛，请登陆并确认您的用户名已经得到管理员的认证后进入。"
founderr=true
exit sub
else
if chkboardlogin(boardid,membername)=false then
Errmsg=Errmsg+" "+"
本论坛为认证论坛，请确认您的用户名已经得到管理员的认证后进入。"
founderr=true
exit sub
end if
end if
end if
call activeonline()
dim onlinenum,guestnum
onlinenum=online(boardid)
guestnum=guest(boardid)
if trim(boardmasterlist)<>"" then
master_1=split(boardmasterlist, "|")
for i = 0 to ubound(master_1)
master_2=""+master_2+""+master_1(i)+" "
next
else
master_2="无版主"
end if
%>
border=0 align=center>
总在线<%=allonline()%>人，其中<%= boardtype %>上共有 <%= onlinenum %> 位会员与 <%= guestnum %> 位客人.今日贴子 ><%= todaynum %>
<%
if request("action")="show" then
response.write "[关闭详细列表]"
else
if cint(Forum_Setting(14))=1 and request("action")<>"off" then
response.write "[关闭详细列表]"
else
response.write "[显示详细列表]"
end if
end if
%>
<%
if request("action")="off" then
call onlineuser(0,0,boardid)
elseif request("action")="show" then
call onlineuser(1,1,boardid)
else
call onlineuser(Forum_Setting(14),Forum_Setting(15),boardid)
end if
%>
align=center valign=middle>
<%= master_2 %>
状态
主 题
作 者
最后更新 | 回复人
<%
sql="select * from BestTopic where boardID="&cstr(boardID)&" ORDER BY id desc"
'response.write sql
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "
"
'============================End=============================
page_count = page_count + 1
rs.movenext
wend
end if
if totalrec mod Forum_Setting(11)=0 then
Pcount= totalrec \ Forum_Setting(11)
else
Pcount= totalrec \ Forum_Setting(11)+1
end if
%>
分页：
<%
if currentpage > 4 then
response.write "[1] ..."
end if
if Pcount>currentpage+3 then
endpage=currentpage+3
else
endpage=Pcount
end if
for i=currentpage-3 to endpage
if not i<1 then
if i = clng(currentpage) then
response.write " ["&i&"]"
else
response.write " ["&i&"]"
end if
end if
next
if currentpage+3 < Pcount then
response.write "... ["&Pcount&"]"
end if
response.write "
%>team2.gif)
<%= master_2 %>