<% TemplateFolder = trim(request.QueryString("TemplateFolder")) if right(TemplateFolder,1)<>"/" then TemplateFolder = TemplateFolder & "/" set Fs = server.CreateObject("Scripting.FileSystemObject") if request.QueryString("DeleteTemplate") = "yes" then set myFile = Fs.getFile(server.MapPath(TemplateFolder & request.QueryString("TemplateName"))) myFile.delete() set myFile = nothing TemplateName = left(request.QueryString("TemplateName"),instrRev(request.QueryString("TemplateName"),".")) if Fs.FileExists(server.MapPath(TemplateFolder & TemplateName & "gif")) then set myFile = Fs.getFile(server.MapPath(TemplateFolder & TemplateName & "gif")) myFile.delete() set myFile = nothing elseif Fs.FileExists(server.MapPath(TemplateFolder & TemplateName & "jpg")) then set myFile = Fs.getFile(server.MapPath(TemplateFolder & TemplateName & "jpg")) myFile.delete() set myFile = nothing elseif Fs.FileExists(server.MapPath(TemplateFolder & TemplateName & "jpeg")) then set myFile = Fs.getFile(server.MapPath(TemplateFolder & TemplateName & "jpeg")) myFile.delete() set myFile = nothing elseif Fs.FileExists(server.MapPath(TemplateFolder & TemplateName & "bmp")) then set myFile = Fs.getFile(server.MapPath(TemplateFolder & TemplateName & "bmp")) myFile.delete() set myFile = nothing elseif Fs.FileExists(server.MapPath(TemplateFolder & TemplateName & "png")) then set myFile = Fs.getFile(server.MapPath(TemplateFolder & TemplateName & "png")) myFile.delete() set myFile = nothing end if set Fs = nothing response.Redirect("fck_template.asp?TemplateFolder=" & request.QueryString("TemplateFolder")) response.End() end if if request.QueryString("TemplateName") <> "" then set myFile = Fs.openTextFile(server.MapPath(TemplateFolder & request.QueryString("TemplateName")),1) myContent = " " on error resume next myContent = myFile.readAll on error goto 0 myContent = replace(myContent,"'","@_apici_@") myContent = replace(myContent,vbcrlf,"") myContent = replace(myContent,vbcr,"") myContent = replace(myContent,vblf,"") myContent = replace(myContent,vbtab,"") myFile.close set Fs = nothing %> <% response.end() end if Dim ListFiles() Dim ListImages() Dim numTemplates Dim JsTemplate, JsImage, JsTemplateName JsTemplate = "var JsTemplate = new Array(); " & vbcrlf JsImage = "var JsImage = new Array(); " & vbcrlf JsTemplateName = "var JsTemplateName = new Array(); " & vbcrlf numTemplates = -1 if TemplateFolder <> "" then if Fs.FolderExists(server.MapPath(TemplateFolder)) then getAllTemplates() end if end if set Fs = nothing function getAllTemplates() set myFolder = Fs.getFolder(server.MapPath(TemplateFolder)) for each File in myFolder.files myFile = File myFileName = File.name if right(lcase(myFile),4)=".htm" or right(lcase(myFile),5)=".html" then numTemplates = numTemplates + 1 Redim Preserve ListFiles(numTemplates) Redim Preserve ListImages(numTemplates) JsTemplate = JsTemplate & "JsTemplate[" & numTemplates & "] = " & chr(34) & replace(myFileName,"'","\u0027") & chr(34) & "; " & vbcrlf 'ListFiles(numTemplates) = myFileName JsTemplateName = JsTemplateName & "JsTemplateName[" & numTemplates & "] = " & chr(34) & replace(getTemplateName(myFileName),"'","\u0027") & chr(34) & "; " & vbcrlf ListImages(numTemplates) = searchImage(myFile) JsImage = JsImage & "JsImage[" & numTemplates & "] = " & chr(34) & replace(getSiteRelativePath(ListImages(numTemplates)),"'","\u0027") & chr(34) & "; " & vbcrlf end if next end function function getSiteRelativePath(ImagePath) retStr = "" if trim(ImagePath) <> "" then retStr = mid(replace(ImagePath,"\","/"),instr(1,replace(ImagePath,"\","/"),TemplateFolder,vbtextcompare)) end if getSiteRelativePath = retStr end function function searchImage(FilePath) FileWithoutExtension = left(FilePath,instrRev(FilePath,".")) dim imageArray(4) imageArray(0) = "gif" imageArray(1) = "jpg" imageArray(2) = "jpeg" imageArray(3) = "bmp" imageArray(4) = "png" retStr = "" for J=0 to ubound(imageArray) if Fs.FileExists(FileWithoutExtension & imageArray(J)) then retStr = FileWithoutExtension & imageArray(J) exit for end if next searchImage = retStr end function function getTemplateName(TemplateName) getTemplateName = left(TemplateName,instrRev(TemplateName,".")-1) end function %>
Please select the template to open in the editor
(the actual contents will be lost):