<!--#include file="conn.asp"-->
<!-- #include file="inc/const.asp" -->
<!-- #include file="chkuser.asp" -->
<!-- #include file="inc/char.asp" -->
<!--#include file="inc/bbs_list.asp"-->
<!--#include file="inc/theme.asp"-->
<!--#include file="inc/ad_fixup.asp"-->
<!--#include file="inc/ad_move.asp"-->
<!--#include file="head_bbs.asp"-->
<%
    	Rem ----------------------
    	Rem ------主程序開(kāi)始------
    	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 announceIDRange1,announceIDRange2
	dim arrRow1

	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
			if cint(boardskin)=6 then
				if membername="" then
				response.write "<script>location.href='login.asp'</script>"
				response.end
				end if
			elseif cint(boardskin)=5 then
				if membername="" then
					founderr=true
					Errmsg=Errmsg+"<br>"+"<li>本論壇為認(rèn)證論壇，請(qǐng)<a href=login.asp>登陸</a>并確認(rèn)您的用戶(hù)名已經(jīng)得到管理員的認(rèn)證后進(jìn)入。"
				else
					if chkboardlogin(boardid,membername)=false then
					founderr=true
					Errmsg=Errmsg+"<br>"+"<li>本論壇為認(rèn)證論壇，請(qǐng)確認(rèn)您的用戶(hù)名已經(jīng)得到管理員的認(rèn)證后進(jìn)入。"
					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 "<style>TABLE {BORDER-TOP: 0px; BORDER-LEFT: 0px; BORDER-BOTTOM: 1px; }TD {BORDER-RIGHT: 0px; BORDER-TOP: 0px; color: #000000; }</style>"

	response.write "<script language=javascript src=inc/list.js></script><TABLE cellSpacing=0 cellPadding=0 width=95% border=0 align=center>"&_
				"<TBODY><tr>"&_
				"<td align=center width=34 valign=middle> <img src="&picurl&P_call&" border=0 alt=本分論壇的公告！不可不看！！ width=20 height=17>"&_ 
				"</td><td valign=middle align=left>"

	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 "<b><a href='announcements.asp?boardid="& boardid &"' target=_blank><ACRONYM TITLE='當(dāng)前沒(méi)有公告'>當(dāng)前沒(méi)有公告</ACRONYM></a></b> ("& now() &")"
	else
		response.write "<b><a href='announcements.asp?boardid="& boardid &"' target=_blank><ACRONYM TITLE='"& rs("content") &"'>"& rs("title") &"</ACRONYM></a></b> ("& rs("addtime") &")"
	end if
	rs.close
	set rs=nothing


	response.write "</td><td align=right valign=middle><p>"&_
				"<form action=list.asp method=get>"&_
				"<input type=hidden name=boardid value="& boardid &">"&_
				"<select name=selTimeLimit onchange='javascript:submit()'>"&_
				"<option value=all>查看所有的主題"&_
				"<option value=1>查看一天內(nèi)的主題"&_
				"<option value=2>查看兩天內(nèi)的主題"&_
				"<option value=7>查看一星期內(nèi)的主題"&_
				"<option value=15>查看半個(gè)月內(nèi)的主題"&_
				"<option value=30>查看一個(gè)月內(nèi)的主題"&_
				"<option value=60>查看兩個(gè)月內(nèi)的主題"&_
				"<option value=180>查看半年內(nèi)的主題"&_
				"</select>"&_
				"</form></p></td></tr></TBODY></TABLE>"
response.write "<table cellspacing=0 border=0 width=95% bgcolor="&Tablebackcolor&" align=center><tr><td height=1></td></tr></table>"&_
				"<TABLE border=1 cellpadding=0 cellspacing=0 width=95% align=center bordercolor="&Tablebackcolor&">"&_
  				"<TBODY>"&_
				"<TR>"&_
				"<TD height=27 width=""95%"" bgColor="&Tabletitlecolor&"><font color="&TableFontColor&">