Upload Ảnh lên Server.

Hôm nay INTECH xin hướng dẫn các bạn sử dụng File Upload trong ASP.NET để upload file từ máy tính lên server (ở đây mình dùng local host)

Các bạn tạo 1 website mới, mang tên UploadAnh, sau đó làm theo các bước bên dưới:

Các bạn Click phải vào project-> New-> folder -> đặt tên cho Folder là Hinhanh:


Sau đó, các bạn thiết kế trang Upload ảnh như sau:


code upload ảnh các bạn làm như sau:

Code:

Private Function Load_file() As Boolean
        Load_file = True
        If FileHinh.FileName <> "" Then
            If IsPostBack Then
                'khai bao duong dan luu file
Dim pa As String = Server.MapPath("~/hinhanh/")
                Dim fileOk As Boolean = False
                'neu dieu khien filehinh co up file
If FileHinh.HasFile Then
                    Dim file As String
      file = System.IO.Path.GetExtension(FileHinh.FileName).ToLower()
                    Dim allowed As String() = {".jpg", ".gif"}
                    'kiem tra xem duoi mo rong cua file upload co thuoc tap tin duoi cho phep hay ko
                    For i As Integer = 0 To allowed.Length - 1
                        If file = allowed(i) Then
                            fileOk = True
                        End If
                    Next
If fileOk Then
                        Try
                            'thuc hien lua file upload vao duong dan
                    FileHinh.PostedFile.SaveAs(pa & FileHinh.FileName)
                    HINH.ImageUrl = "~/hinhanh/" & FileHinh.FileName
                    LB.text="Upload Thành Công"
                            'loi save file
                        Catch ex As Exception
                            lb.Text = "không thể save file"
                            Load_file = True
                        End Try
                    Else
                        lb.Text = "sai đường dẫn file"
                        Load_file = False
                    End If
                Else
                    lb.Text = "file không tìm thấy"
                    Load_file = False
                End If
            End If
        Else
            lb.Text = "chưa chuẩn file"
            Load_file = False
        End If
    End Function

Trong đó:
FileHinh: ID của Fileupload
Lb: ID của label thông báo
HINH: ID của 1 image

Code cho nút Upload;

Code:

Call Load_file()

Chạy thử trên trình duyệt, ta được kết quả:


Tắt trình duyêt và ngưng chương trình, ta nhấn nút refresh trong mục Solution để xem lại các file vừa upload;


Các bạn có thể áp dụng code này vào những chương trình upload file khác, ví dụ mp3, file pdf,...

Chúc Các bạn thành công.

Tài liệu từ trường ĐH Bà Rịa-Vũng Tàu