Uploaden

Auteur: Abbas - 07 november 2006 - 00:22 - Gekeurd door: Wijnand - Hits: 4471 - Aantal punten: (0 stemmen)

Met dit script kan je (in dit geval) afbeeldingen van het type jpg of gif uploaden.
Je kan het ook gebruiken om andere bestanden te uploaden, je hoeft dan enkel het script aan te passen aan het type en de toegestane grootte van het bestand...
Hopelijk is dit een nuttig script...

Code:

vbnet code - Bekijk de code zonder highlighting - Klap code in

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.IO" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<script runat="server">

    Sub upload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verzend.Click
        
        If bestand.HasFile = False Then
            Response.Write("U hebt geen bestand geselecteerd")
        Else
            Dim type As String = bestand.PostedFile.ContentType
            
            If type = "image/pjpeg" Or type = "image/gif" Then 
                'andere types kunnen zijn "text/plain", "application/msword", "image/x-png" 
                Dim lengte As Integer = bestand.PostedFile.ContentLength
                
                If lengte > 30000 Then
                    melding.Text = "Het bestand is te groot"
                Else
                    Dim pad As String = "C:\" 
                    'online - locatie nog aanpassen, hier upload hij een bestand naar de C
                    Dim naam As String = Path.GetFileName(bestand.PostedFile.FileName)
                    
                    Try
                        bestand.PostedFile.SaveAs(pad & naam) 'proberen bestand te uploaden
                        melding.Text = "Het bestand " & naam & " werd succesvol geüpload"
                    
                    Catch ex As Exception 'foutmelding indien niet gelukt
                        melding.Text = "Het uploaden van " & naam & " is mislukt"
                    
                    End Try
                End If
            Else
                melding.Text = "Het bestand moet van het type .jpg of .gif zijn"
            End If
        End If
    End Sub
    
</script>

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Upload Form</title>
</head>
<body>
    <form id="form1" runat="server" enctype="multipart/form-data">
    <div>
    <center>
    <br /><br />
    Selecteer een bestand <asp:FileUpload ID="bestand" runat="server" />
    <asp:Button ID="verzend" runat="server" Text="Uploaden" />
    <br /><br />
    <asp:Label ID="melding" runat="server" />
    </center>
    </div>
    </form>
</body>
</html>

<%@ Page Language="VB" Debug="true" %>
<%@ Import Namespace="System.IO" %>
 
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
 
<script runat="server">
 
    Sub upload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles verzend.Click
 
        If bestand.HasFile = False Then
            Response.Write("U hebt geen bestand geselecteerd")
        Else
            Dim type As String = bestand.PostedFile.ContentType
 
            If type = "image/pjpeg" Or type = "image/gif" Then 
                'andere types kunnen zijn "text/plain", "application/msword", "image/x-png" 
                Dim lengte As Integer = bestand.PostedFile.ContentLength
 
                If lengte > 30000 Then
                    melding.Text = "Het bestand is te groot"
                Else
                    Dim pad As String = "C:\" 
                    'online - locatie nog aanpassen, hier upload hij een bestand naar de C
                    Dim naam As String = Path.GetFileName(bestand.PostedFile.FileName)
 
                    Try
                        bestand.PostedFile.SaveAs(pad & naam) 'proberen bestand te uploaden
                        melding.Text = "Het bestand " & naam & " werd succesvol ge�pload"
 
                    Catch ex As Exception 'foutmelding indien niet gelukt
                        melding.Text = "Het uploaden van " & naam & " is mislukt"
 
                    End Try
                End If
            Else
                melding.Text = "Het bestand moet van het type .jpg of .gif zijn"
            End If
        End If
    End Sub
 
</script>
 
<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>Upload Form</title>
</head>
<body>
    <form id="form1" runat="server" enctype="multipart/form-data">
    <div>
    <center>
    <br /><br />
    Selecteer een bestand <asp:FileUpload ID="bestand" runat="server" />
    <asp:Button ID="verzend" runat="server" Text="Uploaden" />
    <br /><br />
    <asp:Label ID="melding" runat="server" />
    </center>
    </div>
    </form>
</body>
</html>

Download code (.txt)

Stemmen

Niet ingelogd.

Reacties

Post een reactie

Geen reacties (0)