<!-- #include file="conn.asp" -->
<!-- #include file="inc/char.asp" -->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!--#include file="inc/theme.asp"-->
<!--#include file="inc/Form.asp"-->
<%
	rem ----------------------
	rem ------主程序開始------
	rem ----------------------

	dim boardID
   	dim rs,sql
	dim boardstat
   	boardid=request("boardid")
	if BoardID="" or not isInteger(BoardID) then
		BoardID=1
	else
		BoardID=clng(BoardID)
		if err then
			BoardID=1
			err.clear
		end if
	end if
	select case boardskin
	case 1
		boardstat="常規論壇，只允許<a href=reg.asp><font color="&TableContentcolor&">注冊會員</a>發言"
	case 2
		boardstat="開放論壇，允許所有人發言"
	case 3
		boardstat="評論論壇，壇主和版主允許發言，其他<a href=reg.asp><font color="&TableContentcolor&">注冊用戶</font></a>只能回復"
		if not(boardmaster or master) then
		Founderr=true
		Errmsg=Errmsg+"<br>"+"<li>評論論壇，壇主和版主允許發言，其他<a href=reg.asp><font color="&TableContentColor&">注冊用戶</font></a>只能回復"
		end if
	case 4
		boardstat="精華區，只允許版主和壇主發言和操作"
		if not(boardmaster or master) then
		Founderr=true
		Errmsg=Errmsg+"<br>"+"<li>精華區，只允許版主和壇主發言和操作"
		end if
	case 5
		boardstat="認證論壇，除壇主和版主外，其他<a href=reg.asp><font color="&TableContentColor&">注冊用戶</font></a>登陸論壇需要認證"
		if membername="" then
			founderr=true
			Errmsg=Errmsg+"<br>"+"<li>本論壇為認證論壇，請<a href=login.asp>登陸</a>并確認您的用戶名已經得到管理員的認證后進入。"
		else
			if chkboardlogin(boardid,membername)=false then
			founderr=true
			Errmsg=Errmsg+"<br>"+"<li>本論壇為認證論壇，請確認您的用戶名已經得到管理員的認證后進入。"
			end if
		end if
	case 6
		boardstat="正規論壇，只有<a href=login.asp><font color="&TableContentColor&">登陸用戶</a>才能瀏覽論壇并發言"
		if membername="" then
		Founderr=true
		Errmsg=Errmsg+"<br>"+"<li>正規論壇，只有<a href=login.asp><font color="&TableContentColor&">登陸用戶</a>才能瀏覽論壇并發言"
		end if
	end select
	
	stats=""&boardtype&"發言"
	if founderr then
		call nav()
		call headline(2)
		call error()
	else
		call nav()
		call headline(2)
		call showForm()
	end if
	call endline()
   	rem ----------------------
	rem ------主程序結束------
	rem ----------------------

%>
<!--#include file="footer.asp"-->