CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 05 22:02:19

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par cool26

RE : CONNEXION SQL - CRYSTAL REPORT par simou12

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par ghuysmans99

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par cool26

RE : INTERNET EXPLOREUR 8,RESTREINTE DE L'EXECUTION DES SCRIPTS OU DES CONTRôLES ACTIVESX par ghuysmans99

+ de logiciels à télécharger

1 464 877 membres
369 nouveaux aujourd'hui
15 045 membres club

Trouver une ressource

Trouvez une ressource parmi 40 095 codes, 1 303 022 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum. Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

UPLOAD DE FICHIER EN PUR ASP SANS COMPOSANT SERVEUR

Information sur la source

Catégorie :Composants Classé sous : upload, fichier, envoyer Niveau : Initié Date de création : 22/08/2001 Vu / téléchargé: 35 936 / 87 052

Auteur : toxic_avanger

Site perso

Ecrire un message privé

Note :

8,50 / 10

Commentaire sur cette source (38)

Ajouter un commentaire et/ou une note

Description

Ce petit script vous permet de faire de l'upload de petits fichiers sur le serveur sans utiliser les composants du type SA File UP ou ASP Smart Upload.
Il est très simple d'utilisation et se compose de deux fichiers qui doivent se situer dans le même répertoire (c'est plus simple)

Source

Voir fichier ZIP joint

 Voir fichier ZIP joint

Conclusion

Les fichiers uploadés sont placés par défaut dans le même répertoire que celui où se trouvent les fichiers .asp et .inc .
Pour changer ça, vous devez modifier la méthode MapPath du fichier .asp
Par exemple, par défaut, vous aurez :
FilePath = Server.MapPath(".") & "\" & Fields("File1").FileName
Si vous souhaitez que votre fichier uploadé atterisse dans le répertoire "mes_fichiers", faîtes alors :
FilePath = Server.MapPath(".") & "\mes_fichiers\" & Fields("File1").FileName

Fichier Zip

Pour les "Membres Club", vous pouvez télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

upload.asp 703 octets
upload.inc9 410 octets

Télécharger le zip

Sources de la même categorie

CUSTOM USER CONTROL COLLECTION par ranouf

COMPACTER DU JAVASCRIPT par jesusonline

WEBCONTROL WYSIWYG POUR ASP.NET par Yxion

ANTIBOT par ghuysmans99

INCLURE UNE LIBRAIRIE par Warwick

Toutes les sources de la catégorie Composants

Sources en rapport avec celle ci

UPLOAD D'IMAGES VIA ADODB.STREAM ET SQL SERVER par Nicolas_kojack

CONVERTIR RAPIDEMENT UN FICHIER UPLOADÉ (IMAGE) ET OBTENIR L... par ObelixSuisse

TUTORIAL ASPSMARTUPLOAD (POUR AIDER CEUX QUI COMME MOI N'ONT... par ranouf

ASP.NET UPLOAD D'UN FICHIER DU PC CLIENT VERS VOTRE SITE par michelsto

UPLOAD DE FICHIERS EN ASP SANS COMPOSANT par lelouperre

Commentaires et avis

Commentaire de babitch le 31/01/2002 17:51:18

salut Vladam

Essais cette fonction
<script LANGUAGE="vbscript" RUNAT="Server">
    Function ParseForm(strFieldName)
     Set strFormData = CreateObject("Scripting.Dictionary")
     lngCount = -1

'Try to find the Field
     lngNamePos = instr(1,strDataWhole,"name=" & chr(34) & strFieldName & chr(34))

    'Parse through data in search of fields
     do while lngNamePos <> 0
        lngCount = lngCount + 1
        lngBeginFieldData = instr(lngNamePos,strDataWhole,vbcrlf & vbcrlf)+4
        lngEndFieldData = instr(lngBeginFieldData,strDataWhole,vbcrlf)
        strFormData.Add lngCount, mid(strDataWhole,lngBeginFieldData,lngEndFieldData-lngBeginFieldData)
     lngNamePos = instr(lngEndFieldData,strDataWhole,"name=" & chr(34) & strFieldName & chr(34))

     loop
     set ParseForm = strFormData
    end function

</script>

appel la fonction comme ceci du cote serveur bien sur

  ParseForm("le name de ton input").item(0)

a++

Commentaire de fabiano13 le 26/02/2002 14:49:59

Y a t'il quelqu'un d'assez compétent dans ce forum qui puisse me HELPER?
(Je suis novice en ASP)

L'upload fonctionne très bien !!!

j'aimerais insérer le nom de fichier uploadé directement dans une base de donnée ACCES lors de la transaction, mais je ne sais pas comment faire?

elle se nomme base.mdb, elle à une table :

Uploadimage

je souhaite l'insérer cette table qui se compose des champs suivant :

ID = N° auto
Image1 = texte
texte = texte

Bien sûr, c'est dans le champ image1 que je souhaite l'enregistrer !

Merci de votre aide....

Il faut que j'en termine avec ça !!!

je vous donne mon MAIL: fabiano13@caramail.com

Commentaire de fabiano13 le 27/02/2002 09:28:04

Visiblement il y a personne de compétent sur ce site. Merci quand même, NIx, pour ton site !

Commentaire de cyberfred le 02/05/2002 23:12:15

On essayant de comprendre les fonctions je me suis dis qu'il manquait qq chose
j'ai cherché sur google et j'ai trouvé l'exemple complet à l'adresse suivante :

http://www.dhyan.it/public/Uplo/dbupl.asp?S=1

Voici comment enregistrer dans une base

Créez une table "upload" de cette structure (ici avec access)

UploadID : NuméroAuto (clé primaire)
UploadDT : Date/heure
RemoteIP : Texte
ContentType : Texte
SourceFileName : Texte
DataSize : Entier long
Data : Objet OLE

Voici la fonction à ajouter : on l'appelle dans upload.asp apres le GetUpload comme ça : DBSaveUpload(Fields)

Function DBSaveUpload(Fields)
  dim RS
  Set RS = Server.CreateObject("ADODB.Recordset")
  RS.Open "Upload", Conn, 2, 2
  RS.AddNew
RS("UploadDT") = Now()
RS("RemoteIP") = Request.ServerVariables("REMOTE_ADDR")
RS("ContentType") = Fields("File1").ContentType
RS("SourceFileName") = Fields("File1").FileName
RS("DataSize") = Fields("File1").Value.Length
    If IncludeType=1 Then'For ScriptUtilities
      RS("Data").AppendChunk Fields("File1").Value.ByteArray
    Else'For PureASP upload - String is implemented as method.
      RS("Data").AppendChunk MultiByteToBinary(Fields("File1").Value.ByteArray)
    End If
  RS.Update
  RS.Close
  Conn.Close
End Function

et voila si vous ne voulez pas uploader à la racine mettez ces lignes en commentaire :

  'FilePath = Server.MapPath(".") & "" & Fields("File1").FileName
  'Fields("File1").Value.SaveAs FilePath

Pour ceux qui on eu des problemes d'acces refuse c'est que iis n'est pas en écriture

@+Cyberfred

Commentaire de cyberfred le 02/05/2002 23:12:15

Commentaire de rea1975 le 15/05/2002 09:36:00

Salut
j'ai essayé le script mais l'upload ne marche pas sur mon serveur, ca bloque méme le serveur, il me renvoi l'erreur comme quoi il y a trop d'utilisateurs.

Commentaire de caramounga75 le 23/01/2003 09:36:51

Salut,

Le script fonctionne très bien, mais j'ai toujours des problèmes pour lire le contenu de mes champs texte. J'ai essayé d'insérer à la fin du upload.inc le bout de code citer au dessus par BABITCH, mais il me renvoit une erreur du type "end attendu". Qunlq'un peut il m'aider en trouvant l'erreur ou en m'indiquant une nouvelle methode?
Merci

Commentaire de jcohen le 08/08/2003 12:07:18

Salut,
J'aimerai effectuer une verif avant d'écraser un éventuel fichier déjà existant dans le repertoire ou j'upload. Comment dois je procéder?
Faut-il inclure des instructions dans le fichier inc?
Merci d'avance

Commentaire de canocan le 22/11/2003 14:07:08

Salut a tous moi j'a un prob avec l'upload de fichier. Quand j'essai de uploader un fichier il bloque mon site et m'envoie la page d'erreur :
Impossible d'afficher la page
Un trop grand nombre d'utilisateurs essaient d'accéder au site Web en ce moment.

Est ce que quelqu'un peut m'aider ?

J'ai un serveur iis et c peut etre du a ça ?

merci

et maintenant je peut plus acceder sur le site il m'envoie tjs le m erreur!

@++

Commentaire de ilfospeed le 15/12/2003 13:42:19

"faire de l'upload de petits fichiers" certes... Maizencore ? C koi la limite de taille, SVP ?????????

Commentaire de gribou888 le 01/10/2004 18:17:51

Salut a tous,

très bien ce code, bravo, seurieusement après multimples esssais sur pas mal de sources,
rin ne marche correctement,celui-ci du premeir coup, alors bravo,

***ceux qui ralent eh ben qu'ils proposent aussi leurs codes puis on verra les critiques...

Commentaire de jhice le 07/10/2004 13:05:03

Bonjour,

Comment utiliser la limite de taille UploadSizeLimit ?

Quelle est l'unité ? octets, kilo-octets ?

Quelle syntaxe utiliser et où définir le UploadSizeLimit ?

Merci.

Commentaire de goldeagle le 30/11/2004 16:31:18

Bonjour à tous.

J'ai déjà essayé plusieurs scripts pour uploader des fichiers vers un serveur. Seulement, pas un ne fonctionne correctement.

Le serveur semble se bloquer. (serveur IIS v5.1 fournit avec windows XP)
J'ai aussi eu un message d'erreur comme quoi il a avait trop de connexion. Le comble vu que je suis le seul a tester l'upload en localhost!

Quelqu'un a-t-il trouvé une solution à ce problème?

Commentaire de triptop45 le 12/04/2005 08:26:54

Ouf, j'ai également rencontré LES MEMES problèmes dans la même config et je n'ai aucune response.
J'ai également testé sur mon reseau local et ca ne marche pas
Je n'ai aucune idée parcontre, j'ai viré mon firewall, celui d'XP, j'ai désactivé norton autoprotect mais rien ne marche pas ....

Commentaire de nicopoal le 21/07/2005 09:24:00

salut à tous, j'ai testé l'upload, ça marche très bien en test avec les fichiers, mai j'ai essayé d'integrer cet upload dan un projet asp et la ça marche plus je comprends pas pourquoi.
si quelqu'un à une idée...
Merci
++

Commentaire de ghuysmans99 le 03/02/2006 21:59:19

je te conseillerai les fichiers asp au lieu des fichiers inc pour les includes ...

sinon, n'importe qui sait lire les fichiers inc

Commentaire de touss le 18/04/2006 16:12:29

Bonjour

Voila, j'essaye de l'intégrer à mon site mais j'ai cette erreur suivante.
Erreur d'exécution Microsoft VBScript error '800a0046'
Permission refusée
/upload pur asp/upload.inc, line 263

La ligne 263, c'est ça:
Set TextStream = FS.CreateTextFile(FileName)

Je suis très débutant et la je ne vois pas ce qui ce passe!!!

Merci d'avance.

Commentaire de titi15031 le 23/05/2006 15:50:37

Bonjour,

J'aimerais faire en sorte qu'on puisse envoyer le fichier dans un sous-répertoire qu'on aurait définit en tapant le nom du sous-répertoire dans un textbox.
J'ai stocké le nom du sous-répertoire dans la variable "iDossier".Lorsque je compile, il me met l'erreur suivante :

Error Type:
Request object, ASP 0206 (0x80004005)
Cannot call BinaryRead after using Request.Form collection.
/fr/collaborateurs/formation/upload.inc, line 48

Voici une partie de mon code :
<input type="text" name="dossier">
<%
If request.form("dossier") <> "" Then
'si on a entrer un sous-répertoire
iDossier = request.form("dossier")
ElSE
'sinon le fichier va dans le sous-repertoire par défaut
iDossier = LAA
END IF

'Sauvegarde le fichier 'File1' sur le serveur dans le même répertoire que ce script
'Modifier le FilePath pour le claquer ailleurs
If Request.ServerVariables("REQUEST_METHOD") = "POST" Then 'Request method must be "POST" For get the fields
  Set Fields = GetUpload()
  FilePath = Server.MapPath(".") & "\metiers\" & iDossier & "\" & Fields("File1").FileName
  Fields("File1").Value.SaveAs FilePath
End If
%>

Comment puis-je résoudre cette erreur ou existe-t-il une autre solution?

Merci d'avance

Commentaire de nicky007 le 15/06/2006 16:36:59

Bonjour à tous, et merci encore pour ce code qui m'est vraiment utile. Pour ma part j'ai ajouter deux champ text au sein de ma table et j'aimerais pouvoir les alimenter avec les texte contenu dans deux input que j'ai rajouter dans le formulaire. Pourriez vous m'aider. Je bloque dessus depuis plusieurs heures.

Commentaire de babas3d le 11/08/2006 17:20:55

Code sources parfait avec un serveur IIS 5 sous Windows 2000 Server sans configuration spécifique ! merci

Commentaire de Anovil le 14/09/2006 11:46:58

Confronté au même problème que beaucoup d'entre vous, j'ai cherché à récupérer des champs text de mon form. Voilà la syntaxe qui fonctionne =>

Fields("nomfield").Value.String

Maintenant je cherche à récupérer la valeur d'un checkbox :/

Commentaire de Anovil le 14/09/2006 13:11:03

Bon bah j'ai craqué, la petite astuce crade, mais qui marche pour récupérer l'état du checkbox : un input type text caché (hidden) dans lequel en javascript j'écris l'état de mon checkbox et c'est cette valeur que je récupère apèrs le post, toujours avec Fields("nomfield").Value.String

document.monform.monhidden.value = document.monform.moncheckbox.checked;

Commentaire de Alexis35 le 03/01/2007 11:19:30

Fields("nomfield").Value.String
chez moi ca ne marche toujours pas!!!

il me dit type incompatible : Fields....
Quelqu'un saurait a quoi c'est du?

Commentaire de Alexis35 le 03/01/2007 11:27:13

En fait ce que je voudrais c'est dans mon input file le text que je recois , je voudrais verifier que l'extension est bien gif, don un truc du style

if right(Fields("le Name de mon input="file"").FileName.String ,3) <> "GIF" THEN

ou

if right(Fields("le Name de mon input="file"").value.String ,3) <> "GIF" THEN
bref je ne sais pas

Commentaire de ozmedia2 le 08/02/2007 17:19:38

Bonjour.

Merci Toxic_Avanger tu me sauves les c.......!

@+

Commentaire de thiosyiasar le 02/05/2007 12:25:29

Salut toxic_avanger

Bon code trés utile
Un p'tit 10 pour ca !

@+

Commentaire de Daft Dwarf le 18/07/2007 09:47:16

Nickel!!!
Et c'est tellement plus propre qu'aspSmart!!!

Merci beaucoup pour ce code!!!

Commentaire de ghuysmans99 le 21/07/2007 18:19:27

touss : IIS n'a pas les droits sur le répertoire de dest.

Commentaire de LeVlak le 27/11/2007 17:33:57 7/10

Merci pour le code, je le teste pour un projet de centralisation de documents (plate-forme d'échange)
Dans upload.inc, il est écrit "' 1. Uploader de petits fichiers sur le serveur (sauvegarde via les FileSystem object)". Quelle est la limitation?
Ce script fonctionne-t-il aussi avec Safari (sous Mac)?
Je redonne des nouvelles dès que j'ai effectué quelques tests.

Commentaire de ghuysmans99 le 27/11/2007 18:17:25

Normallement oui car cela se passe du côté serveur.

Commentaire de simonlartiste le 26/12/2007 14:42:36

bonjour,

je travaille sur une plate forme windows CE.NET 5.0 avec sql server 2005 compact edition et lorsque j essaie d uploader j obtiens l erreur suivante :
variable is undefined :'Getupload',

D'avance merci

Commentaire de caizinho le 29/01/2008 02:40:31

j'arrive pas à telecharger le zip.
je suis sur vista.
peux tu me l' envoyer par e-mail ou msn merci
pascal@caizinho.com

Commentaire de Cameron25B le 26/02/2008 11:34:04

ce script fontionne très bien mais j'aimerais uploader le fichier "file1" en changeant son nom. Fontion RENAME après upload, ... ?????
merci de l'aide
Michel

Commentaire de lisasp le 24/04/2008 19:04:39

Pour donner le nom que tu souhaites à ton fichier (en gardant la bonne extension), il suffit de remplacer dans upload.asp
la ligne
FilePath = Server.MapPath(".") & "\" & Fields("File1").FileName
par

nomFichier= "monNomFichier"
ext=Fields("File1").FileName
index=Instr(ext,".")
ext=Mid(ext,index)
FilePath = Server.MapPath(".") & "\" & nomFichier&ext

Commentaire de AXMIM le 21/05/2008 21:07:17

Bravo la source marche numéro 1.

J'ai néanmoins décelé un défaillence lorsque le formulaire contient une balise comme celle-ci : « <select name="LstUsager" multiple="multiple" ».

La méthode "SeparateFields" tente d'entrer, dans le vecteur "Fields", la clé "LstUsager" pour chaque valeur sélectionnée.

Résultat : Microsoft VBScript runtime error '800a01c9'

This key is already associated with an element of this collection

Commentaire de flolag le 09/06/2008 11:37:42

Merci pour cette source elle marche très bien.
Cependant il n'existerait pas une version avec plus de commentaire pour bien expliquer le fonctionnement complet car j'avoue que je ne comprend pas tout.

Commentaire de Passarinho44 le 19/06/2008 11:48:25

Bonjour,
J'ai une question : la source dans l'état où elle est au téléchargement est configurée pour envoyer le fichier vers un dossier d'un serveur ou une base de donnée?

Commentaire de ghuysmans99 le 19/06/2008 20:24:43 10/10

@Passarinho44 : vers un dossier

Ajouter un commentaire

Discussions en rapport avec ce code source dans le forum

Upload Nix [ par Clem ] Pui je utiliser ton upload pour mon site que je suis en train de faire sur la programmation (Vb,C++,Qb,ASP,Javascript,API,VRML) ?Et comment faire pour upload + verification [ par bebe.vodka ] salut!voila, en fait j'utilise le composant aspSmartUpload dans un programme pour l'upload de fichiers. je verifie aussi si mon fichier existe deja su Formulaire d'upload d'un fichier et du passage d'autre infos [ par Jerome ] Bonsoir,Je cherche à créer un formulaire avec plusieurs champs:Nom: champ textePrenom: champ textePhoto: image que l'utilisateur va chercher sur son d Vérifier la taille d'un fichier avant l'upload [ par Dura ] BonjourJ'ai un petit prob,Dans un formulaire classique, il y a un champ "image" = upload!Je vérifie tous les champs sauf la taille du fichier à upload envoyer un fichier attaché avec CDONTS [ par magicoliv ] Bonjour,je vous envoi ce message car je suis désepéré. J'ai configuré mon serveur IIS de telle sorte que j'arriv esans aucun problème à envoyer des ma pour nix à propos de upload 2.0 [ par bernard ] Salut Nix,Tout d'abord merci pour le code, je l'utilise actuellement pour uploader 1 fichier attaché depuis mon site dans le cadre d'un dépot de CV en upload [ par rico ] je monte un site avec une base de donnée access possedant un objet ole, 3 problèmes se posent à moi :1__ pouvoir réaliser un upload du fichier sélecti Vérification du type de la donnée [ par Psy ] slt à tous, voila mon pb : A partir d'un formulaire, le client m'upload un fichier mais j'aimerais verifier avant l'upload que le fichier est bien du Lister un répertoire sur un serveur [ par Nabel ] Bonjour, bonjour,Voilà le pb : ma page asp permet d'uploader des fichiers sur le serveur, mais qd j'upload un fichier qui a le même nom qu'un fichier envoyer des données de l'asp un fichier pdf [ par glopglop ] je voudrais que mes variable asp remplissent un formulaire pdf! Le probleme c'est que je sais que c'est faisable mais que malgres maintes recherches d