Tạo file upload với VB

Upload file là một tính năng phổ biến thường được người dùng sử dụng để upload tài liệu lên các ứng dụng dựa trên máy chủ. Đây là phần tất yếu trong nhiều ứng dụng từ cơ bản đến phức tạp hơn. Trong bài này, tôi sẽ hướng dẫn một cách đơn giản để thêm tính năng Upload File vào các ứng dụng ASP.NET và được tạo trong VB.NET. Thông qua mã ví dụ trong VB.NET của tài liệu này, bạn có thể tạo một hàm tương tự với C# (nếu đó là ngôn ngữ mà bạn thường dùng) bằng...
Nội dung trích xuất từ tài liệu:
Tạo file upload với VBTạo file upload với VB.NETUpload file là một tính năng phổ biến thường được người dùng sử dụng đểupload tài liệu lên các ứng dụng dựa trên máy chủ. Đây là phần tất yếu trongnhiều ứng dụng từ cơ bản đến phức tạp hơn. Trong bài này, tôi sẽ hướng dẫnmột cách đơn giản để thêm tính năng Upload File vào các ứng dụng ASP.NET và đượctạo trong VB.NET. Thông qua mã ví dụ trong VB.NET của tài liệu này, bạn có thể tạomột hàm tương tự với C# (nếu đó là ngôn ngữ mà bạn thường dùng) bằng cách thayđổi một chút trong code.Tùy thuộc vào các ứng dụng khác nhau mà người dùng sẽ có nhiều lựa chọn khác nhautrên website. Một số hệ thống như hệ thống quản lý tài liệu, hệ thống quản lý nộidung, hệ thống quản lý yêu cầu… sẽ cho phép người dùng upload các tài liệu khácnhau.Trong ví dụ của bài này, bạn sẽ phải tạo một ứng dụng web ASP.NET đơn giản đểcho phép upload một file lên máy chủ.Mở Visual Studio.Net và tạo một Project mới với các thiết lập sau: • Project Type: Visual C# Projects • Templates: ASP.NET Web Application • Location: http://localhost/FileUploadTrên web form:1. Kích vào Toolbox, chọn phần HTML, tìm đến phần điều khiển File Field và kéo thảnó lên trên form.2. Kích chuột phải lên phần điều khiển và thiết lập Run as Server Control.3. Thay đổi thuộc tính Name của điều khiển thành “File1”.4. Lại vào Toolbox, chọn phần Web Forms, tìm một Button, và kéo thả nó lên trênform.5. Thiết lập thuộc tính Text thành “Upload” và ID thành cmdUpload.Màn hình sẽ hiển thị như sau:Thêm đoạn mã sau vào phần định nghĩa form của file .aspx:encType=multipart/form-dataVà kết quả là toàn bộ thẻ form sẽ như sau: method=post encType=multipart/form-data runat=server>Thêm đoạn mã sau vào phần mô tả của file .vb:Dim sFileDir As String = C:Dim lMaxFileSize Long = 4096Hãy nhớ rằng giá trị trên sẽ có thể được chỉnh sửa tùy thuộc vào ứng dụng bạn dùng.Bạn cũng có thể tạo cho chúng động và ứng dụng sẽ đọc các giá trị này từ một cơ sởdữ liệu hoặc từ một file XML.Thêm đoạn mã sau vào phần trên cùng của trang .vb:Imports System.IOThêm vào trang mã .vb thủ tục sau:Private Sub DeleteFile(ByVal strFileName As String) If strFileName.Trim().Length > 0 Then Dim fi As New FileInfo(strFileName) If (fi.Exists) Then if file exists, delete it fi.Delete() End If End If End SubThêm đoạn mã sau vào file .vb:Private Sub cmdUpload_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles cmdUpload.Click check that the file has been selected and its a valid file If (Not File1.PostedFile Is Nothing) _ And (File1.PostedFile.ContentLength > 0) Then determine file name Dim sFileName As String = _ System.IO.Path.GetFileName(File1.PostedFile.FileName) Try If File1.PostedFile.ContentLength Kích vào Upload. Bạn sẽ nhận được một thông báo hiển thị ở phía trên:Bạn nên kiểm tra lại xem file đã copy tới thư mục được định nghĩa trong mã code haychưa.Cách làm việcGiá trị sFileDir và lMaxFileSize được viết mã cố định ở phía trên thay vì có thể đượcgọi từ cơ sở dữ liệu hoặc file cấu hình XML. sFileDir chỉ định rõ vị trí trên máy chủđể file upload có thể được lưu vào. lMaxFileSize chỉ định dung lượng file tối đa choviệc upload.Thủ tục DeleteFile được sử dụng để xóa file đã được copy lên máy chủ. Như mộtphần của quá trình cleanup thông thường, sau khi file upload đã xác định được vị trí,file sẽ được đưa vào cơ sở dữ liệu hoặc vào vị trí nào đó trên máy chủ tùy thuộc vàocác nhu cầu của ứng dụng. Trong ví dụ này, không nên copy file tới vị trí khác bởi vìbạn không thể gọi thủ tục này trừ khi có lỗi xuất hiện và cần chuyển file đó đi.DeleteFile có thể được gọi sau khi file đã được chuyển tới cơ sở dữ liệu hoặc tới vị tríkhác nhằm dọn đi một cách có chủ đích các file dư thừa. Nó chấp nhận một tên đầyđủ (tên thư mục và tên file) như một đối số và cần xác minh lại rằng file đó đang thựcsự tồn tại và độ dài của đối số là lớn hơn 0. Sau đó, nó sẽ thử xóa file bằng sử dụngđối tượng FileInfo.Khi người dùng kích vào cmdUpload, trước tiên bạn phải kiểm tra xem file đã tồn tạichưa. Nếu file đã tồn tại, bạn quyết định tên file mà không cần thư mục (thuộc tínhFile1.PostedFile.FileName lưu trữ vị trí và tên của file trên máy khách) bằng sử dụngSystem.IO.Path.GetFileName. Sau đó bạn sẽ phải xác minh rằng dung lượng của filekhông lớn hơn dung lượng lớn nhất được cho phép. Sau đó, bạn lưu file đó vào vị tríđược chỉ định trước trên máy chủ bằng phương thức File1.PostedFile.SaveAs và ngẫunhiên đặt thư mục và tên file lên nó. Khi file được lưu lại, bạn hãy đưa ra thông báoxác nhận với người dùng rằng file đã được upload thành công. Nếu có một lỗi xuấthiện, bạn phải xóa file và hiển thị một thông báo lỗi trong nhãn lblMessage.Lưu ý: Khi các file đang upload, hãy nhớ rằng ASP.NET giới hạn dung lượng file choquá trình upload là ...