retopic.asp

感谢您使用BBSXP

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

UserName=Request.Cookies("UserName")
if Request.Cookies("UserName")=empty then error("<li>您还未<a href=Login.asp>登录</a>社区")
If not Conn.Execute("Select UserName From [BBSXP_Prison] where UserName='"&UserName&"'" ).eof Then error("<li>您被关进<a href=Prison.asp>监狱</a>")
ThreadID=int(Request("ThreadID"))



sql="Select * From [BBSXP_Threads] where ID="&ThreadID&""
Rs.Open sql,Conn,1
if Rs("IsLocked")=1 then error("<li>此主题已经关闭，不接受新的回复")
ForumID=Rs("ForumID")
PostsTableName=Rs("PostsTableName")
Topic=Rs("Topic")
Subject=ReplaceText(Rs("Topic"),"<[^>]*>","")
Rs.close


sql="select * from [BBSXP_Forums] where id="&ForumID&""
Set Rs=Conn.Execute(sql)
ForumName=Rs("ForumName")
ForumLogo=Rs("ForumLogo")
moderated=Rs("moderated")
followid=Rs("followid")
Rs.close

if membercode>1 or instr("|"&moderated&"|","|"&Request.Cookies("UserName")&"|")>0 then UserPopedomPass=1

'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
if Request.ServerVariables("request_method") = "POST" then

Subject=HTMLEncode(Request.Form("Subject"))
color=HTMLEncode(Request.Form("color"))
content=contentEncode(Request.Form("content"))
if Len(content)<2 then Message=Message&"<li>文章内容不能小于 2 字符"

if Message<>"" then error(""&Message&"")


if SiteSettings("BannedText")<>empty then
filtrate=split(SiteSettings("BannedText"),"|")
for i = 0 to ubound(filtrate)
Subject=ReplaceText(Subject,""&filtrate(i)&"",string(len(filtrate(i)),"*"))
next
end if


sql="select * from [BBSXP_Users] where UserName='"&HTMLEncode(UserName)&"'"
Rs.Open sql,Conn,1,3

StopPostTime=int(DateDiff("s",Rs("UserLandTime"),Now()))
if StopPostTime < int(SiteSettings("DuplicatePostIntervalInMinutes")) then Message=Message&"<li>论坛限制一个人两次发帖间隔必须大于 "&SiteSettings("DuplicatePostIntervalInMinutes")&" 秒！<li>您必须再等待 "&SiteSettings("DuplicatePostIntervalInMinutes")-StopPostTime&" 秒！"

StopPostTime=int(DateDiff("s",Rs("UserRegTime"),Now()))
if StopPostTime < int(SiteSettings("RegUserTimePost")) then Message=Message&"<li>新注册用户必须等待 "&SiteSettings("RegUserTimePost")&" 秒后才能发帖！<li>您必须再等待 "&SiteSettings("RegUserTimePost")-StopPostTime&" 秒！"

if Message<>"" then error(""&Message&"")
Rs("Postrevert")=Rs("Postrevert")+1
Rs("UserMoney")=Rs("UserMoney")+SiteSettings("IntegralAddPost")
Rs("experience")=Rs("experience")+SiteSettings("IntegralAddPost")
Rs("UserLandTime")=now()
Rs("UserLastIP")=Request.ServerVariables("REMOTE_ADDR")
Rs.update
Rs.close

if UserPopedomPass=1 and color<>"" then Subject="<font color="&color&">"&Subject&"</font>"


Conn.Execute("insert into [BBSXP_Posts"&PostsTableName&"] (ThreadID,UserName,Subject,content,Postip) values ('"&ThreadID&"','"&Request.Cookies("UserName")&"','"&Subject&"','"&content&"','"&Request.ServerVariables("REMOTE_ADDR")&"')")
Conn.execute("update [BBSXP_Threads] set lastname='"&UserName&"',replies=replies+1,lasttime='"&now()&"' where ID="&ThreadID&"")
Conn.execute("update [BBSXP_Forums] set lastTopic='<a href=ShowPost.asp?ThreadID="&ThreadID&">"&Left(HTMLEncode(Request.Form("Subject")),15)&"</a>',lastname='"&UserName&"',lasttime='"&now()&"',ForumToday=ForumToday+1,ForumPosts=ForumPosts+1 where id="&ForumID&"")
Conn.execute("update [BBSXP_SiteSettings] set TodayPost=TodayPost+1,TotalPost=TotalPost+1")


Message=Message&"<li>回复主题成功<li><a href=ShowPost.asp?ThreadID="&ThreadID&">返回主题</a><li><a href=ShowForum.asp?ForumID="&ForumID&">返回论坛</a><li><a href=Default.asp>返回论坛首页</a>"
succeed(""&Message&"<meta http-equiv=refresh content=3;url=ShowForum.asp?ForumID="&ForumID&">")


end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''


if isnumeric(""&Request("PostID")&"") then
sql="select * from [BBSXP_Posts"&PostsTableName&"] where id="&Request("PostID")&""
Set Rs=Conn.Execute(sql)
Subject=ReplaceText(Rs("Subject"),"<[^>]*>","")
if Request("quote")=1 then
quote="<blockquote><strong>引用</strong>：<hr>原文由 <b>"&Rs("UserName")&"</b> 发表于 <i>"&Rs("Posttime")&"</i> :<br>"&Rs("content")&""&vbCrlf&"<hr></blockquote>"
end if
Rs.close
end if

%>
<script>
if ("<%=ForumLogo%>"!=''){Logo.innerHTML="<img border=0 src=<%=ForumLogo%> onload='javascript:if(this.height>60)this.height=60;'>"}
function title_color(color){document.yuziform.Subject.style.color = color;}
</script>


	<table border="0" width="100%" align="center" cellspacing="1" cellpadding="4" class=a2>
		<tr class=a3>
			<td height="25">&nbsp;<img src=images/Forum_nav.gif>&nbsp; <%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> <a href=ShowForum.asp?ForumID=<%=ForumID%>><%=ForumName%></a> → <a href="ShowPost.asp?ThreadID=<%=ThreadID%>"><%=Topic%></a> → 回复帖子</td>
		</tr>
	</table><br>




<TABLE cellSpacing=1 cellPadding=5 width=100% border=0 class=a2 align="center">
<form name="yuziform" method="post" onSubmit="return CheckForm(this);">
<input name="content" type="hidden" value='<%=quote%>'>
<input type=hidden name=ThreadID value=<%=ThreadID%>>

<TR class=a1>
<TD vAlign=Left colSpan=2 height=25><b>回复帖子</b></TD></TR>
<TR class=a4>
<TD width=212 height=25><B>文章标题 </B> 



</TD>
<TD width=750 class=a3 height=25>
<INPUT maxLength=50 size=60 name=Subject value="Re:<%=Subject%>">
<%if UserPopedomPass=1 then %>
<SELECT name=color onchange="title_color(this.options[this.selectedIndex].value)">
<option value="">颜色</option>
<option style=background-color:Black;color:Black value=Black>黑色</option>
<option style=background-color:green;color:green value=green>绿色</option>
<option style=background-color:red;color:red value=red>红色</option>
<option style=background-color:blue;color:blue value=blue>蓝色</option>
<option style=background-color:Navy;color:Navy value=Navy>深蓝</option>
<option style=background-color:Teal;color:Teal value=Teal>青色</option>
<option style=background-color:Purple;color:Purple value=Purple>紫色</option>
<option style=background-color:Fuchsia;color:Fuchsia value=Fuchsia>紫红</option>
<option style=background-color:Gray;color:Gray value=Gray>灰色</option>
<option style=background-color:Olive;color:Olive value=Olive>橄榄</option>
</SELECT>
<%end if%>
</TD></TR>



<TR>
<TD vAlign=top class=a3>
<TABLE cellSpacing=0 cellPadding=0 width=100% align=Left border=0>

<TR>
<TD vAlign=top align=Left width=100% class=a3><br><B>文章内容</B><BR>
(<a href="javascript:CheckLength();">查看内容长度</a>)<BR><BR>
</TD></TR>
</TABLE></TD>
<TD class=a3 height=250>

<SCRIPT src="inc/Post.js"></SCRIPT>
</TD></TR>


<%if SiteSettings("UpFileOption")<>"" then%>

<TR>
<TD align=Left class=a4>
<IMG src=images/affix.gif><b>增加附件</b></TD>
<TD align=Left class=a4><font color="FFFFFF"><b><IFRAME src="PostUpFile.asp" frameBorder=0 width="100%" scrolling=no height=21></IFRAME></b></font></TD></TR>
<%end if%>

<TR>
<TD align=middle class=a3 colSpan=2 height=27>
<INPUT type=submit value=回复主题 name=EditSubmit>&nbsp;   <INPUT type=reset value=" 重 置 "></TD></TR></FORM>
</TABLE>



<%

htmlend
%>