admin_explorer.asp

浪人文章系统

 </tr>
 <tr>
  <td width="80" height="230" 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;<font class="SilverS12">在保存之前先确认代码是否正常可用，保存后不可恢复</font></td>
 </tr>
 <tr>
  <td width="80" height="38" bgcolor="#FFFFFF"></td>
  <td width="518" height="38" bgcolor="#FFFFFF">&nbsp;<input type="submit" name="save" class="Admin_Button_Modify" value="">&nbsp;<input type="Reset" name="Admin_Button_Reset" class="Admin_Button_Reset" value="">&nbsp;<input type="button" name="Admin_Button_Copy" class="Admin_Button_Copy" onclick="JavaScript:Admin_Explorer_Editor.GuFileCentent.select();document.execCommand('Copy');" value="">&nbsp;<input type="button" name="Admin_Button_Paste" class="Admin_Button_Paste" onclick="JavaScript:Admin_Explorer_Editor.GuFileCentent.focus();document.execCommand('Paste');" value="">&nbsp;<input type="button" name="Admin_Button_Empty" class="Admin_Button_Empty" onclick="JavaScript:Admin_Explorer_Editor.GuFileCentent.value='';" value="">&nbsp;<input type="button" name="Admin_Button_Back" class="Admin_Button_Back" onclick="JavaScript:history.go(-1);" value=""></td>
 </tr>
</form>
</table>

<%
	else
		GuSystemCode=3
		GuSystemMessage="没有找到指定的文件"
		call GuMessage()

	end if

	set GuFSOe=Nothing

end sub


Sub Admin_Explorer(isFolderRename,isFileRename)

	dim GuUpFolder

	if GuFEPathD="/" then
		GuUpFolder="<font class=""SilverS12"">向上...</font>"
	else
		GuUpFolder="<a href=""Admin_Explorer.asp?GuFEPathD="&Server.URLEncode(left(GuFEPathD,instrrev(GuFEPathD,"/",len(GuFEPathD)-1)))&"&GuPage=1"" class=""LightgrayS12"">向上...</a>"
	end if
%>

<table border="0" cellpadding="0" cellspacing="1" width="600" height="10" bgcolor="#CEEFE7">
<form method="post" action="Admin_Explorer.asp?GuComm=FF&GuFEPathD=<%=GuFEPathE%>&GuPage=<%=GuPage%>" name="Admin_Explorer" onSubmit="return Admin_Explorer_Check();">
 <tr>
  <td width="600" height="30" background="Images/Admin_T_Bg1.gif" align="center" colspan="3"><font class="BlackS12"><b>网 站 文 件 管 理</b></font></td>
 </tr>
 <tr>
  <td width="600" height="10" bgcolor="#FFFFFF" colspan="3"></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">文件名称</font></td>
  <td width="276" height="28" bgcolor="#FFFFFF">&nbsp;<input type="text" name="FF_Name" value="<%if isFolderRename or isFileRename then Response.write Request.QueryString("FFName") end if%>" class="Admin_InputText" style="width:260;background-color:#FFFFFF;"></td>
  <td width="240" height="28" bgcolor="#FFFFFF">&nbsp;<span id="JS_M_FF_Name" class="BlackV12">填写文件(夹)名称</font></td>
 </tr>
 <tr>
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">选择类型</font></td>
  <td width="276" height="28" bgcolor="#FFFFFF">&nbsp;<font class="BlackS12"><input type="radio" name="FF_Type" value="GuFile" id="Label_GuFile" <%if isFolderRename then Response.write "disabled" else Response.write "checked" end if%>><label for="Label_GuFile">文件</label>&nbsp;&nbsp;<input type="radio" name="FF_Type" value="GuFolder" id="Label_GuFolder" <%if isFolderRename then Response.write "checked" end if%><%if isFileRename then Response.write "disabled" end if%>><label for="Label_GuFolder">文件夹</label></font></td>
  <td width="240" height="28" bgcolor="#FFFFFF">&nbsp;<font class="BlackS12">选择类型，文件或文件夹</font></td>
 </tr>
 <tr id="Admin_Upload" style="display:<%if FileExplorerUploadShow="0" then Response.write "none" end if%>">
  <td width="80" height="28" bgcolor="#FFFFFF" align="center"><font class="BlackS12">上传文件</font></td>
  <td width="276" height="28" bgcolor="#FFFFFF"><iframe name="UploadFile" frameborder="0" width="272" height="28" scrolling="no" src="Admin_Upload.asp?T=E&GuFEPathD=<%=GuFEPathE%>"></iframe></td>
  <td width="240" height="28" bgcolor="#FFFFFF">&nbsp;<font class="BlackS12">选择要上传的文件</font></td>
 </tr>
 <tr>
  <td width="80" height="38" bgcolor="#FFFFFF"><input type="hidden" name="GuCN" value="<%if isFolderRename or isFileRename then Response.write "FFRename" else Response.write "FFCreate" end if%>"><input type="hidden" size="50" name="FF_Name_O" value="<%if isFolderRename or isFileRename then Response.write Request.QueryString("FFName") end if%>"></td>
  <td width="518" height="38" bgcolor="#FFFFFF" colspan="2">&nbsp;<input type="submit" name="Submit" value="" class="<%if isFolderRename or isFileRename then Response.write "Admin_Button_Modify" else Response.write "Admin_Button_Add" end if%>">&nbsp;<input type="Reset" value="" name="Admin_Button_Reset" class="Admin_Button_Reset">&nbsp;<input type="button" value="" name="Upload2" class="Admin_Button_Upload" onclick="JavaScript:GuDIVShowHidden(Admin_Upload);"></td>
 </tr>
</form>
</table>

<br>

<table border="0" cellpadding="0" cellspacing="1" width="600" height="60" bgcolor="#CEEFE7">
<form method="post" name="Admin_Explorer_List" action="Admin_Explorer.asp?GuFEPathD=<%=GuFEPathE%>&GuPage=<%=GuPage%>">
 <tr>
  <td width="41" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">类型</font></td>
  <td width="38" height="26" bgcolor="#EAFBF5" align="center"><font class=BlackS12>选择</font></td>
  <td width="222" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">文件(夹)名称</font></td>
  <td width="78" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">大小</font></td>
  <td width="140" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">最后修改时间</font></td>
  <td width="38" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">改名</font></td>
  <td width="38" height="26" bgcolor="#EAFBF5" align="center"><font class="BlackS12">编辑</font></td>
 </tr>
 <tr>
  <td width="41" height="26" bgcolor="#FFFFFF" align="center"><font class="BlackS12"></font></td>
  <td width="38" height="26" bgcolor="#FFFFFF" align="center"><img src="Images/System/FolderBack.gif" border="0"></td>
  <td width="514" height="26" bgcolor="#FFFFFF" colspan="5">&nbsp;<%=GuUpFolder%></td>
 </tr>
<%
if GuFSO.folderexists(GuFEPathM) then

	dim GuFSOFolder0,GuFolderL,GuFileL
	set GuFSOFolder0=GuFSO.getfolder(GuFEPathM)


	dim GuPageSize,GuPageTotal,GuPageCount,GuPageStart

	GuPageSize=FileExplorerPageSize
	GuPageTotal=1
	GuPageCount=GuFSOFolder0.files.count

	if GuPageCount mod GuPageSize=0 then
		GuPageTotal=GuPageCount\GuPageSize
	else
		GuPageTotal=GuPageCount\GuPageSize+1
	end if

	if GuPage<1 then
		GuPage=1
	end if

	if GuPage>GuPageTotal then
		GuPage=GuPageTotal
	end if

	dim GuFFSizes,TotalSize
	GuFFSizes=GuFSOFolder0.size
	TotalSize=TotalSize+GuFFSizes

	for each GuFolderL in GuFSOFolder0.subfolders

%>
 <tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#EAFBF5'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
  <td width="41" height="26" align="center"><img src="Images/System/Folder.gif" width="20" height="20" border="0" title="文件夹"></td>
  <td width="38" height="26" align="center"><input type="checkbox" name="GuFolders" value="<%=GuFolderL.name%>"></td>
  <td width="222" height="26">&nbsp;<a href="Admin_Explorer.asp?GuFEPathD=<%=GuFEPathE&Server.URLEncode(GuFolderL.name)%>&GuPage=1" class="BlackS12"><%=GuFolderL.name%></a></td>
  <td width="78" height="26" align="right"><font class="BlackS12"><%=GuFFSize1(GuFolderL.size)%></font>&nbsp;</td>
  <td width="140" height="26" align="center"><span class="BlackS12"><%=GuFolderL.datelastmodified%></span></td>
  <td width="38" height="26" align="center"><a href="Admin_Explorer.asp?GuComm=Na&GuCN=FFRename&FFType=GuFolder&GuFEPathD=<%=GuFEPathE%>&FFName=<%=GuFolderL.name%>&GuPage=<%=GuPage%>"><img src="Images/Admin_Button_Rename2.gif" border="0" style="filter:alpha(opacity=60)" title="重命名"></a></td>
  <td width="38" height="26" align="center"><img src="Images/Admin_Button_Modify2.gif" border="0" style="filter:alpha(opacity=10)" title=""></td>
 </tr>
<%
	next

	dim GuPagei:GuPagei=1
	GuPageStart=(GuPage-1)*GuPageSize
	for each GuFileL in GuFSOFolder0.files
		if GuPagei>GuPageStart then
%>
 <tr bgcolor="#FFFFFF" onMouseOver="this.style.backgroundColor='#EAFBF5'" onMouseOut="this.style.backgroundColor='#FFFFFF'">
  <td width="41" height="26" align="center"><%
	dim GuFileType,GuFileTypeICO
	GuFileType=GuFileTypeGet(GuFileL,".")
	select case GuFileType
		case "asp","aspx","asa"
			GuFileTypeICO="asp.gif"
		case "avi"
			GuFileTypeICO="avi.gif"
		case "bat","cmd"
			GuFileTypeICO="bat.gif"
		case "bmp"
			GuFileTypeICO="bmp.gif"
		case "c","php3","php4","jsp","cgi"
			GuFileTypeICO="code.gif"
		case "css"
			GuFileTypeICO="css.gif"
		case "dll"
			GuFileTypeICO="dll.gif"
		case "doc"
			GuFileTypeICO="doc.gif"
		case "exe"
			GuFileTypeICO="exe.gif"
		case "gif"
			GuFileTypeICO="gif.gif"
		case "htm","html","mht"
			GuFileTypeICO="htm.gif"
		case "jpg","jpeg"
			GuFileTypeICO="jpg.gif"
		case "js"
			GuFileTypeICO="js.gif"
		case "mdb"
			GuFileTypeICO="mdb.gif"
		case "dat","rm","rmvb","mp4"
			GuFileTypeICO="media.gif"
		case "mid"
			GuFileTypeICO="mid.gif"
		case "pdf"
			GuFileTypeICO="pdf.gif"
		case "png"
			GuFileTypeICO="png.gif"
		case "ppt"
			GuFileTypeICO="ppt.gif"
		case "rar"
			GuFileTypeICO="rar.gif"
		case "reg"
			GuFileTypeICO="reg.gif"
		case "swf"
			GuFileTypeICO="swf.gif"
		case "txt","inc"
			GuFileTypeICO="txt.gif"
		case "wav","mp3"
			GuFileTypeICO="wav.gif"
		case "xls"
			GuFileTypeICO="xls.gif"
		case "xml"
			GuFileTypeICO="xml.gif"
		case "zip"
			GuFileTypeICO="zip.gif"
		case else
			GuFileTypeICO="unknow.gif"
	end select
%><img src="Images/System/<%=GuFileTypeICO%>" width="20" height="20" border="0" title="<%=GuFileL.Type%>"></td>
  <td width="38" height="26" align="center"><input type="checkbox" name="GuFiles" value="<%=GuFileL.name%>"></td>
  <td width="222" height="26">&nbsp;<a href="<%=GuFEPathD%><%=GuURLEncoding(GuFileL.name)%>" target="_blank" class="BlackS12"><%=GuFileL.name%></a></td>
  <td width="78" height="26" align="right"><font class="BlackS12"><%=GuFFSize1(GuFileL.size)%></font>&nbsp;</td>
  <td width="140" height="26" align="center"><span class="BlackS12"><%=GuFileL.datelastmodified%></span></td>
  <td width="38" height="26" align="center"><a href="Admin_Explorer.asp?GuComm=Na&GuCN=FFRename&FFType=GuFile&GuFEPathD=<%=GuFEPathE%>&FFName=<%=GuURLEncoding(GuFileL.name)%>&GuPage=<%=GuPage%>"><img src="Images/Admin_Button_Rename2.gif" border="0" style="filter:alpha(opacity=60)" title="重命名"></a></td>
  <td width="38" height="26" align="center"><%
	dim FileEditY,FileEditOK,ii
	FileEditY=0
	FileEditOK=split(FileExplorerEditDefault,"|")

	for ii=0 to ubound(FileEditOK)
	if FileEditOK(ii)=GuFileType then
		FileEditY=1
	exit for
	end if
	next
%><%if FileEditY=1 then%><a href="Admin_Explorer.asp?GuComm=Ed&GuFEPathD=<%=GuFEPathE%>&FFName=<%=GuURLEncoding(GuFileL.name)%>&GuPage=<%=GuPage%>"><img src="Images/Admin_Button_Modify2.gif" border="0" style="filter:alpha(opacity=60)" title="编辑"></a><%else%><img src="Images/Admin_Button_Modify2.gif" border="0" style="filter:alpha(opacity=10)" title=""><%end if%></td>
 </tr>
<%
		end if
		GuPagei=GuPagei+1
		if GuPagei>GuPageStart+GuPageSize then
			exit for
		end if
	next
%>
 <tr>
  <td width="600" height="28" bgcolor="#FFFFFF" colspan="8">&nbsp;&nbsp;<font class="BlackS12">当前目录:<%=GuFEPathD%>，共有:<%=GuFSOFolder0.subfolders.count%>个文件夹，<%=GuPageCount%>个文件，占用空间:<%=GuFFSize1(TotalSize)%></font></td>
 </tr>
 <tr>
  <td width="600" height="38" bgcolor="#FFFFFF" colspan="8" align="right"><input type="button" name="Admin_Button_Reload" class="Admin_Button_Reload" onclick="JavaScript:window.location.reload();">&nbsp;<input type="button" name="button" value="" class="Admin_Button_Delete" onclick="JavaScript:document.Admin_Explorer_List.action='Admin_Explorer.asp?GuComm=De&GuFEPathD=<%=GuFEPathE%>&GuPage=<%=GuPage%>';document.Admin_Explorer_List.submit();">&nbsp;<input type="button" name="Admin_Button_Copy" class="Admin_Button_Copy" onclick="JavaScript:document.Admin_Explorer_List.action='Admin_Explorer.asp?GuComm=Co&GuFEPathD=<%=GuFEPathE%>&GuPage=<%=GuPage%>';document.Admin_Explorer_List.submit();">&nbsp;<input type="button" name="Admin_Button_Cut" class="Admin_Button_Cut" onclick="JavaScript:document.Admin_Explorer_List.action='Admin_Explorer.asp?GuComm=Cu&GuFEPathD=<%=GuFEPathE%>&GuPage=<%=GuPage%>';document.Admin_Explorer_List.submit();">&nbsp;<input type="button" name="Admin_Button_Paste" class="Admin_Button_Paste" onclick="JavaScript:document.Admin_Explorer_List.action='Admin_Explorer.asp?GuComm=Pa&GuFEPathD=<%=GuFEPathE%>&GuPage=<%=GuPage%>';document.Admin_Explorer_List.submit();">&nbsp;<input type="button" name="Admin_Button_SelectAll" onclick="JavaScript:GuSelectAll(document.Admin_Explorer_List.GuFiles,document.Admin_Explorer_List.GuFolders);" class="Admin_Button_SelectAll">&nbsp;<input type="button" name="Admin_Button_SelectReverse" class="Admin_Button_SelectReverse" onclick="JavaScript:GuSelectReverse(document.Admin_Explorer_List.GuFiles,document.Admin_Explorer_List.GuFolders);">&nbsp;<input type="button" name="Admin_Button_SelectClear" class="Admin_Button_SelectClear" onclick="JavaScript:GuSelectClear(document.Admin_Explorer_List.GuFiles,document.Admin_Explorer_List.GuFolders);">&nbsp;</td>
 </tr>
 <tr>
  <td width="600" height="28" bgcolor="#FFFFFF" colspan="8" align="right"><%

	if GuPage>1 then
		Response.write "<a href=""Admin_Explorer.asp?GuFEPathD="&GuFEPathE&"&GuPage=1"" class=""BlackS12"">『首页』</a>"
		Response.write "<a href=""Admin_Explorer.asp?GuFEPathD="&GuFEPathE&"&GuPage="&(GuPage-1)&""" class=""BlackS12"">『上页』</a>"
	else
		Response.write "<font class=""SilverS12"">『首页』『上页』</font>"
	end if

	if GuPage<GuPageTotal then
		Response.write "<a href=""Admin_Explorer.asp?GuFEPathD="&GuFEPathE&"&GuPage="&(GuPage+1)&""" class=""BlackS12"">『下页』</a>"
		Response.write "<a href=""Admin_Explorer.asp?GuFEPathD="&GuFEPathE&"&GuPage="&GuPageTotal&""" class=""BlackS12"">『尾页』</a>"
	else
		Response.write "<font class=""SilverS12"">『下页』『尾页』</font>"
	end if

	Response.write "&nbsp;"
	Response.write "&nbsp;<font class=""BlackV12"">共有<font class=""LightgrayG12"">"&GuFSOFolder0.subfolders.count+GuPageCount&"</font>个文件(夹)</font>&nbsp;<font class=""LightgrayG12"">"&GuPageSize&"</font><font class=""BlackS12"">个文件/页</font>"
	Response.write "&nbsp;<font class=""BlackS12"">页次:</font><font class=""BlueG12"">"&GuPage&"</font><font class=""BlackG12"">/"&GuPageTotal&"</font>"
	Response.write "&nbsp;<font class=""BlackS12"">转到:</font>"
	Response.write "<select name=""GuPage"" size=""1"" style=""width:;background-color:#FFFFFF;"" class=""Admin_Select"" onChange=""JavaScript:window.open(this.options[this.selectedIndex].value,'_self')"">"
	for GuPagei=1 to GuPageTotal
		if GuPagei=GuPage then
			Response.write "<option value=""Admin_Explorer.asp?GuFEPathD="&GuFEPathE&"&GuPage="&GuPagei&""" selected>第"&GuPagei&"页</option>"
		else
			Response.write "<option value=""Admin_Explorer.asp?GuFEPathD="&GuFEPathE&"&GuPage="&GuPagei&""">第"&GuPagei&"页</option>"
		end if
	next
	Response.write "</select>"

	set GuFSOFolder0=Nothing

%>&nbsp;</td>
 </tr>
<%
else
	Response.write "<tr><td width=""600"" height=""40"" bgcolor=""#FFFFFF"" colspan=""7"">&nbsp;<font class=""SilverS12"">文件列表获取失败</font></td></tr>"
end if
set GuFSO=Nothing
%>
</form>
</table>

<%end sub%>

<br><br>

<!--#include file="Include/Message.asp"-->

</body>
</html>