<% 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 %>
       <%ClubTree%> → <%ForumTree(followid)%><%=ForumTreeList%> ><%=bbsname%><%=Request("topic")%> → 回复帖子

    <% if Request("preview")<>"" then %>
    预览帖子

    <% end if %> >
    回复文章
    用户名称 <%=Request.Cookies("username")%> [退出登录]
    文章内容
    (查看内容长度)


    粗体 斜体 下划线 居中 插入超链接 插入电子邮件地址 插入图片 插入FLASH文件 插入RealPlayer文件 插入Media Player文件 引用

                 『 替换内容 』 『 复制到剪贴板
    增加附件
     
    <% htmlend %>