asp上传图片到服务器

<%@ Language=VBScript %>
<%
    Dim Upload, File, FileName, FileType, FileSize, FilePath
    Dim MaxFileSize, AllowedTypes, DestinationFolder

    ' 设置最大文件大小（例如：5MB）
    MaxFileSize = 5 * 1024 * 1024

    ' 允许的文件类型
    AllowedTypes = "image/jpeg,image/png,image/gif"

    ' 目标文件夹
    DestinationFolder = Server.MapPath("~/uploads/")

    ' 创建Upload对象
    Set Upload = Server.CreateObject("MSWC.Upload")
    Upload.MaxFileSize = MaxFileSize

    ' 检查是否有文件上传
    If Upload.Form("upload") <> "" Then
        ' 获取文件信息
        Set File = Upload.File("upload")
        FileName = File.FileName
        FileType = File.ContentType
        FileSize = File.Size

        ' 验证文件类型
        If InStr(AllowedTypes, FileType) = 0 Then
            Response.Write "Invalid file type."
            Exit Sub
        End If

        ' 保存文件到服务器
        FilePath = DestinationFolder & FileName
        File.SaveAs FilePath

        Response.Write "File uploaded successfully: " & FilePath
    Else
        Response.Write "No file uploaded."
    End If

    ' 清理对象
    Set File = Nothing
    Set Upload = Nothing
%>