asp文件上传下载源码数据库

<%@ Language=VBScript %>
<%
    If Request.Files.Count > 0 Then
        Dim uploadedFile
        Set uploadedFile = Request.Files("file")
        If Not uploadedFile Is Nothing Then
            Dim filePath
            filePath = Server.MapPath("~/uploads/") & uploadedFile.FileName
            uploadedFile.SaveAs filePath
            Response.Write "文件上传成功！"
        End If
    End If
%>
<form action="upload.asp" method="post" enctype="multipart/form-data">
    <input type="file" name="file">
    <input type="submit" value="上传">
</form>

CREATE TABLE uploaded_files (
    id INT IDENTITY(1,1) PRIMARY KEY,
    file_name NVARCHAR(255),
    file_path NVARCHAR(255),
    upload_date DATETIME DEFAULT GETDATE()
);