<%
sub showreForm()
dim e
%>
<form action="SaveReAnnounce.asp?method=Topic&boardID=<%=request("boardid")%>" method="POST" onSubmit="submitonce(this)" name="frmAnnounce">
  <input type="hidden" name="followup" value="<%=AnnounceID%>"><input type="hidden" name="rootID" value="<%=RootID%>">
  <div align="center"><center>
<script src="ubbcode.js"></script>
<table bgColor="<%=Tablebackcolor%>" cellpadding=0 cellspacing=0 border=0 width="<%=TableWidth%>" cellspacing="0">
    <tr>
      <td width="100%">
<table cellpadding=3 cellspacing=1 border=0 width=100%>
    <tr>
      <td width="100%" bgcolor="<%=Tabletitlecolor%>" colspan=2><div align="left"><font color=<%=TableFontcolor%>><p>&nbsp;&nbsp;<b>*为必填项目 <%=boardstat%></b></font></td>
    </tr>
<%if membername="" then%>
        <tr bgcolor="<%=TablebodyColor%>">
          <td width="20%"><font color="<%=TableContentcolor%>"><b>用户名</b></font></td>
          <td width="80%"><input name="username" value="<%if membername<>"" then%><%=htmlencode(membername)%><%else%><%if boardskin=2 then response.write "客人"%><%end if%>" >&nbsp;&nbsp;<font color="<%=AlertFontColor%>"><b>*</b></font><a href=reg.asp><font color="<%=TableContentcolor%>">您没有注册？</font></a> 
          </td>
        </tr>
        <tr bgcolor="<%=TablebodyColor%>">
          <td width="20%"><font color="<%=TableContentcolor%>"><b>密码</b></font></td>
          <td width="80%"><input name="passwd" type="password" value="<%=htmlencode(memberword)%>" ><font color="<%=AlertFontColor%>">&nbsp;&nbsp;<b>*</b></font><a href=lostpass.asp><font color="<%=TableContentcolor%>">忘记密码？</font></a></td>
        </tr>
<%end if%>
        <tr bgcolor="<%=TablebodyColor%>">
          <td width="20%"><font color="<%=TableContentcolor%>"><b>主题标题</b>
              <SELECT name=font onchange=DoTitle(this.options[this.selectedIndex].value)>
              <OPTION selected value="">选择话题</OPTION> <OPTION value=[原创]>[原创]</OPTION> 
              <OPTION value=[转帖]>[转帖]</OPTION> <OPTION value=[灌水]>[灌水]</OPTION> 
              <OPTION value=[讨论]>[讨论]</OPTION> <OPTION value=[求助]>[求助]</OPTION> 
              <OPTION value=[推荐]>[推荐]</OPTION> <OPTION value=[公告]>[公告]</OPTION> 
              <OPTION value=[注意]>[注意]</OPTION> <OPTION value=[贴图]>[贴图]</OPTION>
              <OPTION value=[建议]>[建议]</OPTION> <OPTION value=[下载]>[下载]</OPTION>
              <OPTION value=[分享]>[分享]</OPTION></SELECT></font></td>
          <td width="80%"><font color="<%=TableContentcolor%>"><% if InStr(htmlencode(topic),"RE：")<>0  then%><input name="subject" size=60 maxlength=80 value="<%=htmlencode(topic)%>" ><%else%><input name="subject" size=60 maxlength=80 value="RE：<%=htmlencode(topic)%>" ><%end if%>&nbsp;&nbsp;不得超过 50 个汉字</font>
<INPUT TYPE="hidden" name="boardtype" value="<%=htmlencode(boardtype)%>">
<INPUT TYPE="hidden" name="skin" value="<%=request("skin")%>">
	 </td>
        </tr>
        <tr bgcolor="<%=TablebodyColor%>">
          <td width="20%" valign="top"><font color="<%=TableContentcolor%>"><b>当前心情</b><br><li>将放在帖子的前面<BR></font></td>
          <td width="80%">
<%for i=1 to 9%>
	<input type="radio" value="face<%=i%>" name="Expression" <%if i=1 then response.write "checked"%>><img src="face/face<%=i%>.gif" WIDTH="15" HEIGHT="15">&nbsp;&nbsp;
<%next%>
<br>
<%for i=10 to 18%>
	<input type="radio" value="face<%=i%>" name="Expression"><img src="face/face<%=i%>.gif" WIDTH="15" HEIGHT="15">&nbsp;&nbsp;
<%next%>
 </td>
        </tr>
        <tr bgcolor="<%=TablebodyColor%>">
          <td width="20%" valign=top><font color="<%=TableContentcolor%>">
<b>内容</b><br><br>
在此论坛中<br>
<li>HTML标签： <%if strAllowHTML=0 then%>不可用<%else%>允许<%end if%>
<li>UBB标签： <%if strAllowForumCode=0 then%>不可用<%else%>允许<%end if%>
<li>帖图标签： <%if strIcons=0 then%>不可用<%else%>允许<%end if%>
<li>Flash标签： <%if strflash=0 then%>不可用<%else%>允许<%end if%>
<li>表情字符转换： <%if strIMGInPosts=0 then%>不可用<%else%>允许<%end if%>
<li>上传图片： <%if Uploadpic=0 then%>不可用<%else%>允许<%end if%>
<li>最多<%=AnnounceMaxBytes\1024%>KB</font>
	  </td>
          <td width="80%">
<% if Uploadpic=1 then %>
<iframe name="ad" frameborder=0 width=100% height=30 scrolling=no src=saveannounce_upload.asp?boardid=<%=boardid%>></iframe> 
<br>
<% end if %>
<%if TopicFlag=1 then%>
<!--#include file="getubb.asp"-->
<%end if%>
<%'=requote(con)%>
<TEXTAREA name="Content" cols="111" rows="20" wrap=VIRTUAL title="可以使用Ctrl+Enter直接提交贴子"  onkeydown=ctlent()>
<%
	if request("reply")="true" then
		content=reubbcode(con)
	
   	 	content = replace(content, "&gt;", ">")
    		content = replace(content, "&lt;", "<")
    		content = Replace(content, "</P><P>", CHR(10) & CHR(10))
    		content = Replace(content, "<BR>", CHR(10))
	    	response.write "[quote][b]以下是引用[i]"&username&"在"&dateandtime&"[/i]的发言：[/b]" & chr(13)
             	if InStr(content,"[/SEC]")<>0 or InStr(content,"[/sec]")<>0  then
				response.write "此贴包含秘密段落，引用无效！"
				elseif session("lockuser")=true then
				response.write "该用户发言已经被管理员屏蔽，引用无效！"
				elseif boardskin=5 then
				response.write "对不起，在秘密花园里，您不可以引用别人的贴子！"
				elseif InStr(content,"[/EP]")<>0 or InStr(content,"[/ep]")<>0  then
				response.write "此贴对经验值有限制，引用无效！"
				elseif InStr(content,"[/CP]")<>0 or InStr(content,"[/cp]")<>0  then
				response.write "此贴对魅力值有限制，引用无效！"
				elseif InStr(content,"[/PW]")<>0 or InStr(content,"[/pw]")<>0  then
				response.write "此贴对威望值有限制，引用无效！"
				elseif InStr(content,"[/fu]")<>0 or InStr(content,"[/FU]")<>0 then
				response.write "此贴为定人贴，引用无效！"
				else 
				   if InStr(content,"[HAR]")<>0 and session("checkreplyname")=false  then
				   response.write "此贴包含回复显示贴，且您没有回复，引用无效！"
                    else

				response.write content & chr(13)
				  end if
				 end if
	    	response.write "[/quote]"
	end if
%></TEXTAREA>
	</td>
        </tr>
		<tr>
                <td bgcolor="<%=TablebodyColor%>" valign=top colspan=2><font color="<%=TableContentcolor%>"><b>点击表情图即可在帖子中加入相应的表情</B></font><br>&nbsp;

<%for e=1 to 9%>
                	<img src="<%=picurl&Imgname%>0<%=e%>.gif" border=0 onclick="insertsmilie('[<%=Imgname%>0<%=e%>]')" style="CURSOR: hand">
<%next%>
<%for e=10 to ImgNum%>
                	<img src="<%=picurl&Imgname&e%>.gif" border=0 onclick="insertsmilie('[<%=Imgname&e%>]')" style="CURSOR: hand">
<%next%>
    		</td>
                </tr>
                <tr bgcolor="<%=TablebodyColor%>">
                <td valign=top><font color="<%=TableContentcolor%>"><b>选项</b><p><a href="boardhelp.asp?boardid=<%=boardid%>"><img src="<%=picurl%>help_b.gif" border=0></a></font></td>
                <td valign=middle><font color="<%=TableContentcolor%>"><input type=checkbox name="signflag" value="yes" checked>是否显示您的签名？<br>
                <input type=checkbox name="emailflag" value="yes">有回复时使用邮件通知您？</font>
<BR><BR></td>
                </tr><tr bgcolor="<%=TablebodyColor%>">
                <td valign=middle colspan=2 align=center>
                <input type=Submit value="发 表" name=Submit> &nbsp; <input type=button value='预 览' name=Button onclick=gopreview()>&nbsp;<input type="reset" name="Submit2" value="清 除">
                </td></form></tr>
      </table>
      </td>
    </tr>
  </table>
  </center></div>
</form>
		<form name=preview action=preview.asp method=post target=preview_page>
		<input type=hidden name=title value=""><input type=hidden name=body value="">
		</form>
		<script>
		function gopreview()
		{
		document.forms[1].title.value=document.forms[0].subject.value;
		document.forms[1].body.value=document.forms[0].Content.value;
		var popupWin = window.open('preview.asp', 'preview_page', 'scrollbars=yes,width=750,height=450');
		document.forms[1].submit()
		}
		</script>
<%
	if err.number<>0 then err.clear
end sub
%>