File 文件夹中所有文件的纯ASP超链接

我最近有一个项目，在任何地方都找不到简单的代码。。希望这对别人有帮助！ 确保为文件夹上的IIS应用程序帐户设置NTFS权限。使用file://作为文件http://作为直接链接，使用others作为相对链接

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("C:\Path")

for each x in fo.files
Response.Write("<a href=file:///" &x & ">" & x & "</a>" & "</br>")
next

set fo=nothing
set fs=nothing
%> 

---

我找到了你的帖子，它对我非常有用。我把它改了一点，想把它贴在这里，以防其他人也觉得这很有用。由于本地设置IIS的方式和在服务器上设置IIS的方式不同，因此在上载到服务器与在本地运行时，我必须取消/注释一些行。请记住，我是一个前端人员，这是我第一次编写这样的代码，所以请给出反馈：）

---

我找到了你的帖子，它对我真的很有用。我把它改了一点，想把它贴在这里，以防其他人也觉得这很有用。由于本地设置IIS的方式和在服务器上设置IIS的方式不同，因此在上载到服务器与在本地运行时，我必须取消/注释一些行。请记住，我是一个前端人员，这是我第一次编写这样的代码，所以请给出反馈：）

为此提供另一种解决方案。

在某些情况下，有些人可能会被绑定到文件的明确位置，但不想处理网站链接不正确的问题

本质上，我们迭代给定目录中的所有文件，然后使用
GetFileName（）
切掉整个目录。然后，我们利用
href
中的根
/
指向我们想要的文件。用户可以从那里下载他们需要的东西

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("C:\Folder0\Folder1\Folder2\main\reports\archive")

for each x in fo.files
        x = fs.GetFileName(x)
        Response.Write("<a href=/main/reports/archive/" & x & " target=_blank>" & x & "</a>" & "</br></br>")
next

set fo=nothing
set fs=nothing
%>


提供了另一种解决方案。

在某些情况下，有些人可能会被绑定到文件的明确位置，但不想处理网站链接不正确的问题

本质上，我们迭代给定目录中的所有文件，然后使用
GetFileName（）
切掉整个目录。然后，我们利用
href
中的根
/
指向我们想要的文件。用户可以从那里下载他们需要的东西

<%
dim fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("C:\Folder0\Folder1\Folder2\main\reports\archive")

for each x in fo.files
        x = fs.GetFileName(x)
        Response.Write("<a href=/main/reports/archive/" & x & " target=_blank>" & x & "</a>" & "</br></br>")
next

set fo=nothing
set fs=nothing
%>



很好的信息，但是如果你发布一个问题，然后自己回答会更好。你可以这样做，没关系，其他人可能会有更多的答案！“file://”位不是指向您自己的计算机而不是服务器上的文件吗？在我的示例中，他们正在从公司网络上的共享驱动器中提取文件，所以=）但是信息很好，但是如果您发布一个问题，然后自己回答会更好。你可以这样做，没关系，其他人可能会有更多的答案！“file://”位不是指向您自己的计算机而不是服务器上的文件吗？在我的示例中，它们是从公司网络上的共享驱动器中提取文件，所以=），但是是的