asp中遍历服务器上的文件

最新推荐文章于 2021-08-06 10:17:21 发布

keya

最新推荐文章于 2021-08-06 10:17:21 发布

阅读量673

点赞数

分类专栏： asp 文章标签：服务器 asp stylesheet javascript delete action

本文链接：https://blog.csdn.net/keya/article/details/1705003

版权

asp 专栏收录该内容

9 篇文章 0 订阅

订阅专栏

getUrl.asp:

2.asp:

<%
//##################################################################################
function delFile(filePath){//'''''''''''''''''''''''''''''''''''''''''删除选中的文件
  var FSO=Server.CreateObject("scripting.filesystemObject")
   if(FSO.FileExists(Server.MapPath(filePath)))
     FSO.DeleteFile(Server.MapPath(filePath));
  FSO=null;
  delete FSO;
  Response.Write("<script language=javascript>alert('Delete OK!');document.location=document.referrer;</script>");
  Response.End();
}
//##################################################################################
if(Request.QueryString("action")=="del")
  delFile(zltWebPath+Request("file"));


%>

<title>擎旗技术后台管理</title>
<link href="../file/css.css" rel="stylesheet" type="text/css">
</head>
<script language="javascript">
function getUrl(fileurl)
{
opener.document.form1.fileurl.value=fileurl;

}

</script>
<body>
<table cellpadding="2" cellspacing="1" border="0" width="100%" align=center>
<tr><%

var FSO=Server.CreateObject("scripting.filesystemobject");
var absFolder=FSO.getFolder(Server.MapPath(zltWebPath));//''''''''''''''创建文件夹对象
var absFile=new Enumerator(absFolder.Files);//''''''''''''''''''''''''''获得当前文件列表
for(var j=0;!absFile.atEnd();absFile.moveNext()){
  n=absFile.item().Name;%>
     <td width="" align=center style="line-height:22px"><a href="#" onClick="getUrl(this.innerHTML);"><%=n%></a> [<a href="?action=del&file=<%=n%>" onClick="return confirm('您确定要删除吗？此操作无法撤消!')">删除</a>] </td>
   </tr> <%j++;
if(j%3==0)Response.Write("</tr><tr>");
}
%>
    </table>
</body>
</html>