explore2006.asp

在线文件管理

                <td><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="20"><div align="right"><font class="menuimage" style="font-size:13pt;font-family:wingdings 2;">+</font></div></td>
                      <td>&nbsp;<a href="javascript:" onClick="javascript:window.open('<%=mypage%>?act=task&run=copyfile&filename=<%=hm.javapath(hm.backpath(menufile))%>&folder=<% =hm.javapath(nowfolder) %>','_blank','width=300,height=150,resizable=1,status=no,scrollbars=no,menubar=no,location=no');" class="menulink"><span class="menufont">复制这个文件</span></a></td>
                    </tr>
                </table></td>
              </tr>
			  <%end if%>
			  <%if menutype="file" then%>
              <tr>
                <td><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="20"><div align="right"><font class="menuimage" style="font-size:15pt;font-family:wingdings 2;">3</font></div></td>
                      <td>&nbsp;<a href="javascript:" onClick="javascript:if(confirm('您真的要删除 <%=hm.javapath(hm.backpath(menufile))%> 文件吗?')){window.open('<%=mypage%>?act=task&run=deleteFile&file=<%=hm.javapath(menufile)%>&folder=<%=hm.javapath(nowfolder)%>','_blank','width=300,height=150,resizable=1,status=no,scrollbars=no,menubar=no,location=no');}else{return false;}" class="menulink"><span class="menufont">删除这个文件</span></a></td>
                    </tr>
                </table></td>
              </tr>
			  <%end if%>
			  <%if menutype="file" then%>
              <tr>
                <td><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="20"><div align="right"><font class="menuimage" style="font-size:15pt;font-family:wingdings 3;">,</font></div></td>
                      <td>&nbsp;<a href="javascript:" onClick="javascript:window.open('<%=mypage%>?act=task&run=downFile&file=<%=hm.javapath(menufile)%>&folder=<%=hm.javapath(nowfolder)%>','_blank','width=300,height=150,resizable=1,status=no,scrollbars=no,menubar=no,location=no');" class="menulink"><span class="menufont">下载这个文件</span></a></td>
                    </tr>
                </table></td>
              </tr>
			  <%end if%>
			  <%if true then%>
              <tr>
                <td><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="20"><div align="right"><font class="menuimage" style="font-size:15pt;font-family:wingdings 3;">X</font></div></td>
                      <td>&nbsp;<a href="javascript:" onClick="javascript:window.open('<%=mypage%>?act=task&run=upFile&folder=<%if nowfolder="" then : response.write hm.javapath(folder) : else : response.write hm.javapath(nowfolder) : end if%>','_blank','width=300,height=150,resizable=1,status=no,scrollbars=no,menubar=no,location=no');" class="menulink"><span class="menufont">上传一个文件</span></a></td>
                    </tr>
                </table></td>
              </tr>
			  <%end if%>
          </table></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td><table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8" style="border-collapse:collapse;">
        <tr onClick="tree('loc');" style="cursor:default;">
          <td height="20" bgcolor="#D4D0C8"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td>&nbsp;&nbsp;<font style="font-weight:bold;font-size:10pt;color:#000000;">其它位置</font></td>
                <td width="20"><input id="loc"  onclick="tree('loc');" type="button" value="<%=chr(126)%>" style="border:0;width:15;height:15;font-family:wingdings 3;font-size:7pt;"></td>
              </tr>
          </table></td>
        </tr>
        <tr bgcolor="#FFFFFF" id="locshow">
          <td><table width="100%"  border="0">
<%if menutype="folder" then%>
              <tr>
                <td>
<%
	set drive = fso.GetDrive(fso.GetFolder(menufolder).Drive)
%>
				  <table width="100%"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="20"><div align="right"><font class="menuimage" style="font-size:19pt;font-family:wingdings;">;</font></div></td>
                      <td>&nbsp;<a href=<%=mypage&"?folder="&drive&"\"%> target=_parent class=menulink><span class="menufont">本地磁盘 (<%=drive%>)</span></a></td>
                    </tr>
                  </table>
				</td>
              </tr>
<%end if%>
              <tr>
                <td><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="20"><div align="right"><font class="menuimage" style="font-size:17pt;font-family:wingdings;">:</font></div></td>
                      <td>&nbsp;<a href=<%=mypage%> target=_parent class=menulink><span class="menufont">我的电脑</span></a></td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="20"><div align="right"><font class="menuimage" style="font-size:13pt;font-family:wingdings;"><%=chr(38)%></font></div></td>
                      <td>&nbsp;<a href="<%=mypage%>?folder=<%=server.mappath("\")%>" target=_parent class=menulink><span class="menufont">服务器地址</span></a></td>
                    </tr>
                </table></td>
              </tr>
              <tr>
                <td><table width="100%"  border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td width="20"><div align="right"><font class="menuimage" style="font-size:11pt;font-family:wingdings;">1</font></div></td>
                      <td>&nbsp;<a href=<%=mypage&"?folder=C:\Documents%20and%20Settings\Default%20User\My%20Documents\"%> target=_parent class=menulink><span class="menufont">我的文档</span></a></td>
                    </tr>
                </table></td>
              </tr>
          </table></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td><table width="100%"  border="1" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8" style="border-collapse:collapse;">
        <tr onClick="tree('dis');" style="cursor:default;">
          <td height="20" bgcolor="#D4D0C8"><table width="100%"  border="0" cellpadding="0" cellspacing="0">
              <tr>
                <td>&nbsp;&nbsp;<font style="font-weight:bold;font-size:10pt;color:#000000;">详细信息</font></td>
                <td width="20"><input id="dis" onClick="tree('dis');" type="button" value="<%=chr(126)%>" style="border:0;width:15;height:15;font-family:wingdings 3;font-size:7pt;"></td>
              </tr>
          </table></td>
        </tr>
        <tr bgcolor="#FFFFFF" id="disshow">
          <td>
<%if menutype="disk" then%>
		    <table width="100%"  border="0" <%if menutype="disk" then : response.write "style=""display:'';""" : else : response.write "style=""display:'none';""" : end if%>>
<%diskroot = true
  set disks = fso.drives
  for each d in disks
  if lcase(d) = lcase(menudisk) then 
  diskroot = false
%>
              <tr>
                <td>&nbsp;<span class="menufont"><b><%=mm.dtype(d.drivetype)&" "&"("&d&")"%></b></span><br>
&nbsp;<span class="menufont"><%=mm.dtype(d.drivetype)%></span></td>
              </tr>
<%if d.isready then%>
              <tr>
                <td>&nbsp;<span class="menufont">文件系统: <%=d.filesystem%></span></td>
              </tr>
              <tr>
                <td>&nbsp;<span class="menufont">可用空间: <%=mm.formatsize(d.freespace)%></span></td>
              </tr>
              <tr>
                <td>&nbsp;<span class="menufont">总大小: <%=mm.formatsize(d.totalsize)%></span></td>
              </tr>
<%end if%>
<%
  end if
  next
  if diskroot or menudisk="" then
%>
              <tr>
                <td>&nbsp;<span class="menufont"><b>我的电脑</b></span><br>
&nbsp;<span class="menufont">系统文件夹</span></td>
              </tr>
<%end if%>
            </table>

<%elseif menutype="folder" then%>
              <table width="100%"  border="0" <%if menutype="folder" then : response.write "style=""display:'';""" : else : response.write "style=""display:'none';""" : end if%>>
<%
set folderdir = fso.getfolder(menufolder)
%>
                <tr>
                  <td>&nbsp;<span class="menufont"><b><%=hm.nameAll(menufolder)%></b></span><br>
&nbsp;<span class="menufont">文件夹</span></td>
                </tr>
                <tr>
                  <td>&nbsp;<span class="menufont">修改日期:<%response.write folderdir.datelastmodified%></span></td>
                </tr>
              </table>

<%elseif menutype="file" then%>
              <table width="100%"  border="0" <%if menutype="file" then : response.write "style=""display:'';""" : else : response.write "style=""display:'none';""" : end if%>>
<%
set filedir = fso.getfile(menufile)
%>
                <tr>
                  <td>&nbsp;<span class="menufont"><b><%=hm.nameall(menufile)%></b></span><br>
&nbsp;<span class="menufont"><%=mm.filename(hm.name3(menufile))%></span></td>
                </tr>
                <tr>
                  <td>&nbsp;<span class="menufont">修改日期:<%=filedir.datelastmodified%></span></td>
                </tr>
                <tr>
                  <td>&nbsp;<span class="menufont">大小: <%=mm.formatsize(filedir.size)%></span></td>
                </tr>
            </table>
<%end if%>
		  </td>
        </tr>
    </table></td>
  </tr>
</table>
</body>
</html>
<%response.end%>
<%'------------------------------------------------------------------------------------------------------------------------------------
end sub%>

<%sub showtask()%>
<%'---------------------------------------------------  子过程，显示菜单  --------------------------------------------------------------
run = request("run")
nowfolder = request("folder")


if run = "newfolder" then  ''''''''''''''  新建文件夹显示页  '''''''''
	newfoldername = request("newfoldername")
	if newfoldername="" then newFolderName = "新建文件夹"
	if right(nowfolder,1)<>"\" then nowfolder = nowfolder & "\"
	if mm.righthere("folder",nowfolder,newfoldername) then
		for foldernumber=2 to 9999
			newFolderName = "新建文件夹" &" ("&foldernumber&")"
			if not(mm.righthere("folder",nowfolder,newfoldername)) then exit for
		next
	end if
	response.write "<script language='javascript' for='window' event='onload()'>"&vbcrlf
	response.write "document.newFolderName.new_folder.select();"&vbcrlf
	response.write "</script>"&vbcrlf
	if request("being")="true" then response.write "<font size=2>文件夹 <font  color=blue>"&request("beingfile")&"</font> 已经存在。</font><br>"&vbcrlf
	response.write "<font size=2>您要在 <font color=red>"&nowfolder&"</font> 文件夹下新建：</font><br>"&vbcrlf
	response.write "<form name='newFolderName' method='post' action='"&mypage&"?act=task&run=DoNewFolder'><input name='now_folder' type='hidden' value='"&nowfolder&"'><input name='new_folder' value='"&newFolderName&"'>&nbsp;<input type=submit value=新建></form>"&vbcrlf
	response.end
end if

if run = "DoNewFolder" then  ''''''''''''''  新建文件夹执行页  '''''''''
	now_folder = request("now_folder")
	new_folder = request("new_folder")
	mm.specialCharacter(new_folder)
	if mm.righthere("folder",now_folder,new_folder) then
		response.redirect mypage&"?act=task&run=newfolder&folder="&now_folder&"&being=true&beingfile="&new_folder
	end if
	fso.createfolder(now_folder&new_folder)
	response.write "<script language='javascript' for='window' event='onload()'>"&vbcrlf
	response.write "window.opener.parent.location.reload();"&vbcrlf
	response.write "</script>"&vbcrlf
	response.write "<font size=2> <font color=red>"&now_folder&new_folder&"</font><br> 文件夹成功新建。</font><br><br>"&vbcrlf
	response.write "<input type=button value='关闭' onclick='javascript:window.close();'>"
	response.end
end if

if run = "newfile" then  ''''''''''''''  新建文本文件显示页  '''''''''
	newFileName = "新建 文本文档.txt"
	if right(nowfolder,1)<>"\" then nowfolder = nowfolder & "\"
	if mm.righthere("file",nowfolder,newfilename) then
		for filenumber=2 to 9999
			newFileName = "新建 文本文档" &" ("&filenumber&").txt"
			if not(mm.righthere("file",nowfolder,newfilename)) then exit for
		next
	end if
	response.write "<script language='javascript' for='window' event='onload()'>"&vbcrlf
	response.write "document.newFileName.new_file.select();"&vbcrlf
	response.write "</script>"&vbcrlf
	if request("being")="true" then response.write "<font size=2>文件 <font  color=blue>"&request("beingfile")&"</font> 已经存在。</font><br>"&vbcrlf
	response.write "<font size=2>您要在 <font color=red>"&nowfolder&"</font> 文件夹下新建：</font><br>"&vbcrlf
	response.write "<form name='newFileName' method='post' action='"&mypage&"?act=task&run=DoNewFile'><input name='now_folder' type='hidden' value='"&nowfolder&"'><input name='new_file' value='"&newFileName&"'>&nbsp;<input type=submit value=新建></form>"&vbcrlf
	response.end
end if

if run = "DoNewFile" then  ''''''''''''''  新建文件执行页  '''''''''