<%@ LANGUAGE="VBSCRIPT" %>
<%
Rem ----------------------
Rem ------主程序开始------
Rem ----------------------
dim sql,rs
dim Ers,Esql
dim username
dim bBoardEmpty
dim boardid
dim timeLimited,limitime,tl
dim totalrec
dim n,i,RowCount
dim p
dim currentpage
dim skin
dim guestlist
dim boardtype,lockboard,boardskin
dim master_1,master_2
dim strAllowForumCode,strAllowHTML,strIMGInPosts,strIcons,strflash
dim todaynum
dim announceIDRange1,announceIDRange2
dim arrRow1
if boardmaster or master then
guestlist=""
else
guestlist=" lockboard=0 and "
end if
boardskin=1
stats="论坛版面"
if founderr then
call nav()
call headline(1)
call error()
else
Call getInput()
call chkInput()
if founderr then
call nav()
call headline(1)
call error()
else
call boardinfo(boardid)
if cint(boardskin)=6 then
if membername="" then
response.write ""
response.end
end if
elseif cint(boardskin)=5 then
if membername="" then
founderr=true
Errmsg=Errmsg+" "+"
本论坛为认证论坛，请登陆并确认您的用户名已经得到管理员的认证后进入。"
else
if chkboardlogin(boardid,membername)=false then
founderr=true
Errmsg=Errmsg+" "+"
本论坛为认证论坛，请确认您的用户名已经得到管理员的认证后进入。"
end if
end if
end if
if founderr then
call nav()
call headline(1)
call error()
else
call nav()
call headline(1)
call boardtop(boardid)
call AnnounceList1()
call listPages3()
call boardlist()
if founderr=true then call error()
end if
end if
end if
call endline()
REM 显示版面信息---Headinfo
sub boardtop(boardid)
call activeuser()
response.write ""
response.write "
"&_
"
"&_
"
"&_
"
"
sql="select top 1 title,content,addtime from bbsnews where boardid="&boardid&" order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if rs.bof and rs.eof then
response.write "当前没有公告 ("& now() &")"
else
response.write ""& rs("title") &" ("& rs("addtime") &")"
end if
rs.close
set rs=nothing
response.write "
"&_
"
"
response.write "
"&_
"
"&_
""&_
"
"&_
"
目前论坛总在线"&allonline()&"人，其中"& boardtype &"上共有 "& online() &" 位会员与 "& guest() &" 位客人.今日贴子 "& todaynum &" "
if request("action")<>"online" then
response.write "[关闭详细列表]"
else
response.write "[显示详细列表]"
end if
response.write " [在线用户]
"
if boardmaster or master then
response.write " 版务管理"
end if
response.write " "& boardmaster1 &"论坛精华 "&_
"论坛版主："& master_2 &"
"
end sub
sub boardlist()
response.write "
"&_
"
"
response.write "
"&_
"
"&_
"
-=> "& ForumName &"图例
"&_
"
所有时间均为 - 北京时间
"&_
"
"&_
"
"&_
"
开放的主题
"&_
"
回复超过10贴
"&_
"
锁定的主题
"&_
"
固定顶端的主题
"&_
"
精华帖子
"&_
"
"
if strAllowHTML=0 then
response.write "HTML标签：OFF."
else
response.write "HTML标签：ON."
end if
if strAllowForumCode=0 then
response.write " UBB标签：OFF."
else
response.write " UBB标签：ON."
end if
if strIcons=0 then
response.write " 贴图标签：OFF."
else
response.write " 贴图标签：ON."
end if
if strflash=0 then
response.write " Flash标签：OFF."
else
response.write " Flash标签：ON."
end if
if strIMGInPosts=0 then
response.write " 表情字符转换：OFF."
else
response.write " 表情字符转换：ON."
end if
if Uploadpic<>1 then
response.write " 上传图片：OFF."
else
response.write " 上传图片：ON."
end if
if not UploadFlag then
response.write " 头像上传：OFF."
else
response.write " 头像上传：ON."
end if
if not titleFlag then
response.write " 用户头衔：OFF."
else
response.write " 用户头衔：ON."
end if
response.write "
"&_
"
"&_
" "&_
"
开放的主题
回复超过10贴
锁定的主题
固定顶端的主题 
精华帖子 
"
elseif arrRow(5,i)=grade18 then
response.write "