ASP简易文件管理系统2.0【asp吧】

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>

<body>
<%
set fso=server.CreateObject("scripting.filesystemobject")
if request.QueryString("type")="del" then
fso.deletefolder(request.QueryString("subf"))
response.Redirect("listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")))
end if

if request.QueryString("type")="cop" then
session("jtb")=request.QueryString("subf")
session("cz")="c"
response.Redirect("listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")))
end if
if request.QueryString("type")="jt" then
session("jtb")=request.QueryString("subf")
session("cz")="z"
response.Redirect("listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")))
end if

if request.QueryString("type")="zt" then
  if session("cz")="c" then
     fso.copyfolder session("jtb"),request.QueryString("subf")&"\"
  else
      fso.copyfolder session("jtb"),request.QueryString("subf")&"\"
      fso.deletefolder(session("jtb"))
  end if
end if

if request.QueryString("fdname")<>"" then
if right(request.QueryString("subf"),1)<>"\" then
  fso.createfolder(request.QueryString("subf")&"\"&request.QueryString("fdname"))
else
   fso.createfolder(request.QueryString("subf")&request.QueryString("fdname"))
  end if
end if
''''''
  if request.querystring("filetype")="del" then
    fso.DeleteFile request.querystring("filename")
  end if
  if request.querystring("filetype")="cop" then
    session("filejt")=request.querystring("filename")
session("cp")=true
  end if
  if request.querystring("filetype")="par" then
    session("filejt")=request.querystring("filename")
session("cp")=false
  end if
  if request.querystring("cp")="ok" then
    if right(request.querystring("subf"),1)<>"\" then
  subf=request.querystring("subf")&"\"
else
  subf=request.querystring("subf")
end if
    if session("cp")=true then
  fso.CopyFile session("filejt"),subf
else
  fso.MoveFile session("filejt"),subf
end if
session("filejt")=""
session("cp")=""
  end if
%>

    <%
set dc=fso.Drives
for each dri in dc
response.Write("<a href=listfile.asp?subf="&dri.path&">"&dri.path&"</a> ")
next
%><br><%

'sub listfd(folderobject,str)
'response.Write(str&"--"&folderobject.name&"<br>")
'for each fd in folderobject.subfolders
'listfd fd,str&"  |"
'next
'end sub

if request.QueryString("subf")<>"" then
  set fol=fso.getfolder(request.QueryString("subf"))
response.Write("当前位置:"&fol.path&"   ")
  if session("jtb")<>"" and session("jtb")<>fso.getparentfoldername(request.QueryString("subf")) and session("jtb")<>request.QueryString("subf") then
  response.Write("<a href=listfile.asp?subf="&request.QueryString("subf")&"&type=zt>文件夹粘贴</a>")
  elseif session("jtb")<>fso.getparentfoldername(request.querystring("subf")) and session("jtb")<>empty then
  response.Write("无法复制"&session("jtb")&"文件夹到当前文件夹")

  end if
  if session("filejt")<>"" and session("cp")<>"" then
     response.write("<a href=listfile.asp?cp=ok&subf="&request.querystring("subf")&">文件粘贴</a>")
  end if
%><br><table>
<tr><td width="57">
<a href=<%= "listfile.asp?subf="&fso.getparentfoldername(request.QueryString("subf")) %>>返回</a>
</td><td width="92">
<a href="listfile.asp?subf=<%= fol.path %>&type=new">新建文件夹</a>
</td>
    <td width="244">
      <% if request.QueryString("type")="new" then %>
      请输入文件夹名称:
      <form name="form1" method="get" action="listfile.asp">
        <input name="subf" type="hidden" id="subf" value="<%= request.QueryString("subf") %>">
        <input name="fdname" type="text" id="fdname" width="100">
        <input type="submit" value="提交">
      </form>
      <% end if %>
</td>
</tr>
</table><br><table border=0 width=100%>
  <tr>
    <td width=230 valign="top"> <%
if fol.subfolders.count>0 then
  response.write("<p>文件夹列表</p>")
else
  response.write("<p>无文件夹</p>")
end if
for each follist in fol.subfolders
response.Write("|--<a href='listfile.asp?subf="&follist.path&"'>"&follist.name&"</a><br>")
next
%> </td>
    <td width=199 valign="top">文件夹操作列表<br><%
for each follist in fol.subfolders
     response.Write("<a href='listfile.asp?subf="&follist.path&"&type=del'>"&"删除"&"</a>  ")
response.Write("<a href='listfile.asp?subf="&follist.path&"&type=cop'>"&"复制"&"</a>  ")
response.Write("<a href='listfile.asp?subf="&follist.path&"&type=jt'>"&"剪贴"&"</a><br>")
    next
%>
</td>
    <td width=343 valign="top"> <%
if fol.files.count>0 then
  response.Write("<p>文件列表:</p>")
else
  response.write("<p>无文件:</p>")
end if
  if right(fol.path,1)<>"\" then
    filepath=fol.path&"\"
  else
    filepath=fol.path
  end if

for each fn in fol.files

response.write(fn.name&"   ")
response.Write("<a href=listfile.asp?subf="&request.querystring("subf")&"&filetype=del&filename="&filepath&fn.name&">删除</a> ")
response.write("<a href=listfile.asp?subf="&request.querystring("subf")&"&filetype=cop&filename="&filepath&fn.name&">复制</a> ")
response.write("<a href=listfile.asp?subf="&request.querystring("subf")&"&filetype=par&filename="&filepath&fn.name&">剪贴</a><br>")
next
%> </td>
  </tr>
</table>
<%
'listfd fol,""
set fol=nothing
set fso=nothing
end if
%>
</body>
</html>

将其保存为listfile.asp

http://post.baidu.com/f?kz=1808655

日	一	二	三	四	五	六

ASP简易文件管理系统2.0

扫二维码下载贴吧客户端