<% if Request.Cookies("username")=empty then error2("请登录后再进行操作！") if Request.ServerVariables("request_method") <> "POST" then response.write "

" htmlend end if top id=int(Request("id")) sql="Select * From forum where ID="&ID&"" rs.Open sql,Conn,1 forumid=rs("forumid") ReList=rs("ReList") rs.close if membercode > 3 then pass=1 elseif instr("|"&Conn.Execute("Select moderated From bbsconfig where id="&forumid&" ")(0)&"|","|"&Request.Cookies("username")&"|")>0 then pass=1 end if if pass<>1 then error("

您的权限不够") username=Conn.Execute("Select username From forum where id="&id&"")(0) select case Request("menu") ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "top" if membercode > 3 then conn.execute("update forum set toptopic=2 where id="&id&"") succtitle="总置顶主题成功" else error("

您的权限不够") end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "untop" if membercode > 3 then conn.execute("update forum set toptopic=0 where id="&id&"") succtitle="取消总置顶主题成功" else error("

您的权限不够") end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "movenew" conn.execute("update forum set lasttime='"&now()&"' where id="&id&"") succtitle="拉前主题成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "move" moveid=Request("moveid") if moveid="" then error("

您没有选择要将主题移动哪个论坛") if Conn.Execute("Select pass From bbsconfig where id="&cint(moveid)&"")(0)=4 then error("

目标论坛为授权发帖状态") conn.execute("update forum set forumid="&Request("moveid")&",toptopic=0,goodtopic=0,locktopic=0 where id="&id&"") succtitle="移动主题成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "deltopic" if isnumeric(""&Request("retopicid")&"") then conn.execute("delete from reforum"&ReList&" where topicid="&id&" and id="&Request("retopicid")&"") conn.execute("update forum set replies=replies-1 where id="&id&"") succtitle="删除回贴成功" else conn.execute("update user set deltopic=deltopic+1 where username='"&username&"'") conn.execute("update forum set toptopic=0,deltopic=1,lastname='"&Request.Cookies("username")&"',lasttime='"&now()&"' where id="&id&" and deltopic=0") succtitle="删除主题成功" end if ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "goodtopic" if Conn.Execute("Select goodtopic From forum where id="&id&" ")(0)=1 then error("

此帖子已经加入精华区了，无需重复添加") conn.execute("update forum set goodtopic=1 where id="&id&"") conn.execute("update user set goodtopic=goodtopic+1 where username='"&username&"'") succtitle="加入精华区成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "delgoodtopic" if Conn.Execute("Select goodtopic From forum where id="&id&" ")(0)=0 then error("

此帖子已经移出精华区了") conn.execute("update forum set goodtopic=0 where id="&id&"") conn.execute("update user set goodtopic=goodtopic-1 where username='"&username&"'") succtitle="移出精华区成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "toptopic" conn.execute("update forum set toptopic=1 where id="&id&"") succtitle="置顶主题成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "deltoptopic" conn.execute("update forum set toptopic=0 where id="&id&"") succtitle="取消置顶主题成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "locktopic" conn.execute("update forum set locktopic=1 where id="&id&"") succtitle="关闭主题成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "dellocktopic" conn.execute("update forum set locktopic=0 where id="&id&"") succtitle="开放主题成功" ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' case "lookip" if isnumeric(""&Request("retopicid")&"") then sql="Select * From reforum"&ReList&" where id="&Request("retopicid")&"" else sql="Select * From forum where id="&id&"" end if rs.Open sql,Conn,1 username=rs("username") posttime=rs("posttime") postip=rs("postip") rs.close %> align=center cellspacing=1 cellpadding=4 class=a2>

<%ClubTree%> → 查看IP

查看IP
用户名	<%=username%>
时间	<%=posttime%>
IP地址	<%=postip%>

>BACK
<% htmlend ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''' end select if succtitle="" then error("

无效命令") 'log(""&succtitle&"，主题ID："&id&"") message="

"&succtitle&"

返回论坛

返回社区首页" succeed(""&message&"") %>