<%@ LANGUAGE="VBSCRIPT" %>
<!-- #include file="bbstop.asp" -->
<!--#include file="bbsinc/code.asp"-->
<script language="JavaScript" src="inc/coolbuttons.js"></script>
<%
	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 Forumlogo
   	boardid=0
   	if not (isNUll(request("boardid")) or isEmpty(request("boardid")) or (request("BoardID")="") ) then
      		boardid=request("boardid")
   	end if

   	set rs=server.createobject("adodb.recordset")
	if boardID>0 then
		set rs=conn.execute("select boardtype,Tableback,Tabletitle,Tablebody,aTablebody,TableFont,TableContent,AlertFont,strAllowForumCode,strAllowHTML,strIMGInPosts,strIcons,strflash,Forumlogo from bbs_board where boardid="&cstr(boardid))
		if err then 
			Errmsg=ErrMsg+"<Br>"+"<li>数据库操作发生错误！"
			FoundError=true
		else
			if not (rs.eof and rs.bof) then 
   			boardtype=rs("boardtype")
			Tableback=trim(rs("Tableback"))
			Tabletitle=trim(rs("Tabletitle"))
			Tablebody=trim(rs("Tablebody"))
			aTablebody=trim(rs("aTablebody"))
			TableFont=trim(rs("TableFont"))
			TableContent=trim(rs("TableContent"))
			AlertFont=trim(rs("AlertFont"))
			strAllowForumCode=rs("strAllowForumCode")
			strAllowHTML=rs("strAllowHTML")
			strIMGInPosts=rs("strIMGInPosts")
			strIcons=rs("strIcons")
			strflash=rs("strflash")
			Forumlogo=rs("Forumlogo")
%>
<table cellpadding=4 cellspacing=1 border=0 width="762" align=center bgcolor="#f9f9f9" class="pian">
<tr><td height=25 bgcolor=#f9f9f9>&nbsp;现在时间是：<%=now%>&nbsp;&nbsp;您当前的位置：<a href=index.asp><font color=#ff6600>会员社区首页</font></a>&nbsp;&gt;&gt;&nbsp;<a href="list.asp?boardid=<%=boardid%>"><font color=#ff6600><%=boardtype%></font></a>&nbsp;&gt;&gt;&nbsp;<font color=#ff6600>发表新贴子</font></td></tr>
</tr><tr><td height="1" bgcolor=#efefef></td></tr>
</table>
<!--#include file="bbsinc/Form.asp"-->
<%
	call showForm()
	else
		if err.number<>0 then
		Errmsg=ErrMsg+"<Br>"+"<li>数据库操作发生错误！"
		FoundError=true
		err.clear
		else
		Errmsg=ErrMsg+"<Br>"+"<li>不存在的版面！"
		FoundError=true
		end if
	end if          
	rs.close
	end if
		set rs=nothing
	else
		Errmsg=ErrMsg+"<Br>"+"<li>未指定所需参数！"
		FoundError=true
	end if
	if founderror=true then
		call error()
	end if
%>
<!-- #include file="bbsend.asp" -->