(vb.net)怎样缩小上传图片的大小并重命名?

[superregon]

请问利用上传控件上传图片，如何使上传的图片分为一张原图和另一张缩小图，放在不同的目录。并改名
现在的代码只能实现最基本的图片上传
FileUploadpic.PostedFile.SaveAs(Server.MapPath("~\uploadpic\" & _FileUploadpic.FileName))

[exy337]

做C#的.帮顶上.

[shadowjl]

Dim image, anewimage As System.Drawing.Image
        Dim width, height, newwidth, newheight As Integer
        Dim callb As System.Drawing.Image.GetThumbnailImageAbort
        FileUp.PostedFile.SaveAs(Server.MapPath(".") & "/images/" & filename & ".jpg")
        '生成缩略图 
        image = System.Drawing.Image.FromFile(Server.MapPath(".") & "/images/" + filename + ".jpg")
        width = image.Width
        height = image.Height
        'If width > height Then
        '    newwidth = 250
        '    newheight = image.Height / image.Width * newwidth
        'Else
        '    newheight = 250
        '    newwidth = image.Width / image.Height * newheight
        'End If
        ''固定大小
        newheight = 200
        newwidth = 200
        Response.Write("id=" + CStr(ID) + "width=" + CStr(width) + ";height=" + CStr(height) + " ")
        Response.Write("newwidth=" + CStr(newwidth) + ";newheight=" + CStr(newheight) + "<br>")
        anewimage = image.GetThumbnailImage(newwidth, newheight, callb, New System.IntPtr)
        anewimage.Save(Server.MapPath(".") & "/smallpic/" + filename + ".jpg")
        image.Dispose()