<%
'***********************************************************************
'** Copyright (C) 2001 - 2004 Max Yuan All Rights Reserved
'**
'** By using this program, you are agreeing to the terms of the
'** GNU General Public License.
'**
'** 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 any later version.
'**
'** All copyright notices regarding MaxWebPortal must remain intact
'** in the scripts and in the outputted HTML.
'** The "powered by" text/logo with a link back to
'** http://www.maxwebportal.com in the footer of the pages MUST
'** remain visible when the pages are viewed on the internet or intranet.
'**
'** Support can be obtained from support forums at:
'** http://www.maxwebportal.com
'**
'** Email: maxwebportal@hotmail.com
'** ICQ: 148111300
'***********************************************************************
'** This Page Contains source code of Snitz Forums 2000
'***********************************************************************
'#################################################################################
'## Copyright (C) 2000 Michael Anderson and Pierre Gorissen
'##
'## 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 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 support forums at:
'## http://forum.snitz.com
'##
'## Correspondence and Marketing Questions can be sent to:
'## reinhold@bigfoot.com
'##
'## or
'##
'## Snitz Communications
'## C/O: Michael Anderson
'## PO Box 200
'## Harpswell, ME 04079
'#################################################################################
CurPageType = "forums"
CurPageInfoChk = "1"
function CurPageInfo ()
strOnlineQueryString = ChkActUsrUrl(Request.QueryString)
If Request.QueryString("method") = "Reply" Then
PageName = chkString(Request.QueryString("Topic_Title"), "display")
PageAction = "Replying To Message
"
PageLocation = "topic_ng.asp?" & strOnlineQueryString & ""
ElseIf Request.QueryString("method") = "Topic" Then
PageName = chkString(Request.QueryString("Forum_Title"), "display")
PageAction = "Posting New Topic in
"
PageLocation = "forum_ng.asp?" & strOnlineQueryString & ""
else
PageName = "Unknown"
PageAction = "Unknown"
PageLocation = "fhome_ng.asp"
end if
CurPageInfo = PageAction & " " & "" & PageName & ""
end function
%>
<%
'#################################################################################
'## Variable declaration
'#################################################################################
dim strSelecSize
dim intCols, intRows
%>
<%
'#################################################################################
'## Initialise variables
'#################################################################################
strSelectSize = Request.Form("SelectSize")
strRqMethod = chkString(Request.QueryString("method"), "SQLString")
if Request.QueryString("TOPIC_ID") <> "" or Request.QueryString("TOPIC_ID") <> " " then
if IsNumeric(Request.QueryString("TOPIC_ID")) = True then
strRqTopicID = cLng(Request.QueryString("TOPIC_ID"))
else
Response.Redirect("fhome_ng.asp")
end if
end if
if Request.QueryString("FORUM_ID") <> "" or Request.QueryString("FORUM_ID") <> " " then
if IsNumeric(Request.QueryString("FORUM_ID")) = True then
strRqForumID = cLng(Request.QueryString("FORUM_ID"))
else
Response.Redirect("fhome_ng.asp")
end if
end if
if Request.QueryString("CAT_ID") <> "" or Request.QueryString("CAT_ID") <> " " then
if IsNumeric(Request.QueryString("CAT_ID")) = True then
strRqCatID = cLng(Request.QueryString("CAT_ID"))
else
Response.Redirect("fhome_ng.asp")
end if
end if
if Request.QueryString("REPLY_ID") <> "" or Request.QueryString("REPLY_ID") <> " " then
if IsNumeric(Request.QueryString("REPLY_ID")) = True then
strRqReplyID = cLng(Request.QueryString("REPLY_ID"))
else
Response.Redirect("fhome_ng.asp")
end if
end if
strCkPassWord = chkString(Request.Cookies(strUniqueID & "User")("Pword"), "SQLString")
'#################################################################################
'## Page-code start
'#################################################################################
if strSelectSize = "" or IsNull(strSelectSize) then
strSelectSize = Request.Cookies(strCookieURL & "strSelectSize")
end if
if not(IsNull(strSelectSize)) then
Response.Cookies(strCookieURL & "strSelectSize") = strSelectSize
Response.Cookies(strCookieURL & "strSelectSize").expires = Now() + 365
end if
%>
<%
if strRqMethod = "Edit" or _
strRqMethod = "EditTopic" or _
strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" then
'## Forum_SQL - Find out if the Category/Forum/Topic is Locked or Un-Locked and if it Exists
strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_STATUS, " & strTablePrefix & "FORUM.F_STATUS "
if strRqMethod <> "Topic" then
strSql = strSql & ", " & strTablePrefix & "TOPICS.T_STATUS, " & strTablePrefix & "TOPICS.T_POLL "
end if
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY, " & strTablePrefix & "FORUM"
if strRqMethod <> "Topic" then
strSql = strSql & ", " & strTablePrefix & "TOPICS "
end if
strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & strRqCatID
strSql = strSql & " AND " & strTablePrefix & "FORUM.FORUM_ID = " & strRqForumID
strSql = strSql & " AND " & strTablePrefix & "FORUM.CAT_ID = " & strRqCatID
if strRqMethod <> "Topic" then
strSql = strSql & " AND " & strTablePrefix & "TOPICS.TOPIC_ID = " & strRqTopicID
strSql = strSql & " AND " & strTablePrefix & "TOPICS.FORUM_ID = " & strRqForumID
strSql = strSql & " AND " & strTablePrefix & "TOPICS.CAT_ID = " & strRqCatID
end if
set rsStatus = my_Conn.Execute(strSql)
if rsStatus.EOF or rsStatus.BOF then
Go_Result "Please don't attempt to edit the URL
to gain access to locked Forums/Categories."
else
blnCStatus = rsStatus("CAT_STATUS")
blnFStatus = rsStatus("F_STATUS")
if strRqMethod <> "Topic" then
blnTStatus = rsStatus("T_STATUS")
end if
if strRqMethod <> "Topic" then
poll_id = rsStatus("T_POLL")
end if
rsStatus.close
set rsStatus = nothing
end if
if (mLev = 4) or (chkForumModerator(strRqForumID, ChkString(strDBNTUserName, "decode"))= "1") or (lcase(strNoCookies) = "1") then
AdminAllowed = 1
else
AdminAllowed = 0
end if
select case strRqMethod
case "Topic"
if (blnCStatus = 0) and (AdminAllowed = 0) then
Go_Result "You have attempted to post a New Topic to a Locked Category"
end if
if (blnFStatus = 0) and (AdminAllowed = 0) then
Go_Result "You have attempted to post a New Topic to a Locked Forum"
end if
case "EditTopic"
if ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) then
Go_Result "You have attempted to edit a Locked Topic"
end if
case "Reply"
if ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) then
Go_Result "You have attempted to Reply to a Locked Topic"
end if
case "ReplyQuote"
if ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) then
Go_Result "You have attempted to Reply to a Locked Topic"
end if
case "TopicQuote"
if ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) then
Go_Result "You have attempted to Reply to a Locked Topic"
end if
case "Edit"
if ((blnCStatus = 0) or (blnFStatus = 0) or (blnTStatus = 0)) and (AdminAllowed = 0) then
Go_Result "You have attempted to Edit a Reply to a Locked Topic"
end if
end select
end if
%>
<%
select case strSelectSize
case "1"
intCols = 45
intRows = 6
case "2"
intCols = 70
intRows = 12
case "3"
intCols = 85
intRows = 12
case "4"
intCols = 125
intRows = 15
case else
intCols = 70
intRows = 12
end select
%>
<%
if strRqMethod = "EditForum" then
if (mLev = 4) or (chkForumModerator(strRqForumId, strDBNTUserName) = "1") then
'## Do Nothing
else
Response.Write "ERROR: Only moderators and administrators can edit forums
" & vbcrlf
%>
<%
Response.End
end if
end if
Msg = ""
select case strRqMethod
case "Reply"
if (strNoCookies = 1) or (strDBNTUserName = "") then
Msg = Msg & "הודעה: עליך להיות חבר רשום על מנת לשלוח תגובה.
"
Msg = Msg & "להרשמה, לחץ כאן. ההרשמה חינם!
"
end if
case "ReplyQuote"
if (strNoCookies = 1) or (strDBNTUserName = "") then
Msg = Msg & "הודעה: עליך להיות חבר רשום על מנת לשלוח תגובה.
"
Msg = Msg & "להרשמה, לחץ כאן. ההרשמה חינם!
"
end if
case "Topic"
if (strNoCookies = 1) or (strDBNTUserName = "") then
Msg = Msg & "הודעה: עליך להיות חבר רשום על מנת לשלוח הודעה.
"
Msg = Msg & "להרשמה, לחץ כאן. ההרשמה חינם!
"
end if
case "TopicQuote"
if (strNoCookies = 1) or (strDBNTUserName = "") then
Msg = Msg & "הודעה: עליך להיות חבר רשום על מנת לשלוח הודעה.
"
Msg = Msg & "להרשמה, לחץ כאן. ההרשמה חינם!
"
end if
case "Forum"
Msg = Msg & "הודעה: רק מנהלים מורשים ליצור פורום חדש.
"
case "URL"
Msg = Msg & "הודעה: רק מנהלים מורשים ליצור קישור חדש.
"
case "Edit"
Msg = Msg & "הודעה: רק כותב ההודעה ועורך הפורום רשאים לערוך את הודעה."
case "EditTopic"
Msg = Msg & "הודעה: רק כותב ההודעה ועורך הפורום רשאים לערוך את הודעה."
case "EditForum"
Msg = Msg & "הודעה: רק עורך הפורום מורשה לערוך את ההודעה."
case "EditCategory"
Msg = Msg & "הודעה: רק מנהל הפורום מורשה לערוך נושא."
end select
if strRqMethod = "Edit" or _
strRqMethod = "ReplyQuote" then
'## Forum_SQL
strSql = "SELECT * "
strSql = strSql & " FROM " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strTablePrefix & "REPLY.REPLY_ID = " & strRqReplyID
set rs = my_Conn.Execute (strSql)
strAuthor = rs("R_AUTHOR")
if strRqMethod = "Edit" then
TxtMsg = rs("R_MESSAGE")
else
if strRqMethod = "ReplyQuote" then
TxtMsg = "[quote]" & vbCrLf
TxtMsg = TxtMsg & rs("R_MESSAGE") & vbCrLf
TxtMsg = TxtMsg & "[/quote]"
end if
end if
if strDBNTUserName = getMemberName(strAuthor) then
boolReply =rs("R_MAIL")
end if
end if
if strRqMethod = "EditTopic" or _
strRqMethod = "TopicQuote" then
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "TOPICS.CAT_ID, " & strTablePrefix & "TOPICS.FORUM_ID, " & strTablePrefix & "TOPICS.TOPIC_ID, " & strTablePrefix & "TOPICS.T_SUBJECT, " & strTablePrefix & "TOPICS.T_AUTHOR, " & strTablePrefix & "TOPICS.T_MAIL, " & strTablePrefix & "TOPICS.T_NEWS, " & strTablePrefix & "TOPICS.T_MESSAGE"
strSql = strSql & " FROM " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strTablePrefix & "TOPICS.TOPIC_ID = " & strRqTopicID
set rs = my_Conn.Execute (strSql)
TxtSub = rs("T_SUBJECT")
strAuthor = rs("T_AUTHOR")
boolNews = rs("T_NEWS")
if strRqMethod = "EditTopic" then
TxtMsg = rs("T_MESSAGE")
else
if strRqMethod = "TopicQuote" then
TxtMsg = "[quote]" & vbCrLf
TxtMsg = TxtMsg & rs("T_MESSAGE") & vbCrLf
TxtMsg = TxtMsg & "[/quote]"
end if
end if
if strDBNTUserName = getMemberName(strAuthor) then boolTopic = rs("T_MAIL")
end if
if strRqMethod = "EditForum" or _
strRqMethod = "EditURL" then
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "FORUM.F_SUBJECT, " & strTablePrefix & "FORUM.F_URL, " & strTablePrefix & "FORUM.F_DESCRIPTION, " & strTablePrefix & "FORUM.F_PRIVATEFORUMS, " & strTablePrefix & "FORUM.F_PASSWORD_NEW "
strSql = strSql & " FROM " & strTablePrefix & "FORUM "
strSql = strSql & " WHERE " & strTablePrefix & "FORUM.FORUM_ID = " & strRqForumId
set rs = my_Conn.Execute (strSql)
if strRqMethod = "EditURL" then
TxtUrl = rs("F_URL")
end if
if strRqMethod = "EditForum" or _
strRqMethod = "EditURL" then
TxtSub = rs("F_SUBJECT")
TxtMsg = rs("F_DESCRIPTION")
end if
end if
if strRqMethod = "EditCategory" then
'## Forum_SQL
strSql = "SELECT " & strTablePrefix & "CATEGORY.CAT_NAME "
strSql = strSql & " FROM " & strTablePrefix & "CATEGORY "
strSql = strSql & " WHERE " & strTablePrefix & "CATEGORY.CAT_ID = " & strRqCatID
set rs = my_Conn.Execute (strSql)
if strRqMethod = "EditCategory" then
TxtSub = rs("CAT_NAME")
end if
end if
select case strRqMethod
case "Category"
btn = "שלח הודעה חדשה"
case "Edit"
btn = "שלח שינויים"
case "EditCategory"
btn = "שלח שינויים"
case "EditForum"
btn = "שלח שינויים"
case "EditTopic"
btn = "שלח שינויים"
case "EditURL"
btn = "שלח שינויים"
case "Forum"
btn = "שלח פורום חדש"
case "Reply"
btn = "שלח תגובה חדשה"
case "ReplyQuote"
btn = "שלח תגובה חדשה"
case "TopicQuote"
btn = "שלח תגובה חדשה"
case "Topic"
btn = "שלח הודעה חדשה"
case "URL"
btn = "שלח כתובת חדשה"
case else
btn = "שלח"
end select
%>
<% =Msg %>
<%
mwpThemeTableCustomCode = "align=""center"" width=""65%"""
mwpThemeBlock_open()
%>
<%
if strRqMethod = "Edit" or _
strRqMethod = "EditTopic" or _
strRqMethod = "EditForum" or _
strRqMethod = "Reply" or _
strRqMethod = "ReplyQuote" or _
strRqMethod = "Topic" or _
strRqMethod = "TopicQuote" then
%>
<%
end if
%>
|
<%mwpThemeBlock_close()%>
<% if Request.QueryString("admin") = "version" then%>
<%end if%>
<%
if strRqMethod = "Reply" or _
strRqMethod = "TopicQuote" or _
strRqMethod = "ReplyQuote" then
mwpThemeTableCustomCode = " border=""1"" cellpadding=""0"" cellspacing=""0"" style=""border-collapse: collapse"" align=""center"" width=""95%"""
mwpThemeSmallBlock_open()%>
| colspan="2" align="center">תגובה להודעה |
<%
'## Forum_SQL - Get all replies to Topic from the DB
strSql ="SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "REPLY.R_MESSAGE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "REPLY "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "REPLY.R_AUTHOR "
strSql = strSql & " AND TOPIC_ID = " & strRqTopicID & " "
strSql = strSql & " ORDER BY " & strTablePrefix & "REPLY.R_DATE DESC"
set rs = Server.CreateObject("ADODB.Recordset")
' rs.cachesize=15
rs.open strSql, my_Conn, 3
strI = 0
if rs.EOF or rs.BOF then
Response.Write ""
else
rs.movefirst
do until rs.EOF
if strI = 0 then
CColor = strAltForumCellColor
else
CColor = strForumCellColor
end if
Response.Write " " & vbCrLf & _
" | " & ChkString(rs("M_NAME"),"display") & " | " & vbCrLf & _
" " & formatStr(rs("R_MESSAGE")) & " | " & vbCrLf & _
"
" & vbCrLf
rs.MoveNext
strI = strI + 1
if strI = 2 then
strI = 0
end if
loop
end if
strSql = "SELECT " & strMemberTablePrefix & "MEMBERS.M_NAME, " & strTablePrefix & "TOPICS.T_MESSAGE "
strSql = strSql & " FROM " & strMemberTablePrefix & "MEMBERS, " & strTablePrefix & "TOPICS "
strSql = strSql & " WHERE " & strMemberTablePrefix & "MEMBERS.MEMBER_ID = " & strTablePrefix & "TOPICS.T_AUTHOR AND "
strSql = strSql & " " & strTablePrefix & "TOPICS.TOPIC_ID = " & strRqTopicID
set rs = my_Conn.Execute (strSql)
Response.Write " " & vbCrLf
Response.Write " | " & ChkString(rs("M_NAME"),"display") & " | " & vbCrLf
Response.Write " " & formatStr(rs("T_MESSAGE")) & " | " & vbCrLf
Response.Write "
" & vbCrLf
mwpThemeSmallBlock_close()
Response.Write ""
end if
%>
<%
sub Go_Result(str_err_Msg)
%>
There has been a problem!
<% =str_err_Msg %>
Go back to correct the problem.
<%
Response.End
end sub
%> 
כל הפורומים
&Topic_Title=<% =ChkString(left(Request.QueryString("Topic_title"), 50),"urlpath") %>"><% =ChkString(Request.QueryString("Topic_Title"),"display") %>
<%
end if
%>