% '################################################################################# '## 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 Session(strCookieURL & "Approval") <> "15916941253" then scriptname = split(request.servervariables("SCRIPT_NAME"),"/") Response.Redirect "admin_login_short.asp?target=" & scriptname(ubound(scriptname)) end if strRqMethod = trim(chkString(Request.QueryString("method"),"SQLString")) intBadwordID = trim(chkString(Request.QueryString("B_ID"),"SQLString")) if intBadwordID <> "" then if isNumeric(intBadwordID) <> True then intBadwordID = "0" end if strPageSize = 10 mypage = trim(chkString(request("whichpage"),"SQLString")) if ((mypage = "") or (IsNumeric(mypage) = FALSE)) then mypage = 1 mypage = cLng(mypage) Response.Write " " & vbNewLine Select Case strRqMethod Case "Add" if Request.Form("Method_Type") = "Write_Configuration" then Err_Msg = "" txtBadword = chkBString(Request.Form("strBadword"),"SQLString") txtReplace = chkBString(Request.Form("strReplace"),"SQLString") if txtBadword = " " then Err_Msg = Err_Msg & "
Badword Added!
" & vbNewLine & _ " " & vbNewLine & _ "Congratulations!
" & vbNewLine & _ "Back To Badword Filter Configuration
" & vbNewLine else Response.Write "There Was A Problem With Your Details
" & vbNewLine & _ "
| " & vbNewLine & _
"
Badword Deleted!
" & vbNewLine & _ " " & vbNewLine & _ "Back To Badword Filter Configuration
" & vbNewLine else Response.Write " " & vbNewLine end if Case "Edit" if Request.Form("Method_Type") = "Write_Configuration" then txtBadword = chkBString(Request.Form("strBadword"),"SQLString") txtReplace = chkBString(Request.Form("strReplace"),"SQLString") if txtBadword = " " then Err_Msg = Err_Msg & "Badword Filter Updated!
" & vbNewLine & _ " " & vbNewLine & _ "Congratulations!
" & vbNewLine & _ "Back To Badword Filter Configuration
" & vbNewLine else Response.Write "There Was A Problem With Your Details
" & vbNewLine & _ "
| " & vbNewLine & _
"
Back To Badword Filter Configuration
" & vbNewLine end if Case Else '## Forum_SQL - Get Badwords from DB strSql = "SELECT B_ID, B_BADWORD, B_REPLACE " strSql2 = " FROM " & strFilterTablePrefix & "BADWORDS " strSql3 = " ORDER BY B_BADWORD ASC " if strDBType = "mysql" then 'MySql specific code if mypage > 1 then OffSet = cLng((mypage - 1) * strPageSize) strSql4 = " LIMIT " & OffSet & ", " & strPageSize & " " end if '## Forum_SQL - Get the total pagecount strSql1 = "SELECT COUNT(B_ID) AS PAGECOUNT " set rsCount = my_Conn.Execute(strSql1 & strSql2) iPageTotal = rsCount(0).value rsCount.close set rsCount = nothing If iPageTotal > 0 then maxpages = (iPageTotal \ strPageSize ) if iPageTotal mod strPageSize <> 0 then maxpages = maxpages + 1 end if if iPageTotal < (strPageSize + 1) then intGetRows = iPageTotal elseif (mypage * strPageSize) > iPageTotal then intGetRows = strPageSize - ((mypage * strPageSize) - iPageTotal) else intGetRows = strPageSize end if else iPageTotal = 0 maxpages = 0 end if if iPageTotal > 0 then set rs = Server.CreateObject("ADODB.Recordset") rs.open strSql & strSql2 & strSql3 & strSql4, my_Conn, adOpenForwardOnly, adLockReadOnly, adCmdText arrBadwordData = rs.GetRows(intGetRows) iBadwordCount = UBound(arrBadwordData, 2) rs.close set rs = nothing else iBadwordCount = "" end if else 'end MySql specific code set rs = Server.CreateObject("ADODB.Recordset") rs.cachesize = strPageSize rs.open strSql & strSql2 & strSql3, my_Conn, adOpenStatic If not (rs.EOF or rs.BOF) then rs.movefirst rs.pagesize = strPageSize rs.absolutepage = mypage '** maxpages = cLng(rs.pagecount) arrBadwordData = rs.GetRows(strPageSize) iBadwordCount = UBound(arrBadwordData, 2) else iBadwordCount = "" end if rs.Close set rs = nothing end if Response.Write "Bad Word Filter Configuration
" & vbNewLine Response.Write " " & vbNewLine End Select WriteFooterShort Response.End sub DropDownPaging() if maxpages > 1 then if mypage = "" then pge = 1 else pge = mypage end if Response.Write "