% '################################################################################# '## Snitz Forums 2000 v3.4.06 '################################################################################# '## Copyright (C) 2000-06 Michael Anderson, Pierre Gorissen, '## Huw Reddick and Richard Kinser '## '## This program is free software; you can redistribute it and/or '## modify it under the terms of the GNU General Public License '## as published by the Free Software Foundation; either version 2 '## of the License, or (at your option) any later version. '## '## All copyright notices regarding Snitz Forums 2000 '## must remain intact in the scripts and in the outputted HTML '## The "powered by" text/logo with a link back to '## http://forum.snitz.com in the footer of the pages MUST '## remain visible when the pages are viewed on the internet or intranet. '## '## This program is distributed in the hope that it will be useful, '## but WITHOUT ANY WARRANTY; without even the implied warranty of '## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the '## GNU General Public License for more details. '## '## You should have received a copy of the GNU General Public License '## along with this program; if not, write to the Free Software '## Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. '## '## Support can be obtained from our support forums at: '## http://forum.snitz.com '## '## Correspondence and Marketing Questions can be sent to: '## manderson@snitz.com '## '################################################################################# %> <% if Request("CAT_ID") <> "" then if IsNumeric(Request("CAT_ID")) = True then Cat_ID = cLng(Request("CAT_ID")) else Cat_ID = 0 end if if Request("FORUM_ID") <> "" then if IsNumeric(Request("FORUM_ID")) = True then Forum_ID = cLng(Request("FORUM_ID")) else Forum_ID = 0 end if if Request("TOPIC_ID") <> "" then if IsNumeric(Request("TOPIC_ID")) = True then Topic_ID = cLng(Request("TOPIC_ID")) else Topic_ID = 0 end if if Request("REPLY_ID") <> "" then if IsNumeric(Request("REPLY_ID")) = True then Reply_ID = cLng(Request("REPLY_ID")) else Reply_ID = 0 end if if Request("MEMBER_ID") <> "" then if IsNumeric(Request("MEMBER_ID")) = True then Member_ID = cLng(Request("MEMBER_ID")) else Member_ID = 0 end if if (Cat_ID + Forum_ID + Topic_ID + Reply_ID + Member_ID) < 1 then Response.Write "
The URL has been modified!
" & vbNewLine & _ "Possible Hacking Attempt!
" & vbNewLine WriteFooterShort Response.End end if Mode_Type = ChkString(Request("mode"), "SQLString") strPassword = trim(Request.Form("pass")) Select case Mode_Type case "OpenTopic" strEncodedPassword = sha256("" & strPassword) mLev = cLng(ChkUser(strDBNTFUserName, strEncodedPassword,-1)) if mLev > 0 then '## is Member if (chkForumModerator(Forum_ID, strDBNTFUserName) = "1") or (mLev = 4) then '## Forum_SQL strSql = "UPDATE " & strTablePrefix & "TOPICS " strSql = strSql & " SET T_STATUS = 1 " strSQL = strSql & ", T_ARCHIVE_FLAG = 1" strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords Response.Write "Topic Un-Locked!
" & vbNewLine & _ " " & vbNewLine else Response.Write "No Permissions to Un-Lock Topic
" & _
"
Go Back to Re-Authenticate
No Permissions to Un-Lock Topic
" & _
"
Go Back to Re-Authenticate
Forum Un-Locked!
" & vbNewLine & _ " " & vbNewLine else Response.Write "No Permissions to Un-Lock Forum
" & _
"
Go Back to Re-Authenticate
No Permissions to Un-Lock Forum
" & _
"
Go Back to Re-Authenticate
Category Un-Locked!
" & vbNewLine & _ " " & vbNewLine else Response.Write "No Permissions to Un-Lock Category
" & _
"
Go Back to Re-Authenticate
No Permissions to Un-Lock Category
" & _
"
Go Back to Re-Authenticate
Member Un-Locked!
" & vbNewLine & _ " " & vbNewLine else Response.Write "No Permissions to Un-Lock a Member
" & _
"
Go Back to Re-Authenticate
No Permissions to Un-Lock a Member
" & _
"
Go Back to Re-Authenticate
Topic Made Un-Sticky!
" & vbNewLine & _ " " & vbNewLine else Response.Write "No Permissions to Make Topic Un-Sticky!
" & _
"
Go Back to Re-Authenticate
No Permissions to Make Topic Un-Sticky!
" & _
"
Go Back to Re-Authenticate
" select case Mode_Type case "Topic" Response.Write("Un-Lock Topic") case "Forum" Response.Write("Un-Lock Forum") case "Category" Response.Write("Un-Lock Category") case "Member" Response.Write("Un-Lock Member") case "STopic" Response.Write("Make Topic Un-Sticky") end select Response.Write "
" & vbNewLine & _ "NOTE: "
select case Mode_Type
case "STopic"
Response.Write("Only Moderators and Administrators
can make a Topic Un-Sticky.")
case "Member"
Response.Write("Only Administrators can un-lock a Member.")
case "Category"
Response.Write("Only Administrators can un-lock a Category.")
case "Forum"
Response.Write("Only Administrators can un-lock a Forum.")
case "Topic"
Response.Write("Only Moderators and Administrators
can un-lock a Topic.")
end select
Response.Write("