<%
'#################################################################################
'## Snitz Forums 2000 v3.4.05
'#################################################################################
'## Copyright (C) 2000-05 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 " כתובת הרשת שונתה!
" & vbNewLine & _
" ייתכן שהיה נסיון פריצה!
" & vbNewLine
WriteFooterShort
Response.End
end if
Mode_Type = ChkString(Request("mode"), "SQLString")
strPassword = trim(Request.Form("pass"))
select case Mode_Type
case "CloseTopic"
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 = " & 0
if Request.Form("noArchiveFlag") = "1" then
strSQL = strSql & ", T_ARCHIVE_FLAG = " & 0
else
strSQL = strSql & ", T_ARCHIVE_FLAG = " & 1
end if
strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
Response.Write " הנושא ננעל!
" & vbNewLine & _
" " & vbNewLine
else
Response.Write " אין הרשאות לנעילת הנושא
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
else
Response.Write " אין הרשאות לנעילת הנושא
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
case "CloseForum"
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 & "FORUM "
strSql = strSql & " SET F_STATUS = 0 "
strSql = strSql & " WHERE FORUM_ID = " & Forum_ID
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
Response.Write " הפורום ננעל!
" & vbNewLine & _
" " & vbNewLine
else
Response.Write " אין הרשאות לנעילת הפורום
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
else
Response.Write " אין הרשאות לנעילת הפורום
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
case "CloseCategory"
strEncodedPassword = sha256("" & strPassword)
mLev = cLng(ChkUser(strDBNTFUserName, strEncodedPassword,-1))
if mLev > 0 then '## is Member
if mLev = 4 then
'## Forum_SQL
strSql = "UPDATE " & strTablePrefix & "CATEGORY "
strSql = strSql & " SET CAT_STATUS = 0 "
strSql = strSql & " WHERE CAT_ID = " & Cat_ID
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
Response.Write " הקטגוריה ננעלה!
" & vbNewLine & _
" " & vbNewLine
else
Response.Write " אין הרשאות לנעילת הקטגוריה
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
else
Response.Write " אין הרשאות לנעילת הקטגוריה
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
case "LockMember"
strEncodedPassword = sha256("" & strPassword)
mLev = cLng(ChkUser(strDBNTFUserName, strEncodedPassword,-1))
if mLev > 0 then '## is Member
if (mLev = 4) and (cLng(chkCanLock(MemberID,Member_ID)) = 1) then
'## Forum_SQL
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_STATUS = 0 "
strSql = strSql & " WHERE MEMBER_ID = " & Member_ID
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
Response.Write " החבר ננעל!
" & vbNewLine & _
" " & vbNewLine
else
Response.Write " אין הרשאות לנעילת חברים
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
else
Response.Write " אין הרשאות לנעילת חברים
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
case "StickyTopic"
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_STICKY = " & 1
strSQL = strSql & ", T_ARCHIVE_FLAG = " & 0
strSql = strSql & " WHERE TOPIC_ID = " & Topic_ID
my_Conn.Execute (strSql),,adCmdText + adExecuteNoRecords
Response.Write " הפכת את הנושא לדביק!
" & vbNewLine & _
" " & vbNewLine
else
Response.Write " אין הרשאות להפיכת הנושא לדביק!
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
else
Response.Write " אין הרשאות להפיכת הנושא לדביק!
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
case else
Response.Write " "
select case Mode_Type
case "Topic"
Response.Write("נעל נושא")
case "Forum"
Response.Write("נעל פורום")
case "Category"
Response.Write("נעל קטגוריה")
case "Member"
Response.Write("נעל חבר")
case "STopic"
Response.Write("הפוך נושא לדביק")
end select
Response.Write "
" & vbNewLine & _
" הערה: "
select case Mode_Type
case "STopic"
Response.Write("רק מנהל פורום או מנהל ראשי יכולים להפוך נושא לדביק.")
case "Member"
Response.Write("רק מנהל ראשי יכול לנעול חבר.")
case "Category"
Response.Write("רק מנהל ראשי יכול לנעול קטגוריה.")
case "Forum"
Response.Write("רק מנהל פורום או מנהל ראשי יכולים לנעול פורום.")
case "Topic"
Response.Write("רק מנהל פורום או מנהל ראשי יכולים לנעול נושא.")
end select
Response.Write "
" & vbNewLine & _
" " & vbNewLine
end select
WriteFooterShort
Response.End
function chkCanLock(fAM_ID, fM_ID)
'## Forum_SQL
strSql = "SELECT MEMBER_ID, M_LEVEL "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS "
StrSql = strSql & " WHERE MEMBER_ID = " & fM_ID
set rsCheck = my_Conn.Execute (strSql)
if rsCheck.BOF or rsCheck.EOF then
chkCanLock = 0 '## No Members Found
else
if cLng(rsCheck("MEMBER_ID")) = cLng(fAM_ID) then
chkCanLock = 0 '## Can't lock self
else
Select case cLng(rsCheck("M_LEVEL"))
case 1
chkCanLock = 1 '## Can lock Normal User
case 2
chkCanLock = 1 '## Can lock Moderator
case 3
if fAM_ID <> intAdminMemberID then
chkCanLock = 0 '## Only the Forum Admin can lock other Administrators
else
chkCanLock = 1 '## Forum Admin is ok to lock other Administrators
end if
case else
chkCanLock = 0 '## Member doesn't have a Member Level?
End Select
end if
end if
rsCheck.close
set rsCheck = nothing
end function
%>