小编Nic*_*ick的帖子

在Classic ASP中列出文件夹结构

我为我所工作的公司开发了一个ASP安全页面.有一个登陆(登录页面),一旦您通过身份验证,您将进入一个包含多个子页面链接的页面.每个子页面都有一个文件夹结构.例如:有一个会议纪要标题,然后在下面,缩进是引用包含信息的PDF的链接.可能有3或4个标题,文档链接在下面.

原始版本有一个PHP脚本,它运行并将从文件夹结构同步到服务器上的实时站点,该文件夹结构将被模仿到实际站点上.因此,如果我有一个名为Folder1的文件夹和名为test1 test2 test3的子文件夹,则实时网站会相应地显示它们.由于该站点现在是ASP而不是PHP .. PHP脚本不再起作用(因为PHP不能很好地与ASP一起使用).

我发现一个在线片段有点适用于我想要实现的目标(即文件夹/子文件夹/文件名称结构),但是我现在停留在如何链接文件以便在单击时打开它们.我一直在文件名中看到%25.我知道%20与空格相同,因为我处理的是包含空格的文件和文件夹名称,这似乎是我的问题.我尝试添加%20但空格变为"%2520".

如果您查看下面的代码,则会在底部显示一个名为"MapURL"的链接.当我试图找出%25来自何处时,我现在已将该链接注释掉了.任何人都有任何想法如何让链接工作?

这是片段.

dim path 
path = "PATH TO THE FOLDER ON THE SERVER"

ListFolderContents(path)

sub ListFolderContents(path)

 dim fs, folder, file, item, url
 set fs = CreateObject("Scripting.FileSystemObject")
 set folder = fs.GetFolder(path)

'Display the target folder and info.

 Response.Write("<ul><b>" & folder.Name & "</b>") '- " _
 '  & folder.Files.Count & " files, ")
 'if folder.SubFolders.Count > 0 then
 '  Response.Write(folder.SubFolders.Count & " directories, ")
 'end if
 'Response.Write(Round(folder.Size / 1024) & " KB total." _
 ' …
Run Code Online (Sandbox Code Playgroud)

asp-classic

5
推荐指数
2
解决办法
1万
查看次数

标签 统计

asp-classic ×1