下面是一个使用ASP显示网站目录的代码示例：
<%
' 获取当前网站目录路径
strPath = Server.MapPath(".")
' 创建文件系统对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
' 获取网站目录下的所有文件和文件夹
Set objFolder = objFSO.GetFolder(strPath)
Set colFiles = objFolder.Files
Set colFolders = objFolder.SubFolders
' 输出文件列表
Response.Write "<h2>文件列表：</h2>"
For Each objFile in colFiles
Response.Write "<p>" & objFile.Name & "</p>"
Next
' 输出文件夹列表
Response.Write "<h2>文件夹列表：</h2>"
For Each objFolder in colFolders
Response.Write "<p>" & objFolder.Name & "</p>"
Next
' 释放对象
Set colFiles = Nothing
Set colFolders = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
%>请将以上代码保存为一个ASP文件（例如 directory.asp），然后将其放置在您的网站目录中。运行此文件时，它将显示网站目录下的所有文件和文件夹。
在ASP中显示网站目录的代码示例如下：
<%
Dim fso, folder, file, files
Set fso = Server.CreateObject("Scripting.FileSystemObject")
' 指定网站根目录路径
Set folder = fso.GetFolder(Server.MapPath("/"))
' 获取根目录下的所有文件
Set files = folder.Files
Response.Write("<h2>网站目录：</h2>")
Response.Write("<ul>")
' 遍历文件，输出文件名
For Each file in files
Response.Write("<li>" & file.Name & "</li>")
Next
Response.Write("</ul>")
%>以上代码将输出网站根目录下的所有文件的文件名，以无序列表的形式显示在网页上。您可以根据需要对代码进行修改，比如添加其他信息或样式来美化页面。
发布者：luotuoemo，转转请注明出处：https://www.jintuiyun.com/140206.html
