<% If Request("action") = "" And Request("doc") <> "" Then strRedirectTo = "/generator/default.asp?action=edit&doc=" + Request("doc") Response.Redirect strRedirectTo End If If Request("action") = "login" Then Response.Cookies("usr") = Request("name") Response.Cookies("pwd") = Request("passwd") If (Request("name") = getUser And Request("passwd") = getPassword) Or (Request("name") = getDeployerUser And Request("passwd") = getDeployerPassword) Then Response.Cookies("Authenticated") = "1" If Request("name") = getDeployerUser And Request("passwd") = getDeployerPassword Then Response.Cookies("Deployer") = "1" End If Dim requested If Request("requested_action") = "edit" Then requested = "?action=edit&doc=" + Request("doc") response.redirect "default.asp" + requested Else If Request("doc") <> "" Then requested = "?action=edit&doc=" + Request("doc") End If response.redirect "default.asp" + requested End If Else Response.Cookies("Authenticated") = "0" If checkLogin("local", Request("doc")) = True Then requested = "?action=edit&doc=" + Request("doc") response.redirect "default.asp" + requested End If End If End If Dim strRedirectTo If checkLogin("admin", Request("doc")) = True And (Request("action") = "edit" Or Request("action") = "login") And isRecordExist(Request("doc")) = False Then strRedirectTo = "/generator/default.asp?action=create&newpage=" + Request("doc") Response.Redirect strRedirectTo End If %> Content Administration
<% If checkLogin("local", Request("doc")) = True Then If Request("action") = "edit" And Request("doc") <> "" And Request("txtContent") <> "" Then If isRecordExist(Request("doc")) = False Then addKey Request("doc") End If setContent Request("doc"), Request("txtContent") End If If Request("action") = "create" And Request("newpage") <> "" And Request("newpage") <> "true" Then addKey Request("newpage") response.write "" End If If Request("action") = "delete" And Request("doc") <> "" Then deleteKey Request("doc") response.write "" End If If Request("action") = "deletebackup" And Request("doc") <> "" Then Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(Server.MapPath("./assets/" + Request("doc"))) response.write "" End If If Request("action") = "backup" Then Set fso = CreateObject("Scripting.FileSystemObject") fso.CopyFile contentfile, Server.MapPath("./assets/backup_" + Replace(Replace(Replace(Replace(Replace(CStr(Now()), " ", "_"), ":", "-"), ".", "-"), ":", "-"), "/", "-") + ".asp") response.write "" End If If Request("action") = "restore" And Request("doc") <> "" Then Set fso = CreateObject("Scripting.FileSystemObject") fso.DeleteFile(contentfile) fso.CopyFile Server.MapPath("./assets/" + Request("doc")), contentfile response.write "" End If If Request("action") = "rename" Then renameKey Request("doc"), Request("newdoc") End If If Request("action")="changeuser" Then If Request("newpassword") <> Request("confpassword") Then response.write "" } ElseIf Request("newpassword") = "" Or Request("confpassword") = "" Or Request("newname") = "" Then response.write "" Else setUser Request("newname") setPassword Request("newpassword") end If response.write "" End If If Request("action")="dep_changeuser" Then If Request("dep_newpassword") <> Request("dep_confpassword") Then response.write "" } ElseIf Request("dep_newpassword") = "" Or Request("dep_confpassword") = "" Or Request("dep_newname") = "" Then response.write "" Else setDeployerUser Request("dep_newname") setDeployerPassword Request("dep_newpassword") end If response.write "" End If If Request("action")="savesettings" Then setCheckboxValue "btnSave" setCheckboxValue "btnFullScreen" setCheckboxValue "btnPreview" setCheckboxValue "btnPrint" setCheckboxValue "btnSearch" setCheckboxValue "btnSpellCheck" setCheckboxValue "btnTextFormatting" setCheckboxValue "btnParagraphFormatting" setCheckboxValue "btnListFormatting" setCheckboxValue "btnBoxFormatting" setCheckboxValue "btnCssText" setCheckboxValue "btnCut" setCheckboxValue "btnCopy" setCheckboxValue "btnPaste" setCheckboxValue "btnPasteWord" setCheckboxValue "btnPasteText" setCheckboxValue "btnUndo" setCheckboxValue "btnRedo" setCheckboxValue "btnForeColor" setCheckboxValue "btnBackColor" setCheckboxValue "btnBookmark" setCheckboxValue "btnHyperlink" setCheckboxValue "btnImage" setCheckboxValue "btnFlash" setCheckboxValue "btnMedia" setCheckboxValue "btnTable" setCheckboxValue "btnGuidelines" setCheckboxValue "btnAbsolute" setCheckboxValue "btnCharacters" setCheckboxValue "btnLine" setCheckboxValue "btnForm" setCheckboxValue "btnRemoveFormat" setCheckboxValue "btnStyles" setCheckboxValue "btnParagraph" setCheckboxValue "btnFontName" setCheckboxValue "btnFontSize" setCheckboxValue "btnBold" setCheckboxValue "btnItalic" setCheckboxValue "btnUnderline" setCheckboxValue "btnStrikethrough" setCheckboxValue "btnSuperscript" setCheckboxValue "btnSubscript" setCheckboxValue "btnJustifyLeft" setCheckboxValue "btnJustifyCenter" setCheckboxValue "btnJustifyRight" setCheckboxValue "btnJustifyFull" setCheckboxValue "btnNumbering" setCheckboxValue "btnBullets" setCheckboxValue "btnIndent" setCheckboxValue "btnOutdent" setCheckboxValue "btnLTR" setCheckboxValue "btnRTL" setCheckboxValue "useTagSelector" setCheckboxValue "btnClearAll" setSetting "editorCSS", Request("dep_editorCSS") setSetting "editorLanguage", Request("dep_editorLanguage") setSetting "allowedDomains", Request("dep_allowedDomains") setSetting "domainFailureMessage", Request("dep_domainFailureMessage") setSetting "poweredBy", Request("dep_poweredBy") setSetting "videoTurorialsPath", Request("dep_videoTurorialsPath") setLineBreak() setSettingArray() response.write "" End If If Request("action")="changelocaluser" And Request("localdoc") <> "" Then If Request("newlocalpassword") <> Request("conflocalpassword") Then response.write "" } ElseIf Request("newlocalpassword") = "" Or Request("conflocalpassword") = "" Or Request("newlocalname") = "" Then response.write "" Else setLocalData Request("localdoc"), Request("newlocalname"), Request("newlocalpassword") End If response.write "" End If %>
<% If checkLogin("admin", Request("doc")) = True Then %> <% End If %>
<% If Request("action") = "edit" And Request("doc") <> "" Then %><% If Request.Cookies("womb") <> "" Then %>?content=<%=Request("doc")%>"> CLICK to see the "Front-End" use of this content."><% Else %>"> CLICK to see the "Front-End" use of this content."><% End If %><% End If %>
<% If Request("doc") <> "" Then %>
<% If getSetting("editorLanguage")="danish" Then %> <% End If %> <% If getSetting("editorLanguage")="dutch" Then %> <% End If %> <% If getSetting("editorLanguage")="finnish" Then %> <% End If %> <% If getSetting("editorLanguage")="french" Then %> <% End If %> <% If getSetting("editorLanguage")="german" Then %> <% End If %> <% If getSetting("editorLanguage")="norwegian" Then %> <% End If %> <% If getSetting("editorLanguage")="schi" Then %> <% End If %> <% If getSetting("editorLanguage")="tchi" Then %> <% End If %> <% If getSetting("editorLanguage")="spanish" Then %> <% End If %> <% If getSetting("editorLanguage")="swedish" Then %> <% End If %> <% If getSetting("editorLanguage")="english" Then %> <% End If %>
<% Else response.write "

Please select an action by using the buttons to the left...

" End If %>
<% Else %>
<% If Request("action") = "login" Then %> <% End If %>
Your Content Administration
<% If Request("action") = "edit" Then response.write "" response.write "" Else %> <% End If %>
Document: "" Then Response.Write Request("doc") Else Response.Write "" End If %>" size="20">
Name:
Password:
Invalid username/password!
<% End If %>