读取目录下的所有文件(包括子目录下的所有文件

在服务器开发中，我们经常需要处理遍历所有子文件夹及其内部文件的场景。下面这段ASP代码就能很好地完成这个任务。虽然这段代码目前只适用于指定文件夹的子文件夹和文件，但可以根据需要进行扩展以支持递归搜索。

创建一个文件系统对象，用于操作文件和文件夹。通过以下代码，我们创建一个名为FileSystem的对象：

```asp

set FileSystem=server.CreateObject("scripting.filesystemobject")

```

然后定义了一个变量`dbconn`用于后续的数据库操作（在此处并未给出具体实现细节）。接下来指定要处理的文件夹路径：

```asp

folderpath=server.MapPath("主要的文件夹路径") ' 请在此处替换为实际的文件夹路径

```

通过FileSystem对象获取指定文件夹的所有子文件夹，并用循环遍历每一个子文件夹：

```asp

set sfolder=Filesystem.GetFolder(folderpath).SubFolders

for each FolderItem in sfolder

```

对于每个子文件夹，再遍历其中的文件：

```asp

set Files=FolderItem.Files

for each FileItem in Files

```

对于每个文件，获取其完整路径并尝试打开它：

```asp

fname=server.MapPath("主要文件夹路径" & FolderItem.Name & "\" & FileItem.Name) ' 构建文件的完整路径

set File=FileSystem.OpenTextFile(fname, 1, false) ' 打开文本文件以供读取内容

```

在打开文件后，使用循环逐行读取文件内容并进行处理（此处以分割行并删除文件为例）：

```asp

while File.AtEndofStream <> True ' 当文件未读完时继续循环处理内容

record=split(File.Readline,"~") ' 按“~”分割读取的行内容到数组record中处理（这里可根据实际需要修改分隔符）

wend

File.close ' 关闭文件流操作后关闭文件句柄以释放资源

FileSystem.DeleteFile(fname) ' 删除处理过的文件（根据实际情况判断是否删除）

```

在处理完一个子文件夹中的所有文件后，继续下一个子文件夹的处理。这段代码虽然简单，但功能强大，能满足遍历服务器所有子文件夹和文件的实际需求。你可以根据需要进一步扩展或修改代码以满足特定的需求。代码执行完毕后调用`Cambrian`的渲染函数来展示结果：`cambrian.render('body')`。