<%@ Page Language="VB" %>
<script runat="server">
Sub Button1_OnClick(sender As Object, e As EventArgs)
If Not IsNothing(File1.PostedFile) Then
Dim strFileName = System.IO.Path.GetFileName(File1.Value)
Me.lblText1.Text = strFileName & " Uploaded."
File1.PostedFile.SaveAs(Server.MapPath("Myfiles/"&strFileName))
End If
End Sub
</script>
<html>
<head>
</head>
<body>
<form runat="server" enctype="multipart/form-data">
<input id="File1" type="file" runat="server">
<input id="Button1" type="button" OnServerClick="Button1_OnClick" value="Button" runat="server" />
<hr />
<asp:Label id="lblText1" runat="server"></asp:Label>
</form>
</body>
</html>
VB.NET || 
ช่วยกันสนับสนุนรักษาเว็บไซต์ความรู้แห่งนี้ไว้ด้วยการสนับสนุน 
Load balance : Server 04
