⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_explorer.asp

📁 浪人文章系统
💻 ASP
📖 第 1 页 / 共 3 页
字号:
🔍
123 
		call GuMessage()
	end if

	set GuFSO7=Nothing

end sub


Sub Admin_Explorer_EditSave()

	FFName=Request.QueryString("FFName")
	GuFileCentent=Request.Form("GuFileCentent")

	GuFEFilePathF=GuFEPathM&"\"&FFName

	dim GuFSO5,GuFSOFile5
	set GuFSO5=Server.CreateObject("Scripting.FileSystemObject")

	if GuFSO5.fileexists(GuFEFilePathF) then
		set GuFSOFile5=GuFSO5.opentextfile(GuFEFilePathF,2,false)
		GuFSOFile5.write GuFileCentent
		GuFSOFile5.close
		set GuFSOFile5=Nothing
		set GuFSO5=Nothing

		GuSystemCode=00
		GuSystemMessage="文件已保存完成"
		GuSystemURL="<a href=""#"" onclick=""JavaScript:history.go(-1);""><img src=""Images/Admin_Button_Back.gif"" border=""0""></a>&nbsp;<a href=""Admin_Explorer.asp""><img src=""Images/Admin_Button_Goto.gif"" border=""0""></a>"
		call GuMessage()
	else
		GuSystemCode=3
		GuSystemMessage="没有找到指定的文件"
		call GuMessage()
	end if

end sub


Sub Admin_Explorer_Delete()

	if left(GuFEPathD,1)="/" then

		dim GuFSO3,GuFEFolders3,GuFEFiles3
		set GuFSO3=Server.CreateObject("Scripting.FileSystemObject")
		set GuFEFolders3=Request.Form("GuFolders")
		set GuFEFiles3=Request.Form("GuFiles")

		if GuFEFolders3.count>0 then
		for each GuFEFolderName in GuFEFolders3
			if GuFSO3.folderexists(GuFEPathM&"\"&GuFEFolderName) then
				GuFSO3.deletefolder GuFEPathM&"\"&GuFEFolderName,true
			end if
		next
		end if

		if GuFEFiles3.count>0 then
			for each GuFEFileName in GuFEFiles3
			if GuFSO3.fileexists(GuFEPathM&"\"&GuFEFileName) then
				GuFSO3.deletefile GuFEPathM&"\"&GuFEFileName,true
			end if
			next
		end if

		set GuFSO3=Nothing

		GuSystemCode=00
		GuSystemMessage="文件(夹)已删除完成"
		GuSystemURL="<a href=""Admin_Explorer.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"

		call GuMessage()

	else
		Response.Redirect "Admin_Explorer.asp"

	end if

end sub


Sub Admin_Explorer_CopyCut()

	if left(GuFEPathD,1)="/" then

		session("GuFileExplorerFolders")=""
		session("GuFileExplorerFiles")=""

		dim GuFEFolderN,GuFEFileN
		GuFEFolderN=0
		GuFEFileN=0

		for each GuFEFolderName in Request.Form("GuFolders")
			session("GuFileExplorerFolders")=session("GuFileExplorerFolders")&chr(9)&GuFEFolderName
			GuFEFolderN=GuFEFolderN+1
		next

		if left(session("GuFileExplorerFolders"),1)=chr(9) then
			session("GuFileExplorerFolders")=right(session("GuFileExplorerFolders"),len(session("GuFileExplorerFolders"))-1)
		end if

		for each GuFEFileName in Request.Form("GuFiles")
			session("GuFileExplorerFiles")=session("GuFileExplorerFiles")&chr(9)&GuFEFileName
			GuFEFileN=GuFEFileN+1
		next

		if left(session("GuFileExplorerFiles"),1)=chr(9) then
			session("GuFileExplorerFiles")=right(session("GuFileExplorerFiles"),len(session("GuFileExplorerFiles"))-1)
		end if

		session("GuFileExplorerComm")=GuComm
		session("GuFileExplorerPathFull")=GuFEPathM

		GuSystemCode=00
		GuSystemMessage="文件(夹)已复制(剪切)到粘贴板上"
		GuSystemURL="<a href=""Admin_Explorer.asp""><img src=""Images/Admin_Button_OK.gif"" border=""0""></a>"

		call GuMessage()

	else
		Response.Redirect "Admin_Explorer.asp"

	end if

end sub


Sub Admin_Explorer_Paste()

	dim GuFSO8,GuFEFoldersL,GuFEFoldersM,GuFEFilesL,GuFEFilesN,GuFEFolderSource,GuFEFolderTarget,GuFEFileSource,GuFEFileTarget
	set GuFSO8=Server.CreateObject("Scripting.FileSystemObject")

	if session("GuFileExplorerComm")="Co" and session("GuFileExplorerPathFull")<>GuFEPathM and GuFSO8.folderexists(GuFEPathM)=true then

		dim GuFEFolderE,GuFEFileE
		GuFEFolderE=0
		GuFEFileE=0

		if session("GuFileExplorerFolders")<>"" then
			GuFEFoldersL=split(session("GuFileExplorerFolders"),chr(9))
			GuFEFoldersM=ubound(GuFEFoldersL)
			for i=0 to GuFEFoldersM
			GuFEFolderSource=session("GuFileExplorerPathFull")&"\"&GuFEFoldersL(i)
			GuFEFolderTarget=GuFEPathM&"\"&GuFEFoldersL(i)
			if GuFSO8.folderexists(GuFEFolderSource) then
				GuFSO8.copyfolder GuFEFolderSource,GuFEFolderTarget,true
			else
				GuFEFileE=GuFEFileE+1
			end if
			next
		else
			GuFEFoldersM=0-1
		end if

		if session("GuFileExplorerFiles")<>"" then
			GuFEFilesL=split(session("GuFileExplorerFiles"),chr(9))
			GuFEFilesN=ubound(GuFEFilesL)
			for i=0 to GuFEFilesN
			GuFEFileSource=session("GuFileExplorerPathFull")&"\"&GuFEFilesL(i)
			GuFEFileTarget=GuFEPathM&"\"&GuFEFilesL(i)
			if GuFSO8.fileexists(GuFEFileSource) then
				GuFSO8.copyfile GuFEFileSource,GuFEFileTarget,true
			else
				GuFEFolderE=GuFEFolderE+1
			end if
			next
		else
			GuFEFilesN=0-1
		end if

	elseif session("GuFileExplorerComm")="Cu" and session("GuFileExplorerPathFull")<>GuFEPathM and GuFSO8.folderexists(GuFEPathM)=true then

		GuFEFolderE=0
		GuFEFileE=0

		if session("GuFileExplorerFolders")<>"" then
			GuFEFoldersL=split(session("GuFileExplorerFolders"),chr(9))
			GuFEFoldersM=ubound(GuFEFoldersL)
			for i=0 to GuFEFoldersM
			GuFEFolderSource=session("GuFileExplorerPathFull")&"\"&GuFEFoldersL(i)
			GuFEFolderTarget=GuFEPathM&"\"&GuFEFoldersL(i)
			if GuFSO8.folderexists(GuFEFolderSource) then
				GuFSO8.copyfolder GuFEFolderSource,GuFEFolderTarget,true
				GuFSO8.deletefolder GuFEFolderSource,true
			else
				GuFEFileE=GuFEFileE+1
			end if
			next
		end if

		if session("GuFileExplorerFiles")<>"" then
			GuFEFilesL=split(session("GuFileExplorerFiles"),chr(9))
			GuFEFilesN=ubound(GuFEFilesL)
			for i=0 to GuFEFilesN
			GuFEFileSource=session("GuFileExplorerPathFull")&"\"&GuFEFilesL(i)
			GuFEFileTarget=GuFEPathM&"\"&GuFEFilesL(i)
			if GuFSO8.fileexists(GuFEFileSource) then
				GuFSO8.copyfile GuFEFileSource,GuFEFileTarget,true
				GuFSO8.deletefile GuFEFileSource,true
			else
				GuFEFolderE=GuFEFolderE+1
			end if
			next
		end if

	set GuFSO8=Nothing

	session("GuFileExplorerComm")=""
	session("GuFileExplorerPathFull")=""
	session("GuFileExplorerFolders")=""
	session("GuFileExplorerFiles")=""

	end if

	Response.Redirect "Admin_Explorer.asp"

end sub


Sub FolderFileNameCheck(FolderFileNameNew)

	dim Letters,i,c
	Letters="+=:;,[]<>\|*?"
	for i=1 to len(FF_Name)
		c=mid(FF_Name,i,1)
		if inStr(Letters,c)<>0 then
			GuSystemCode=3
			GuSystemMessage="指定的文件(夹)名称包含特殊字符"
			call GuMessage()
		exit for
		end if
	next

End sub


function GuFileTypeGet(GuFT_String,GuFT_Clipchar)
	dim GuFT_Strpos
	GuFT_Strpos=instrrev(GuFT_String,GuFT_Clipchar)
	GuFileTypeGet=lcase(right(GuFT_String,len(GuFT_String)-GuFT_Strpos))
end function


function GuFFSize1(GuFFSize2)
	if GuFFSize2<1024 then
		GuFFSize1=GuFFSize2&" Bytes"
	elseif GuFFSize2<1048576 then
		GuFFSize1=round(GuFFSize2/1024,1)&" KB"
	elseif GuFFSize2<1073741824 then
		GuFFSize1=round(GuFFSize2/1048576,1)&" MB"
	else
		GuFFSize1=round(GuFFSize2/1073741824,1)&" GB"
	end if
end function


Sub Admin_Explorer_Editor()

	FFName=Request.QueryString("FFName")
	GuFEFilePathF=GuFEPathM&"\"&FFName

	dim GuFSOe,GuFSOFilee
	set GuFSOe=Server.CreateObject("Scripting.FileSystemObject")

	if GuFSOe.fileexists(GuFEFilePathF) then
	set GuFSOFilee=GuFSOe.opentextfile(GuFEFilePathF,1,false)

		if not GuFSOFilee.atendofstream then
			GuFileCentent=Server.HTMLEncode(GuFSOFilee.readall())
		end if
	GuFSOFilee.close
	set GuFSOFilee=Nothing
%>
<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<form name="Admin_Explorer_Editor" action="Admin_Explorer.asp?GuComm=ES&GuFEPathD=<%=GuFEPathE%>&FFName=<%=GuURLEncoding(FFName)%>&GuPage=<%=GuPage%>" method="post">
 <tr>
  <td width="600" height="30" colspan="2" background="Images/Admin_T_Bg1.gif" align="center"><font class="BlackS12"><b>网 站 文 件 管 理</b></font></td>
 </tr>
 <tr>
  <td width="600" height="10" colspan="2" bgcolor="#FFFFFF"></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">文件路径</font></td>
  <td width="518" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="GuFEFilePathA" maxlength="200" value="<%=GuFEPathD&FFName%>" class="Admin_InputText" style="width:494;background-color:#FFFFFF;" readonly></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">文件内容</font></td>
  <td width="518" height="258" bgcolor="#FFFFFF" rowspan="2">&nbsp;<textarea rows="6" name="GuFileCentent" cols="100" class="Admin_TextArea" style="width:500;height:246;background-color:#FFFFFF"><%=GuFileCentent%></textarea></td>
123

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -