<%
'#################################################################################
'## 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 "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 " נעילת הנושא בוטלה!
" & vbNewLine & _
" " & vbNewLine
else
Response.Write " אין הרשאות לביטול נעילת הנושא
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
else
Response.Write " אין הרשאות לביטול נעילת הנושא
" & _
"
חזור לאימות זהותך מחדש
" & vbNewLine
end if
case "OpenForum"
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 = 1 "
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 "OpenCategory"
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 = 1 "
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 "UnLockMember"
strEncodedPassword = sha256("" & strPassword)
mLev = cLng(ChkUser(strDBNTFUserName, strEncodedPassword,-1))
if mLev > 0 then '## is Member
if (mLev = 4) and (cLng(chkCanOpen(MemberID,Member_ID)) = 1) then
'## Forum_SQL
strSql = "UPDATE " & strMemberTablePrefix & "MEMBERS "
strSql = strSql & " SET M_STATUS = 1 "
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 "UnStickyTopic"
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 = " & 0
strSQL = strSql & ", T_ARCHIVE_FLAG = " & 1
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)
Response.Write " " & vbNewLine
end select
WriteFooterShort
Response.End
function chkCanOpen(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
chkCanOpen = 0 '## No Members Found
else
if cLng(rsCheck("MEMBER_ID")) = cLng(fAM_ID) then
chkCanOpen = 0 '## Can't unlock self
else
Select case cLng(rsCheck("M_LEVEL"))
case 1
chkCanOpen = 1 '## Can unlock Normal User
case 2
chkCanOpen = 1 '## Can unlock Moderator
case 3
if fAM_ID <> intAdminMemberID then
chkCanOpen = 0 '## Only the Forum Admin can unlock other Administrators
else
chkCanOpen = 1 '## Forum Admin is ok to unlock other Administrators
end if
case else
chkCanOpen = 0 '## Member doesn't have a Member Level?
End Select
end if
end if
rsCheck.close
set rsCheck = nothing
end function
%>