%
top
id=int(Request("id"))
forumid=Conn.Execute("Select forumid From forum where id="&id)(0)
if instr(Request.ServerVariables("http_referer"),"http://"&Request.ServerVariables("server_name")&"") = 0 then error("
来源错误")
if Request.Cookies("username")=empty then error("您还未登录社区")
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
content=HTMLEncode(Request.Form("content"))
topic=HTMLEncode(Request("topic"))
if Request.ServerVariables("request_method") = "POST" and Request("preview")="" then
If not conn.Execute("Select username From [prison] where username='"&Request.Cookies("username")&"'" ).eof Then error("您被关进监狱")
username=Request.Cookies("username")
if Conn.Execute("Select locktopic From [forum] where ID="&ID&"")(0)=1 then error("此主题已经关闭,不接受新的回复")
if Len(content)<2 then message=message&"文章内容不能小于 2 字符"
if Request.Cookies("posttime")<>empty then
if DateDiff("s",Request.Cookies("posttime"),Now()) < int(PostTime) then message=message&"为防止有人用程序灌水,论坛限制一个人两次发帖间隔必须大于"&PostTime&"秒!"
end if
if message<>"" then error(""&message&"")
sql="select * from [user] where username='"&HTMLEncode(username)&"'"
rs.Open sql,Conn,1,3
if rs("userlife")<3 then
message=message&"您的体力值 < 3 不能发表文章每有效停留时间 10 分钟:体力值:+10"
end if
if rs("experience")<1 and Reg10 = 1 then message=message&"新注册用户登录社区停留 10 分钟以上才可发表帖子"
if message<>"" then error(""&message&"")
if rs("membercode")<2 and instr("|"&Conn.Execute("Select moderated From [bbsconfig] where id="&forumid&"")(0)&"|","|"&Request.Cookies("username")&"|")=0 then
rs("userlife")=rs("userlife")-2
end if
rs("landtime")=now()
rs("postrevert")=rs("postrevert")+1
rs("money")=rs("money")+2
rs("experience")=rs("experience")+2
rs.update
rs.close
sql="insert into reforum (topicid,username,content,postip) values ('"&id&"','"&Request.Cookies("username")&"','"&content&"','"&remoteaddr&"')"
conn.Execute(SQL)
conn.execute("update [forum] set lastname='"&username&"',replies=replies+1,lasttime='"&now()&"' where ID="&ID&"")
conn.execute("update [bbsconfig] set lasttopic='"&left(topic,15)&"',lastname='"&username&"',lasttime='"&now()&"',today=today+1,tolrestore=tolrestore+1 where id="&forumid&"")
conn.execute("update [clubconfig] set today=today+1")
Response.Cookies("posttime")=now
Application.Lock
Application(CacheName&"CountReforum") = Application(CacheName&"CountReforum")+1
Application.UnLock
message=message&"回复主题成功返回主题返回论坛返回论坛首页"
succeed(""&message&"")
end if
'''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
sql="select * from bbsconfig where id="&forumid&""
Set Rs=Conn.Execute(sql)
bbsname=rs("bbsname")
logo=rs("logo")
followid=rs("followid")
rs.close
if Request("quote")=1 and Request("preview")="" then
if isnumeric(""&Request("retopicid")&"") then
sql="select * from reforum where id="&Request("retopicid")&""
else
sql="select * from forum where ID="&id&""
end if
Set Rs=Conn.Execute(sql)
content =rs("content")
quote="[quote]原文由 [B]"&rs("username")&"[/B] 发表:"&vbCrlf&""&content&""&vbCrlf&"[/quote]"
rs.close
end if
%>
<%
if Request("preview")<>"" then
%>
<%
end if
%>
<%
htmlend
%>