Εκκίνηση της Visual Basic ή Visual Studio , στη συνέχεια, ανοίξτε τη φόρμα Web ASP ή έργου , στο οποίο μπορείτε θέλετε να συμπεριλάβετε πολλαπλών αρχείων κώδικα αποστολής . Εναλλακτικά , κάντε κλικ στο " File /New " για να δημιουργήσετε μια νέα φόρμα Web ASP ή έργου . 2
Εντοπίστε το " Toolbox" στη γραμμή εργαλείων . Αν το " Toolbox " δεν είναι ορατή , κάντε κλικ στο "Προβολή " επιλογή για το βάρδος μενού , στη συνέχεια, κάντε κλικ στην επιλογή "Προβολή Toolbox . "
Εικόνων 3
Κάντε κλικ στο " FileUpload " ελέγχου στο "Toolbox " ενότητα , στη συνέχεια, drag and drop το " FileUpload " ελέγχου στη φόρμα σας στο Web . Drop επιπλέον " FileUpload " ελέγχου στη φόρμα σας , όπως απαιτείται . Ο αριθμός των ελέγχων σύρετε στη φόρμα σας θα εξαρτηθεί από το πόσο πολλά μεμονωμένα αρχεία που θέλετε να επιτρέψετε στους χρήστες σας να ανεβάσετε σε μία συνεδρία . Η " FileUpload " ελέγχου επιτρέπει στους χρήστες να περιηγηθείτε σε αρχεία στο σκληρό δίσκο τους που επιθυμούν να ανεβάσετε σε ένα δικτυακό τόπο .
Η 4
Σύρετε ένα " κουμπί" έλεγχος από την "Toolbox ", τότε πέφτει πάνω φόρμα Web σας κάτω από το τελικό « FileUpload " ελέγχου. Επισημάνετε το κουμπί , πατήστε το πλήκτρο " F2 " και στη συνέχεια να μετονομάσετε το στοιχείο ελέγχου κουμπιού "Αποστολή " ή κάτι παρόμοιο . Το " κουμπί" έλεγχος επιτρέπει στους χρήστες να υποβάλουν τα αρχεία , αφού βρίσκονται τα αρχεία στο σκληρό δίσκο τους .
5
Κάντε διπλό κλικ στο νέο " Upload" ή παρόμοιο όνομα ελέγχου , στη συνέχεια, πληκτρολογήστε τον παρακάτω κώδικα στο το πεδίο χειρισμού συμβάντων :
" Προστατευόμενη Sub btnUpload_Click ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως EventArgs )
End Sub "
Η 6
Αντιγράψτε και επικολλήστε τον παρακάτω κώδικα στο σώμα του εντύπου Web :
" Προστατευόμενη Sub btnUpload_Click ( ByVal αποστολέα ως αντικείμενο, ByVal e Όπως EventArgs )
Δοκιμάστε
« Πάρτε το HttpFileCollection
Dim hfc Όπως HttpFileCollection = Request.Files
Για i As Integer = 0 Για να hfc.Count - 1
Dim hpf Όπως HttpPostedFile = hfc ( i )
Αν hpf.ContentLength > 0 τότε
hpf.SaveAs ( Server.MapPath ( " MyFiles " ) & " \\" & Path.GetFileName ( hpf.FileName ) )
End If
Επόμενη i
Catch ex Όπως Εξαίρεση
' Εισάγετε οποιοδήποτε κώδικα χειρισμού σφάλματος έθιμο εδώ
End Δοκιμάστε
End Sub "
Σελίδα 7
Αποθηκεύστε τη φόρμα ASP , στη συνέχεια, συνδεθείτε στον πίνακα ελέγχου Web hosting σας . Ανεβάστε τη φόρμα στο διακομιστή Web των Windows .
Η
εικόνων
Πνευματικά δικαιώματα © Γνώση Υπολογιστών Όλα τα δικαιώματα κατοχυρωμένα