<%@ LANGUAGE="VBSCRIPT" CODEPAGE="65001"%> <% '/////////////////////////////////////////////////////////////////////////////// '// 插件制作: ZSXSOFT '/////////////////////////////////////////////////////////////////////////////// %> <% Option Explicit %> <%' On Error Resume Next %> <% Response.Charset="UTF-8" %> <% Call System_Initialize() '检查非法链接 Call CheckReference("") '检查权限 If BlogUser.Level>1 Then Call ShowError(6) If CheckPluginState("FileManage")=False Then Call ShowError(48) BlogTitle="文件管理" Set FileManage_FSO=Server.CreateObject("Scripting.FileSystemObject") Dim strAct,strPath,strOpenFolderPath strAct=Request.QueryString("act") If strAct="" Then strAct="SiteFileMng" strPath=Request.QueryString("path") strOpenFolderPath=Request.QueryString("OpenFolderPath") Dim FileManage_ShowAppsName__,FileManage_OpenCodeMirror,FileManage_DefaultPath___,FileManage_Return2List___ If strPath="" Then strPath=BlogPath: strOpenFolderPath=BlogPath Dim objConfig Set objConfig=New TConfig objConfig.Load "FileManage" If objConfig.Exists("FirstRun")=False Then objConfig.Write "ShowAppsName__","True" objConfig.Write "OpenCodeMirror","False" objConfig.Write "DefaultPath___","" objConfig.Write "Return2List___","True" objConfig.Write "FirstRun","guess" objConfig.Save ElseIf objConfig.Read("FirstRun")="ok" Then 'v1.0 objConfig.Write "Return2List___","True" objConfig.Write "FirstRun","guess" objConfig.Save End If FileManage_ShowAppsName__=CBool(objConfig.Read("ShowAppsName__")) FileManage_OpenCodeMirror=CBool(objConfig.Read("OpenCodeMirror")) FileManage_Return2List___=CBool(objConfig.Read("Return2List___")) FileManage_DefaultPath___=CStr(objConfig.Read("DefaultPath___")) If FileManage_ShowAppsName__=True Then Call Add_Action_Plugin("Action_Plugin_FileManage_ExportInformation_NotFound","FileManage_GetPluginName(""{path}"",""{f}"")") Call Add_Action_Plugin("Action_Plugin_FileManage_ExportInformation_NotFound","FileManage_GetThemeName(""{path}"",""{f}"")") End If For Each Action_Plugin_FileManage_Initialize in Action_Plugin_FileManage_Initialize If Not IsEmpty(sAction_Plugin_FileManage_Initialize) Then Call Execute(sAction_Plugin_FileManage_Initialize) Next Select Case strAct Case "SiteFileDownload" Call FileManage_DownloadFile(strPath) Case "SiteFilePst" Call FileManage_PostSiteFile(Request.Form("path"),Request.QueryString("OpenFolderPath")) Case "SiteFileDel" Call FileManage_DeleteSiteFile(strPath,IIf(Request.QueryString("folder")="true",True,False)):strAct="SiteFileMng" Case "SiteFileRename" Call FileManage_RenameFile(strPath,Request.QueryString("newfilename"),IIf(Request.QueryString("folder")="true",True,False)):strAct="SiteFileMng" Case "SiteFileUpload" Call FileManage_Upload Case "SiteCreateFolder" Call FileManage_CreateFolder(strPath,strOpenFolderPath):strAct="SiteFileMng" End Select Dim bolAjax bolAjax=IIf(Request.QueryString("ajax")="True",True,False) 'Call SetBlogHint_Custom(" 若需要修改的数据>200K，请使用文件上传或FTP。") %> <% If Not bolAjax Then %> <%If FileManage_OpenCodeMirror=True Then%> <%End If%>
<% End If %>
<%Call GetBlogHint()%>
<%=BlogTitle%>  <% If Request.QueryString("act")<>"Setting" Then%> <% Else %> " title="返回"> <% End If %>
<%= Response_Plugin_SiteFileMng_SubMenu%>
<% ' If strOpenFolderPath="" Then strOpenFolderPath=BlogPath ' If Not CheckRights(strAct) Then Call ShowError(6) Select Case strAct Case "" Call FileManage_ExportSiteFileList(BlogPath & FileManage_DefaultPath___,"") Case "SiteFileMng" Call FileManage_ExportSiteFileList(strPath,strOpenFolderPath) Case "SiteFileEdt" Call FileManage_ExportSiteFileEdit(strPath,strOpenFolderPath,IIf(Request.QueryString("charset")=Empty,"",Request.QueryString("charset"))) Case "SiteFileUploadShow" Call FileManage_ExportSiteUpload(strPath) Case "ThemeEditor" Response.Redirect "?act=SiteFileMng&path="&server.URLEncode(blogpath&"zb_users\theme\"&zc_blog_theme) Case "Setting" Call FileManage_Setting Case "SaveSetting" Call FileManage_SaveSetting Case Else Response.Write "未知的命令" End Select %>
<% If Not bolAjax Then %>
<%End If%> <% For Each Action_Plugin_FileManage_Terminate in Action_Plugin_FileManage_Terminate If Not IsEmpty(sAction_Plugin_FileManage_Terminate) Then Call Execute(sAction_Plugin_FileManage_Terminate) Next Call System_Terminate() %>