<% '################################################################################# '## 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.asp?target=" & scriptname(ubound(scriptname)) end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & getCurrentIcon(strIconFolderOpen,"","") & " כל הפורומים
" & vbNewLine & _ " " & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " אזור מנהל
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpen,"","") & " מחיקה/כיווץ הפורום
" & vbNewLine & _ " " & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBlank,"","") & getCurrentIcon(strIconBar,"","") & getCurrentIcon(strIconFolderOpenTopic,"","") & " כיווץ מסד הנתונים

" & vbNewLine & _ "
" & vbNewLine strForumDB = getForumDB() strForumDB = replace(strForumDB,";","",1,1) strDBPath = Left(strForumDB,InStrRev(strForumDB,"\")) strTempFile = strDBPath & "Snitz_compacted.mdb" DBFolderExists = CheckDBFolder(strDBPath) if Application(strCookieURL & "down") then status = "סגור" else status = "פתוח" end if Response.Write " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

אפשרויות מנהל לארכיון הפורום - כיווץ מסד הנתונים

" & vbNewLine if request.querystring("action") = "" then Response.Write "

בהתאם להגדרות האבטחה במחשב המארח שלך, פעולות אלה יכולות להצליח או להיכשל. בכל מקרה, לא אמור לקרות נזק למידע שלך

" & vbNewLine & _ " מאגר הנתונים המקורי שלך יועתק ל:

" & left(strForumDB,len(strForumDB)-4) & "_" & DateToStr(strForumTimeadjust) & ".bak" & "

לגיבוי ואז יכווץ ל:

" & strTempFile & "
" & vbNewLine & _ "
" & vbNewLine & _ " אם צעדים אלה יצליחו, מאגר הנתונים המקורי יוחלף על ידי מאגר הנתונים המכווץ.
" & vbNewLine & _ "
" & vbNewLine & _ " ייתכן שהפעולה תיקח זמן מה בהתאם לגודל מסד הנתונים שלך.
" & vbNewLine & _ "
" & vbNewLine & _ "

לסגור את הפורום בזמן כיווץ מסד הנתונים.

" & vbNewLine & _ " מצבו הנוכחי של הפורום:
" & status & "

" & vbNewLine if Application(strCookieURL & "down") then Response.Write " האם אתה בטוח שברצונך לכווץ את מסד הנתונים?
" & vbNewLine & _ " כן לא

" & vbNewLine else Response.Write " לחץ כאן כדי לסגור את הפורום לפני שתתחיל.

" & vbNewLine end if elseif request.querystring("action") = "No" then Response.Write "

בחרת שלא לכווץ את מסד הנתונים. תוכל לכווץ את מסד הנתונים במועד מאוחר יותר.

" & vbNewLine & _ " יהיה עליך לפתוח את הפורומים שלך לפני שתמשיך.
" & vbNewLine & _ " לחץ כאן כדי לפתוח את הפורום שלך.

" & vbNewLine elseif request.querystring("action") = "Yes" then my_conn.close strTempConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strTempFile if DBFolderExists = false then Response.Write "

לא ניתן ליצור את התיקיה:
" & strDBPath & ".

" & vbNewLine else if BackupDB(strForumDB) then set jro = server.createobject("jro.JetEngine") jro.CompactDatabase strConnString, strTempConnString if err <> 0 then bError = True Response.Write " שגיאת כיווץ:
" & err.description & vbNewLine else Response.Write "

מסד הנתונים כווץ בהצלחה.

" & vbNewLine end if if not bError then if not RenameFile( strTempFile, strForumDB) then Response.Write " שגיאת החלפה:
" & err.description & vbNewLine else Response.Write "

שמו של מסד הנתונים שונה בהצלחה.

" & vbNewLine end if end if else Response.Write "

לא ניתן לגבות את מסד הנתונים

" & vbNewLine end if end if set my_Conn = Server.CreateObject("ADODB.Connection") my_Conn.Open strConnString Response.Write "

פתח מחדש את הפורום

" & vbNewLine end if Response.Write "

" & vbNewLine & _ "

" & vbNewLine & _ "
" & vbNewLine 'if Application(strCookieURL & "down") then 'Response.Write "

פתח את הפורום

" & vbNewLine Response.Write "

חזרה לניהול פורומים

" & vbNewLine 'end if Response.Write "
" & vbNewLine & _ "
" & vbNewLine %><% '---- START FOOTER ---- %> <% Response.Write " " & vbNewLine & _ " " & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ " " & vbNewLine & _ "

" & strForumTitle & "

" & getCurrentIcon(strIconGoUp,"עבור לראש הדף","align=""right""") & "

" & vbNewLine & _ "

" & vbNewLine & _ "" & vbNewLine & _ " " & vbNewLine if strShowTimer = "1" then Response.Write " " & vbNewLine end if %> <% Response.Write " " & vbNewLine & _ "

" & chkString(replace(strTimerPhrase, "[TIMER]", abs(round(StopTimer(1), 2)), 1, -1, 1),"display") & "

" & vbNewline '## END - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT %>

Snitz Hebrew Forums - מערכת פורומים בעברית גרסה <%=HEB_VERSION%>
תרגום עברי באדיבות קידום אתרים

<% Response.Write "" '## START - REMOVAL, MODIFICATION OR CIRCUMVENTING THIS CODE WILL VIOLATE THE SNITZ FORUMS 2000 LICENSE AGREEMENT Response.Write "" if strShowImagePoweredBy = "1" then Response.Write getCurrentIcon("logo_powered_by.gif||","מונע על ידי: " & strVersion,"") else Response.Write "פורום סניץ 2000" end if Response.Write "

" & vbNewLine & _ "" & vbNewLine & _ "" & vbNewLine my_Conn.Close set my_Conn = nothing %> <% '---- END FOOTER ---- %><% Response.End Function RenameFile(sFrom, sTo) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") if err.number <> 0 then RenameFile = False Exit Function end if fso.DeleteFile sTo,true fso.MoveFile sFrom, sTo set fso = nothing RenameFile = True end Function Function BackupDB(sFrom) Dim fso Set fso = CreateObject("Scripting.FileSystemObject") if err.number <> 0 then BackupDB = False Exit Function end if fso.CopyFile sFrom, fso.GetParentFolderName(sFrom) & "\" & fso.GetBaseName(sFrom) & "_" & DateTostr(strForumTimeAdjust) & ".bak", true set fso = nothing BackupDB = True end Function Function GetForumDB() dim tmpFileName tmpFileName = split(strConnstring,"Source=",2,1) GetForumDB = tmpFileName(1) end Function Function CheckDBFolder(strPath) Dim fso, blnExists Set fso = CreateObject("Scripting.FileSystemObject") if err.number <> 0 then CheckDBFolder = False Exit Function end if blnExists = fso.FolderExists(strPath) if blnExists = false then fso.CreateFolder(strPath) CheckDBFolder = True else CheckDBFolder = True end if End Function %>