<%@ codepage ="936" %>
<!-- #include file="setup.asp" -->
<%
forumid=Request("forumid")
if isnumeric(""&forumid&"") = flase then
error("<li>非法操作")
end if
sql="select bbsname,pro from bbsconfig where id="&forumid&""
rs.Open sql,Conn,1,1
if rs.eof then
        rs.close
	message=message&"<li>数据库中不存在ID为 "&forumid&" 的数据"
	error(""&message&"")
end if
bbsname=rs(0)
b_pro=rs(1)
rs.close

select case b_pro
case 1
bb_pro="<br>影 视： 不支持<br>贴 图： 不支持"
case 2
bb_pro="<br>影 视： 不支持<br>贴 图： 支持"
case 3
bb_pro="<br>影 视： 支持<br>贴 图： 支持"
end select
bb_pro=bb_pro & "<br>发贴等级：" & de_grade
top
%>
<title>回复文章</title>
<SCRIPT>function HighlightAll(theField) {
var tempval=eval("document."+theField)
tempval.focus()
tempval.select()
therange=tempval.createTextRange()
therange.execCommand("Copy")}
function DoTitle(addTitle) {
var currentTitle = document.form.topic.value;
revisedTitle = currentTitle+addTitle;
document.form.topic.value=revisedTitle;
return; }
var MessageMax="50000";
var Override="";
function copyText(obj,b_cmd) {var rng = document.body.createTextRange();rng.moveToElementText(obj);rng.select();rng.execCommand(b_cmd);}
function CheckLength(){
MessageLength=document.form.content.value.length;
message="";
if(MessageMax !=0) {
message="最大字符为 "+MessageMax+ " 字节";
}else{
messag ="";
}
alert(message+"\n您的内容已有 "+MessageLength+" 字节");
}
function ValidateForm(){
topicLength=document.form.topic.value.length;
if(topicLength<2){alert("文章标题不能小于2个字符！");return false;}
MessageLength =document.form.content.value.length;
errors="";
if(MessageLength<2){
errors="文章内容不能小于2个字符！";
}
if(MessageMax !=0){
if(MessageLength > MessageMax){
errors="本论坛限制文章长度不得超过 "+MessageMax+" 字节\n目前您的文章字节: "+MessageLength;
}
}
if(errors != "" && Override == ""){alert(errors);
return false;
}else{
copyText(document.form.content,'Copy');
document.form.submit1.disabled = true;
return true;
}
}
function emoticon(theSmilie){
document.form.content.value += theSmilie + ' ';
document.form.content.focus();
}
var i=0;
function presskey(eventobject){if(event.ctrlKey && window.event.keyCode==13){i++;if (i>1) {alert('帖子正在发出，请耐心等待！');return false;}this.document.form.submit();}}
</SCRIPT>
<CENTER>
<table width="100%" align="center" border="0"><tr>
<td vAlign="top" width="30%"></td>
<td vAlign="center" align="top">&nbsp;&nbsp;<img src="images/closedfold.gif" border="0">&nbsp;&nbsp;<a href="index.asp"><%=clubname%></a><br>
&nbsp;&nbsp;<img src="images/bar.gif" border="0"><img src="images/closedfold.gif" border="0">&nbsp;&nbsp;<a href="forumdisplay.asp?forumid=<%=forumid%>"><%=bbsname%></a><br>
<%
if Request("retopicid")<>"" then
sql="select * from reforum where id="&Request("retopicid")&""
rs.Open sql,Conn,1
else
sql="select * from forum where ID="&Request("id")&" and forumid="&Request("forumid")&""
rs.Open sql,Conn,1
end if
if Request("quote")=1 then
%>
<!-- #include file="inc/ybbcode.asp" -->
<%
content =rs("content")
content = unybbcode(content)
'content = delquote(content)
if Len(content) > 100 then
content=""&left(content,100)&"..."
end if
quote="[quote]原文由 [B]"&rs("username")&"[/B] 发表:"&vbCrlf&""&content&"[/quote]"
end if
%>
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="images/bar.gif" border="0"><img src="images/openfold.gif" border="0">&nbsp;&nbsp;<a href="showtopic.asp?forumid=<%=forumid%>&id=<%=Request("id")%>"><%=rs("topic")%></a></td>
</tr>
</table>
<br>
<TABLE cellSpacing=0 cellPadding=5 width=100% border=1 bordercolor="#A4B6D7" style="border-collapse: collapse">
<form method=post name=form onsubmit="return ValidateForm()" action=addretopic.asp>
<input type=hidden name=id value=<%=Request("id")%>>
<input type=hidden name=forumid value=<%=Request("forumid")%>>
<TBODY>
<TR>
<TD width=100 bgColor=F2F8FF height=25><B>用户名称</B></TD>
<TD bgColor=F2F8FF height=25>
<%=nickname%></TD>
</TR>
<TR>
<TD width=100 bgColor=ECF5FF height=25><B>标题</B> <SELECT
onchange=DoTitle(this.options[this.selectedIndex].value)> <OPTION
value="" selected>&nbsp;类型</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> </TD>
<TD width=520 bgColor=ECF5FF colSpan=3 height=25>
<INPUT maxLength=30 size=72 name=topic></TD></TR>
<TR>
<TD vAlign=top width=100 bgColor=ECF5FF rowSpan=2>
<TABLE cellSpacing=0 cellPadding=0 width=97 align=left bgColor=f8f8f8
border=0>
<TBODY>
<TR>
<TD vAlign=top align=left width=125 bgcolor="#ECF5FF"><BR><A
href="javascript:CheckLength();">校验贴子长度</A><BR><BR>
</TD></TR>
<TD vAlign=center align=left width=125 bgcolor="#ECF5FF">
<TR>
<TD bgcolor="#ECF5FF"><BR>HTML代码： 禁止<BR>UBB 代码： 支持<%=bb_pro%><br>
</TD></TR></TD></TR></TBODY></TABLE></TD>
<SCRIPT src="images/ybbcode.js"></SCRIPT>
<TD width=520 bgColor=ECF5FF colSpan=3>
<!-- #include file="form.inc" -->
</TD></TR>
<TR>
<TD width=520 bgColor=ECF5FF colSpan=3>
<TEXTAREA onkeydown=presskey(); onclick="vbscript:closeput()" name=content rows=10 cols=70 ><%=quote%></TEXTAREA></TD></TR>
<TR>
<TD align=left bgColor=C4D4E5>　</TD>
<TD align=left bgColor=C4D4E5 colSpan=3>　</TD></TR>
<TR>
<TD vAlign=top width=126 bgColor=F2F8FF height=30></TD>
<TD width=481 bgColor=F2F8FF colSpan=3 height=30>
<INPUT type=checkbox value=1 name=htmlcode> HTML代码<BR>
<INPUT type=checkbox value=1 name=ybbcode> 禁止UBB代码<BR>
<INPUT type=checkbox value=1 name=autoURL checked> 分析网址<BR>
<INPUT type=checkbox value=1 name=autoEmail> 分析Email<BR>
</TD></TR>
<TR>
<TD align=middle bgColor=ECF5FF colSpan=4 height=27 width="618"><INPUT tabIndex=4 type=submit value="回 复 · 复 制" name=submit1>&nbsp; <INPUT type="button" onclick="javascript:copyText(document.form.content,'paste');" value=" 粘 贴 ">&nbsp; <INPUT type=button name="yl_button" onclick="puthtml()" value=" 预 览 ">&nbsp; <INPUT type=reset value=" 重 写 "></TD></TR></TBODY></TABLE></FORM>
<%
rs.close
htmlend
%>