<html>
<head>
<script language="VB" runat="server">
Sub Upload(Source As Object, e As EventArgs)
  If Not (myFile.PostedFile Is Nothing) Then
    Dim intFileLength as Integer
    Dim ImgFileNamePath as String
    Dim ImgFileName as String
    if myFile.PostedFile.ContentType <> "image/pjpeg" then
      lbResult.Text = "Tipo di file non valido"
    else
      if myFile.PostedFile.ContentLength > 50000 then
        lbResult.Text = "File troppo grande"
      else
        try
          ImgFileNamePath = myFile.PostedFile.FileName
          intFileLength = Instr(1, StrReverse(ImgFileNamePath), "\")
          ImgFileName = Mid(ImgFileNamePath, (Len(ImgFileNamePath)-intFileLength)+2)
          myFile.PostedFile.SaveAs("c:\wwwroot\sito\immagini\" & ImgFileName)
          lbResult.Text = "File salvato"
        catch ex As Exception
          lbResult.Text = "Errore nel salvataggio:<br>" & ex.Message
        end try
      End If
    End If
  End If
End Sub
</script>
</head>
<body>
<form name="Form1" runat="server">
<INPUT id="myFile" type="file" name="myFile" runat="server"><BR>
<INPUT id="Button1" type="button" value="Upload" name="Button1" runat="server" OnServerClick="Upload"><BR><BR>
<asp:Label ID="lbResult" Runat="server"></asp:Label>
</form>
</body>
</html>

A colpo d'occhio

Alcune delle sezioni più interessanti del sito

Script C#

Script C# per tutte le esigenze: database, sessioni, file, contatori, stringhe, date, e-mail, e tanto altro.
Manuale C#

Manuale completo di C# per principianti e non.

Script VB.Net

Script VB.Net Visual Basic .net: database, sessioni, file, contatori, stringhe, date, e-mail, e tanto altro ancora.
Manuale SQL

Manuale di SQL con particolare attenzione a T-SQL di Microsoft SQL Server

Seo

Tecniche di posizionamento indicizzazione e ottimizzazione dei siti web per nei motori di ricerca
Manuale CSS

Manuale completo sui CSS per principianti e non.