Untuk menciptakan sebuah download list pada website tentu saja terlebih dahulu admin web harus mengupload file-file yang dapat diunduh oleh pengguna/pengunjung.
Kita bisa menyediakan fasilitas upload file dengan menggunakan FileUpload kontrol yang terletak di ToolBox Sub Panel Standard.
Sebagai contoh kita buat design UI seperti di bawah ini.
HTML Design:
<%@ Page Language="VB" AutoEventWireup="false"
CodeFile="uploaddoc.aspx.vb" Inherits="uploaddoc" %>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head runat="server">
<title>Untitled Page</title>
</head>
<body>
<form id="form1" runat="server">
<div>
Upload Document:<br />
<br />
<asp:fileupload ID="Fileupload1" runat="server"></asp:fileupload>
<br />
<br />
<asp:Button ID="Button1" runat="server" Text="Upload" />
</div>
</form>
</body>
</html>
Code Behind (VB.NET):
Imports System.IO
Partial Class uploaddoc
Inherits System.Web.UI.Page
Protected Sub Button1_Click(ByVal sender As Object, _
ByVal e As System.EventArgs) Handles Button1.Click
'Untuk validasi agar ukuran file tidak terlalu besar
'(dalam bytes)
If Fileupload1.FileBytes.Length > 10000000 Then
Response.Write "ukuran file terlalu besar"
Exit Sub
End If
If Fileupload1.HasFile Then
Dim strFile As String
strFile = Path.Combine(Server.MapPath("~/doc"), Fileupload1.FileName)
If File.Exists(strFile) Then
File.Delete(strFile)
End If
Fileupload1.SaveAs(strFile)
End If
End Sub
End Class
Jika kita coba run, berikut tampilannya:
Klik Browse... untuk memilih file
Setelah file terpilih klik tombol Upload untuk memulai proses upload.
Refresh Solution explorer untuk mengecek apakah file sudah terupload ke folder tujuan.
Click here if you like this article.
0 Comments