<%@ LANGUAGE="VBSCRIPT" %>
<%
rem ----------------------
rem ------主程序开始------
rem ----------------------
dim boardID
dim rs,sql
dim boardtype
dim tableback
dim tabletitle
dim tablebody
dim atablebody
dim tablefont
dim tablecontent
dim alertfont
dim strAllowForumCode
dim strAllowHTML
dim strIMGInPosts
dim strIcons
dim strflash
dim boardskin
dim boardstat
boardskin=1
boardid=request("boardid")
if boardmaster or master then
guestlist=""
else
guestlist=" lockboard=0 and "
end if
if BoardID="" or not isInteger(BoardID) then
BoardID=1
else
BoardID=clng(BoardID)
if err then
BoardID=1
err.clear
end if
end if
call boardinfo(boardid)
select case boardskin
case 1
boardstat="常规论坛，只允许注册会员发言"
case 2
boardstat="开放论坛，允许所有人发言"
case 3
boardstat="评论论坛，坛主和版主允许发言，其他注册用户只能回复"
if not(boardmaster or master) then
Founderr=true
Errmsg=Errmsg+"
"+"评论论坛，坛主和版主允许发言，其他注册用户只能回复"
end if
case 4
boardstat="精华区，只允许版主和坛主发言和操作"
if not(boardmaster or master) then
Founderr=true
Errmsg=Errmsg+"
"+"精华区，只允许版主和坛主发言和操作"
end if
case 5
boardstat="认证论坛，除坛主和版主外，其他注册用户登陆论坛需要认证"
if membername="" then
founderr=true
Errmsg=Errmsg+"
"+"本论坛为认证论坛，请登陆并确认您的用户名已经得到管理员的认证后进入。"
else
if chkboardlogin(boardid,membername)=false then
founderr=true
Errmsg=Errmsg+"
"+"本论坛为认证论坛，请确认您的用户名已经得到管理员的认证后进入。"
end if
end if
case 6
boardstat="正规论坛，只有登陆用户才能浏览论坛并发言"
if membername="" then
Founderr=true
Errmsg=Errmsg+"
"+"正规论坛，只有登陆用户才能浏览论坛并发言"
end if
end select
stats=""&boardtype&"发表投票"
if founderr then
call nav()
call headline(2)
call error()
else
call nav()
call headline(2)
call showvoteForm()
end if
call endline()
rem ----------------------
rem ------主程序结束------
rem ----------------------
%>