列出指定目录下的所有文件和目录
<%@ LANGUAGE = VBScript %>
<%Server.ScriptTimeout=5000%>
<html>
<head>
<style TYPE="text/css">
/* Outline Style Sheet */
UL UL {display: none;
margin-left: 20pt}
</style>
<script LANGUAGE="JavaScript">
function checkParent(src, dest) {
// Search for a specific parent of the current element
while (src!=null) {
if (src.tagName == dest) return src;
src = src.parentElement;
}
return null;
}
function outline() {
// Expand or collapse if a list item is clicked.
var open = event.srcElement;
// Make sure clicked inside an LI. This test allows rich HTML inside lists.
var el = checkParent(open, "LI");
if (null!=el) {
var pos = 0;
// Search for a nested list
for (var pos=0; pos<el.children.length; pos++) {
if ("UL"==el.children[pos].tagName) break;
}
if (pos==el.children.length) return;
} else return;
el = el.children[pos];
if ("UL"==el.tagName) {
// Expand or Collapse nested list
if (""==el.style.display) {
el.style.display = "block";
el.style.listStyleImage = "url(images/folder.gif)";
el.parentElement.style.listStyleImage = "url(images/ofolder.gif)";
}
else
{
el.style.display = "";
el.parentElement.style.listStyleImage = "url(images/folder.gif)";
}
}
event.cancelBubble = true;
}
document.onclick = outline;
</script>
<base target="main">
<title>Folders</title>
<link rel="stylesheet" type="text/css" href="ase.css">
</head>
<body topmargin="0" leftmargin="0">
<SCRIPT LANGUAGE=vbscript RUNAT = Server>
Dim fs, folderpara, folderArray
Set fs = CreateObject("Scripting.FileSystemObject")
if not isempty(request("txtRelative")) then
folderpara=server.mappath(request("txtRelative"))
else
folderpara=request("txtAbsolute")
end if
Response.write "<UL>"
Response.write "<LI STYLE='list-style-image: url(images/folder.gif)'><a href='files.asp?sPath=" &
folderpara & "'>" & folderpara & "</a></LI>"
Call ShowFolderList(folderpara)
Response.write "</UL>"
set fs = Nothing
Sub ShowFolderList(folderspec)
Dim f, f1, fc, s,fs
Set fs=Server.CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.SubFolders
Set fs=f.Files
'if (not (fc.count = 0)) then
Response.write "<UL>"
For Each f1 in fc
s = f1.name
If (not ((left (s, 1)) = "_")) then
Response.write "<li>"
Response.write "<a href='files.asp?sPath=" & f1 & "'>"
Response.write s & "</LI>"
Response.write "</a>"
Call ShowFolderList((folderspec & "/" & s))
end if
Next
For Each f1 in fs
s = f1.name
If (not ((left (s, 1)) = "_")) then
Response.write "<li>"
Response.write "<a href='files.asp?sPath=" & f1 & "'><font color=666666>"
if instr(s,"product")>0 then
Response.write replace(s,"product","<font color=008800>product</font>")
else
if instr(s,"prod")>0 then
Response.write replace(s,"prod","<font color=008800>prod</font>")
else
Response.write s
end if
end if
Response.write "</font></LI>"
Response.write "</a>"
end if
Next
Response.write "</UL>"
'end if
end sub
</SCRIPT>
</body>
</html>
相关推荐
-
易语言在指定路径下新建一个文件夹目录
创建目录命令 英文命令:MkDir 操作系统支持:Windows.Linux 所属类别:磁盘操作 创建一个新的目录.成功返回真,失败返回假. 语法: 逻辑型 创建目录 (欲创建的目录名称) 例程 说明 按钮被点击后弹出一个"浏览文件夹"对话框,选择一个路径后,将该路径存放在"创建目录路径"变量中,然后和"目录名编辑框"中的内容组成了要创建文件夹的完整路径名,并用"创建目录"命令创建它,将创建结果存放在"是否创
-
列出指定目录下的所有文件和目录
<%@ LANGUAGE = VBScript %> <%Server.ScriptTimeout=5000%> <html> <head> <style TYPE="text/css"> /* Outline Style Sheet */ UL UL {display: none; margin-left: 20pt} </style> <script LANGUAGE="JavaScript&q
-
php列出一个目录下的所有文件的代码
复制代码 代码如下: <?php function dir_path($path) { $path = str_replace('\\', '/', $path); if (substr($path, -1) != '/') $path = $path . '/'; return $path; } /** * 列出目录下的所有文件 * * @param str $path 目录 * @param str $exts 后缀 * @param array $list 路径数组 * @return a
-
python在指定目录下查找gif文件的方法
本文实例讲述了python在指定目录下查找gif文件的方法.分享给大家供大家参考.具体实现方法如下: #!/usr/bin/python # Use the standard find method to look for GIF files. import sys, find if len(sys.argv) > 1: dirs = sys.argv[1:] else: dirs = [ '.' ] # Go for it. for dir in dirs: files = find.find
-
java删除指定目录下所有空文件夹的方法
本文实例讲述了java删除指定目录下所有空文件夹的方法.分享给大家供大家参考,具体如下: package com.func; import java.io.File; import java.util.ArrayList; import java.util.List; /** * 删除指定目录下的所有空文件夹 * * @author zdw * */ public class FileUtils { List<File> list = new ArrayList<File>();
-
C++获取指定目录下的所有文件
本文实例为大家分享了C++获取指定目录下所有文件的具体代码,供大家参考,具体内容如下 1.获得指定目录下的所有文件(不搜索子文件夹) 需要包含的头文件 #include <io.h> #include <string> #include <vector> #include <fstream> 函数实现 void getAllFiles(string path, vector<string>& files) { // 文件句柄 long h
-
Linux下/var/run/目录下的pid文件详解及pid文件作用
先给大家介绍下Linux下/var/run/目录下的pid文件,具体详解如下所示: linux系统中/var/run/目录下的*.pid文件是一个文本文件,其内容只有一行,即某个进程的PID..pid文件的作用是防止进程启动多个副本,只有获得特定pid文件(固定路径和文件名)的写入权限(F_WRLCK)的进程才能正常启动并将自身的进程PID写入该文件,其它同一程序的多余进程则自动退出. 编程实现: 调用fcntl()系统调用设置指定的pid文件为F_WRLCK锁状态,如果锁成功则写入当前进程的P
-
python读取目录下最新的文件夹方法
如下所示: def new_report(test_report): lists = os.listdir(test_report) # 列出目录的下所有文件和文件夹保存到lists lists.sort(key=lambda fn: os.path.getmtime(test_report + "/" + fn)) # 按时间排序 file_new = os.path.join(test_report, lists[-1]) # 获取最新的文件保存到file_new print(fi
-
tomcat logs 目录下各日志文件的解析(小结)
tomcat每次启动时,自动在logs目录下生产以下日志文件,按照日期自动备份.可以帮助我们更好的找出错误. 1.catalina.日期.log 1.主要是记录tomcat启动时候的信息: 2.启动的JVM参数以及操作系统等日志信息: 3.没有使用log4j等日志机制,系统的的错误信息与打印语句也在这个日志文件中记录: 4.linux下所有的日志都在catalina.out中. 09-Dec-2021 10:45:16.836 信息 [main] org.apache.catalina.star
-
新装linux系统/etc/sysconfig目录下无iptables文件的解决方法
今天新装了Linux,希望去做些防火墙的策略,使用service iptables status查看防火墙的状态时,无任何反应,且使用service iptables start也启动不聊.后来发现在/etc/sysconfig目录下没有iptables文件(防火墙的策略一般都写在此文件中). 原因:在新安装的Linux系统中,防火墙默认是被禁掉的,一般也没有配置过任何防火墙的策略,所有不存在/etc/sysconfig/iptables文件. 解决方法: 在控制台使用iptables命令随便写