Fabrizio.tommasi.name

<%@ page language="VB" %>

<script runat="Server">
Private Sub Upload(Sender as Object, e as EventArgs)

If Len(Trim(File.Value)) = 0 Then
Messaggio.Text = "Sfoglia per caricare un file"

ElseIf File.PostedFile.ContentType <> "image/pjpeg" Then
Messaggio.Text = "Puoi caricare solo file JPEG"

ElseIf File.PostedFile.ContentLength > 100000 Then
Messaggio.Text = "Il file non può superare i 100 Kb"

Else
Dim s() As String = Split(File.Value, "\")
File.PostedFile.SaveAs(Server.MapPath("files/" & s(UBound(s))))
Messaggio.Text = "File caricato con successo"
End If

End Sub
</script>

<html>
<head>
<title>Upload di immagini JPG in ASP.NET</title>
</head>
<body>

<form id="Modulo" method="post" enctype="multipart/form-data" runat="server">
<input type="file" id="File" runat="server">
<asp:Button runat="server" Text="Upload" OnClick="Upload" />
<br><br>
<asp:label id="Messaggio" runat="Server" />
</form>

</body>
</html>