純文本文件夾中的所有文件的ASP超鏈接

我最近有一個項目，無法找到任何簡單的代碼..希望這可以幫助別人！確保爲文件夾上的IIS應用程序帳戶設置NTFS權限。使用file：//用於文件http：//用於直接和其他用於相對鏈接。純文本文件夾中的所有文件的ASP超鏈接

<% 
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 
%>

來源

2013-04-05 Arron

良好的信息的任何代碼，但如果你張貼的問題會比較好，然後自己回答。你可以做到這一點，沒關係，其他人可能有額外的答案貢獻！ – Mogsdad 2013-04-05 23:38:11

「file：///」位是不是指向你自己的機器而不是服務器上的文件？ – John 2013-04-06 10:41:48

在我的例子中，他們正在從公司網絡上的共享驅動器提取文件，所以=）但是 – Arron 2013-04-07 04:01:08

我發現你的帖子，它對我真的很有用。我改了一下，想在這裏發佈，以防其他人覺得這很有用。由於我在本地設置IIS以及在服務器上設置IIS的方式有所不同，因此在上傳到服務器和本地運行時，必須取消/評論某些行。請記住，我是一個前端的傢伙，這是我第一次這樣寫的，所以請給反饋:)

<% 
    'Dim previewURL As String = "http://XXXXXX/"'Preview 
    Dim previewURL As String = ""'Local 

    'Dim site As String = "XXXXX"'Preview 
    Dim site As String = ""'Local 

    Dim currentDir As String = HttpContext.Current.Request.PhysicalApplicationPath.ToString()+site+"\web" 

    Dim di As New IO.DirectoryInfo(currentDir) 

    Dim diar1 As IO.FileInfo() = di.GetFiles("*.html")', IO.SearchOption.AllDirectories)'change this line if you want sub directories as well 

    Dim dra As IO.FileInfo 

    Response.Write("<h1>HTML Pages</h1>") 
    Response.Write("<ul>") 

    'list the names of all files in the specified directory 
    For Each dra In diar1 
     Response.Write("<li><a href="+previewURL+site+"/web/"+dra.Name+" target=_blank>"+dra.Name+"</a></li>") 
    Next 

    Response.Write("</ul>") 
%>

來源

2013-05-21 15:43:24 Wayferer

純文本文件夾中的所有文件的ASP超鏈接

回答

相關問題