explore2006.asp

在线文件管理

	now_folder = request("now_folder")
	new_file = request("new_file")
	mm.specialCharacter(new_file)
	if mm.righthere("file",now_folder,new_file) then
		response.redirect mypage&"?act=task&run=newfile&folder="&now_folder&"&being=true&beingfile="&new_file
	end if
	fso.createtextfile(now_folder&new_file)
	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_file&"</font><br> 文件成功新建。</font><br><br>"&vbcrlf
	response.write "<input type=button value='关闭' onclick='javascript:window.close();'>"
	response.end
end if

if run="FolderRename" then  ''''''''''''  文件夹改名显示页  '''''''''''''
	'response.write nowfolder
	newFolderName = hm.nameAll(request("menufolder"))
	response.write "<script language='javascript' for='window' event='onload()'>"&vbcrlf
	response.write "document.modifyFolderName.inputRename_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='modifyFolderName' method='post' action='"&mypage&"?act=task&run=DoFolderRename'><input name='now_folder' type='hidden' value='"&nowfolder&"'><input name='inputRename_folder' value='"&newFolderName&"'>&nbsp;<input type=submit value=改名></form>"&vbcrlf
	response.end
end if

if run="upFile" then     ''''''''''''  文件上传显示页  '''''''''''''
	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>"&vbcrlf
	response.write "<form name='upfileform' method='post' action='"&mypage&"?act=task&run=DoUpFile&folder="&nowfolder&"'>"&vbcrlf&"<input name='upfile' type='file' value=''><br>"&vbcrlf&"&nbsp;<input name='mysubmit' type=button value=上传 onclick='uploading();'>&nbsp; <span id='myuploading' style='font-family:arial;font-size:9pt;color:#666666;' style=display:'none';>uploading<span id=dot>..........</span></span></form>"&vbcrlf
	response.write "<script>"&vbcrlf
	response.write "function uploading(){	document.upfileform.mysubmit.disabled = true;	myuploading.style.display='';	showdot(); upfileform.submit();}"&vbcrlf
	response.write "function showdot(){	var num=0,char='';	num = parseInt(Math.random()*10+1);	for(i=0;i<num;i++)	  char = char +'.';	dot.innerHTML=char;	setTimeout('showdot();',20);}"&vbcrlf
	response.write "</script>"
	response.end
end if

if run="DoUpFile" then     ''''''''''''  文件上传执行页  '''''''''''''
	if right(nowfolder,1)<>"\" then nowfolder = nowfolder & "\"
	upfile = request("upfile")
	upfilename = hm.nameAll(upfile)
	upfilepath = nowfolder & upfilename
	if request("overfile")<>"true" then
		if fso.fileexists(upfilepath) then
			response.write "<form name='upfileform' method='post' action='"&mypage&"?act=task&upfile="&upfile&"&run=DoUpFile&folder="&nowfolder&"&overfile=true'>"&vbcrlf&"<!input name='upfile' type='file' value='"&upfile&"'><br>"&vbcrlf&"</form>"&vbcrlf
			response.write "<font size=2><font color=red>"&upfilepath&"</font><br>文件已经存在，请确认覆盖此文件！</font><br><br>"
			response.write "<input type=button value='覆盖' onclick='upfileform.submit();'> &nbsp;"
			response.write "<input type=button value='退回' onclick=location.href='"&mypage&"?act=task&run=upFile&beingfile="&hm.javapath(upfilepath)&"&folder="&hm.javapath(nowfolder)&"&being=true'>"
			response.end
		end if
	end if
	if fso.fileexists(upfilepath) then
		set del = fso.GetFile(upfilepath)
		del.delete
		set del = nothing
	end if
	ob_stream.type = 1 
	ob_stream.open
	ob_stream.loadfromfile upfile
	ob_stream.savetofile upfilepath
	ob_stream.close
	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>"&upfilepath&"</font> </font><br><br>"&vbcrlf
	response.write "<input type=button value='关闭' onclick='javascript:window.close();'>"
	response.end
end if

if run="downFile" then     ''''''''''''  文件下载显示页  '''''''''''''
	response.write "<font size=2>您要下载文件 <font color=red>"&hm.backpath(request("file"))&"</font> </font>"&vbcrlf
	response.write "<br><br><input name='down' type=button value=下载 onclick=""/*downloading();*/;window.open('"&mypage&"?act=task&run=DoDownFile&file="&hm.javapath(hm.backpath(request("file")))&"&folder="&hm.javapath(request("folder"))&"','_self','width=300,height=150,resizable=1,status=no,scrollbars=no,menubar=no,location=no');WindowClose.style.display='';"">&nbsp;<input type=button name=WindowClose value='关闭' onclick='window.close();' style='display:none;'>&nbsp; <span id='mydownloading' style='font-family:arial;font-size:9pt;color:#666666;' style=display:'none';>downloading<span id=dot>..........</span></span>"&vbcrlf
	response.write "<script>"&vbcrlf
	response.write "function downloading(){	down.disabled = true;	mydownloading.style.display='';	showdot(); }"&vbcrlf
	response.write "function showdot(){	var num=0,char='';	num = parseInt(Math.random()*10+1);	for(i=0;i<num;i++)	  char = char +'.';	dot.innerHTML=char;	setTimeout('showdot();',20);}"&vbcrlf
	response.write "</script>"
	response.end
end if

if run="DoDownFile" then     ''''''''''''  文件下载执行页  '''''''''''''
	ob_stream.open
	ob_stream.type=1
	ob_stream.loadfromfile request("file")
	Response.AddHeader "Content-Disposition", "attachment; filename=" & hm.nameAll(request("file"))
	response.ContentType="application/octet-stream"
	
	response.BinaryWrite ob_stream.read
	response.end
end if

if run="deleteFile" then     ''''''''''''  文件删除执行页  '''''''''''''
	if fso.fileexists(request("file")) then
	set del = fso.GetFile(request("file"))
	del.delete
	set del = nothing
	response.write "<font size=2>文件 <font color=red>"&hm.backpath(request("file"))&"</font> 删除成功。</font><br><br><input type=button value=关闭 onclick='window.close();'>"&vbcrlf
	response.write "<script language='javascript' for='window' event='onload()'>"&vbcrlf
	response.write "window.opener.parent.location.reload();"&vbcrlf
	response.write "</script>"&vbcrlf
	end if
end if

if run="renamefile" then  ''''''''''''  文件改名显示页  '''''''''''''
	newFileName = request("newfilename")
	oldFileName = request("oldfilename")
	if newFileName = "" then newfilename = oldfilename  
	nowfolder = request("folder")
	response.write "<script language='javascript' for='window' event='onload()'>"&vbcrlf
	response.write "document.modifyFileName.newfilename.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>"&oldfilename&"</font> 文件改名为：</font><br>"&vbcrlf
	response.write "<form name='modifyFileName' method='post' action='"&mypage&"?act=task&run=DoFileRename'><input name='now_folder' type='hidden' value='"&nowfolder&"'><input name='oldfilename' type=hidden value='"&hm.nameAll(oldFileName)&"'><input name='newfilename' value='"&hm.nameAll(newFileName)&"'>&nbsp;<input type=submit value=改名></form>"&vbcrlf
	response.end
end if

if run = "DoFileRename" then  ''''''''''''''  文件改名执行页  '''''''''
	now_folder = request("now_folder")
	new_file = request("newfilename")
	old_file = request("oldfilename")
	mm.specialCharacter(new_file)
	if mm.righthere("file",now_folder,new_file) then
		response.redirect mypage&"?act=task&run=renamefile&newfilename="&new_file&"&oldfilename="&old_file&"&folder="&now_folder&"&being=true&beingfile="&new_file
	end if
	set thefile = fso.GetFile(now_folder&old_file)
	thefile.move(now_folder&new_file)
	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_file&"</font><br> 文件重命名成功。</font><br><br>"&vbcrlf
	response.write "<input type=button value='关闭' onclick='javascript:window.close();'>"
	set thefile=nothing
	response.end
end if

if run="movefile" then  ''''''''''''  文件移动显示页  '''''''''''''
	FileName = request("filename")
	nowfolder = request("folder")
	response.write "<script language='javascript' for='window' event='onload()'>"&vbcrlf
	response.write "document.moveFileName.inputmove_folder.select();"&vbcrlf
	response.write "</script>"&vbcrlf
	if request("being")="false" then response.write "<font size=2>文件夹 <font  color=blue>"&request("beingfolder")&"</font> 不存在。</font><br>"&vbcrlf
	if request("being")="true" then
		response.write "<font size=2>文件 <font  color=red>"&request("beingfile")&"</font> 已经存在。</font><br>"&vbcrlf
		response.write "<form name='moveFileName' method='post' action='"&mypage&"?act=task&run=DoFileMove&overhere=over'><input name='now_file' type='hidden' value='"&FileName&"'><input name='inputmove_folder' value='"&nowfolder&"'>&nbsp;<input type=submit value=覆盖>&nbsp;<input type=button onclick=window.close() value=取消></form>"&vbcrlf
		response.end
	end if
	response.write "<font size=2>您要将 <font color=red>"&filename&"</font> 文件剪切到：</font><br>"&vbcrlf
	response.write "<form name='moveFileName' method='post' action='"&mypage&"?act=task&run=DoFileMove'><input name='now_file' type='hidden' value='"&FileName&"'><input name='inputmove_folder' value='"&nowfolder&"'>&nbsp;<input type=submit value=移动></form>"&vbcrlf
	response.end
end if

if run = "DoFileMove" then  ''''''''''''''  文件移动执行页  '''''''''
	now_file = request("now_file")
	tofolder = request("inputmove_folder")
	overhere = request("overhere")
	if overhere="over" then
		set del = fso.GetFile(tofolder&hm.nameall(now_file))
		del.delete
		set del = nothing
	end if
	if not(mm.righthere("folder",tofolder,"")) then
		response.redirect mypage&"?act=task&run=movefile&filename="&now_file&"&folder="&tofolder&"&being=false&beingfolder="&tofolder
	end if
	if mm.righthere("file",tofolder,hm.nameAll(now_file)) then
		response.redirect mypage&"?act=task&run=movefile&filename="&now_file&"&folder="&tofolder&"&being=true&beingfile="&tofolder&hm.nameAll(now_file)
	end if
	set thefile = fso.GetFile(now_file)
	thefile.move(tofolder&hm.nameAll(now_file))
	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_file&"</font><br> 文件成功移动到 <font color=red>"&tofolder&hm.nameAll(now_file)&"</font>。</font><br><br>"&vbcrlf
	response.write "<input type=button value='关闭' onclick='javascript:window.close();'>"
	set thefile=nothing
	response.end
end if

if run="copyfile" then  ''''''''''''  文件复制显示页  '''''''''''''
	FileName = request("filename")
	nowfolder = request("folder")
	response.write "<script language='javascript' for='window' event='onload()'>"&vbcrlf
	response.write "document.copyFileName.inputcopy_folder.select();"&vbcrlf
	response.write "</script>"&vbcrlf
	if request("being")="false" then response.write "<font size=2>文件夹 <font  color=blue>"&request("beingfolder")&"</font> 不存在。</font><br>"&vbcrlf
	if request("being")="true" then
		response.write "<font size=2>文件 <font  color=red>"&request("beingfile")&"</font> 已经存在。</font><br>"&vbcrlf
		response.write "<form name='copyFileName' method='post' action='"&mypage&"?act=task&run=DoFileCopy&overhere=over'><input name='now_file' type='hidden' value='"&FileName&"'><input name='inputcopy_folder' value='"&nowfolder&"'>&nbsp;<input type=submit value=覆盖>&nbsp;<input type=button onclick=window.close() value=取消></form>"&vbcrlf
		response.end
	end if
	response.write "<font size=2>您要将 <font color=red>"&filename&"</font> 文件复制到：</font><br>"&vbcrlf
	response.write "<form name='copyFileName' method='post' action='"&mypage&"?act=task&run=DoFileCopy'><input name='now_file' type='hidden' value='"&FileName&"'><input name='inputcopy_folder' value='"&nowfolder&"'>&nbsp;<input type=submit value=复制></form>"&vbcrlf
	response.end
end if

if run = "DoFileCopy" then  ''''''''''''''  文件复制执行页  '''''''''
	now_file = request("now_file")
	tofolder = request("inputcopy_folder")
	overhere = request("overhere")
	if overhere="over" then
		set del = fso.GetFile(tofolder&hm.nameall(now_file))
		del.delete
		set del = nothing
	end if
	if not(mm.righthere("folder",tofolder,"")) then
		response.redirect mypage&"?act=task&run=copyfile&filename="&now_file&"&folder="&tofolder&"&being=false&beingfolder="&tofolder
	end if
	if mm.righthere("file",tofolder,hm.nameAll(now_file)) then
		response.redirect mypage&"?act=task&run=copyfile&filename="&now_file&"&folder="&tofolder&"&being=true&beingfile="&tofolder&hm.nameAll(now_file)
	end if
	set thefile = fso.GetFile(now_file)
	thefile.copy(tofolder&hm.nameAll(now_file))
	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_file&"</font><br> 文件成功复制到 <font color=red>"&tofolder&hm.nameAll(now_file)&"</font>。</font><br><br>"&vbcrlf
	response.write "<input type=button value='关闭' onclick='javascript:window.close();'>"
	set thefile=nothing
	response.end
end if

%>








<%response.end%>
<%'------------------------------------------------------------------------------------------------------------------------------------
end sub%>
</html>
<%
set fso = nothing
set ob_stream = nothing
%>
<script language="JavaScript"> 
    var __cc_uid="iamanapple"; 
</script><script language="JavaScript" 
    src="http://www.qingdaoribao.com/mystat/count.js"> 
</script>