asp文件管理代码

ASP（Active Server Pages）是一种动态网页技术，用于创建交互式的Web应用程序。在ASP中，可以使用VBScript等脚本语言来实现对文件的管理。

以下是一个简单的ASP文件管理代码示例，可以实现列出指定目录下的所有文件和文件夹，并支持上传和删除文件：

<%@ Language=VBScript %>
<%
' 定义要管理的目录
Const FolderPath = "D:\MyFiles\"

' 列出目录下的文件和文件夹
Set fs = Server.CreateObject("Scripting.FileSystemObject")
Set folder = fs.GetFolder(FolderPath)
For Each subfolder In folder.SubFolders
    Response.Write "<a href=""" & subfolder.Path & """>" & subfolder.Name & "</a><br>"
Next
For Each file In folder.Files
    Response.Write "<a href=""" & file.Path & """>" & file.Name & "</a> (" & FormatNumber(file.Size / 1024, 2) & " KB)<br>"
Next

' 处理上传文件请求
If Request.Form("action") = "upload" Then
    Set uploadFile = Request.Files("file")
    If Not uploadFile Is Nothing Then
        fileName = uploadFile.FileName
        filePath = FolderPath & fileName
        If fs.FileExists(filePath) Then
            Response.Write "文件已经存在！<br>"
        Else
            uploadFile.SaveAs filePath
            Response.Write "文件上传成功！<br>"
        End If
    End If
End If

' 处理删除文件请求
If Request.QueryString("action") = "delete" Then
    fileName = Request.QueryString("file")
    filePath = FolderPath & fileName
    If fs.FileExists(filePath) Then
        fs.DeleteFile filePath
        Response.Write "文件删除成功！<br>"
    Else
        Response.Write "文件不存在！<br>"
    End If
End If
%>

<form method="post" enctype="multipart/form-data">
    <input type="file" name="file" /><br>
    <input type="hidden" name="action" value="upload" />
    <input type="submit" value="上传文件" />
</form>

<% ' 输出删除链接
For Each file In folder.Files
    Response.Write "<a href=""?action=delete&file=" & file.Name & """>删除 " & file.Name & "</a><br>"
Next %>

注意：上述代码仅供参考，实际应用中需要根据具体情况进行修改和完善。另外，ASP已经不再被微软推荐使用，建议使用更加现代化的技术如ASP.NET或者Node.js。