UPLOAD DE FICHIER EN PUR ASP SANS COMPOSANT SERVEUR
vBtOM
-
23 août 2001 à 11:28
Isarien59 Messages postés 5 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 23 juillet 2008 - 27 avril 2011 à 17:59
Isarien59 Messages postés 5 Date d'inscription lundi 21 juillet 2008 Statut Membre Dernière intervention 23 juillet 2008 - 27 avril 2011 à 17:59
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8694-upload-de-fichier-en-pur-asp-sans-composant-serveur
https://codes-sources.commentcamarche.net/source/8694-upload-de-fichier-en-pur-asp-sans-composant-serveur
27 avril 2011 à 17:59
http://www.freeaspupload.net/freeaspupload/requirements.asp
27 avril 2011 à 17:58
Request object error 'ASP 0104 : 80004005'
Operation not Allowed
Ceci veint du fait que la limite de la taille maxi d'upload sur le serveur est a 200 ko (de base sur IIS). Il faut l'augmenter comme expliqué sur cette page :
Operation not Allowed upload fichier en asp
8 févr. 2010 à 17:05
pour etre clair j'aimerai bien savoir comment faire visualisé les images aprés leur transfer
Quelqu'un a une idée
Merci
7 févr. 2010 à 15:43
je trouve ce code top et march nikel
je désir si on peu avoir des information sur le fichier ajouté et de controlé l'extention voir seulement des images leur dimension et poid
merci
19 août 2009 à 12:55
19 juin 2008 à 20:24
19 juin 2008 à 11:48
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?
9 juin 2008 à 11:37
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.
21 mai 2008 à 21:07
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
24 avril 2008 à 19:04
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
26 févr. 2008 à 11:34
merci de l'aide
Michel
29 janv. 2008 à 02:40
je suis sur vista.
peux tu me l' envoyer par e-mail ou msn merci
pascal@caizinho.com
26 déc. 2007 à 14:42
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
27 nov. 2007 à 18:17
27 nov. 2007 à 17:33
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.
21 juil. 2007 à 18:19
18 juil. 2007 à 09:47
Et c'est tellement plus propre qu'aspSmart!!!
Merci beaucoup pour ce code!!!
2 mai 2007 à 12:25
Bon code trés utile
Un p'tit 10 pour ca !
@+
8 févr. 2007 à 17:19
Merci Toxic_Avanger tu me sauves les c.......!
@+
3 janv. 2007 à 11:27
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
3 janv. 2007 à 11:19
chez moi ca ne marche toujours pas!!!
il me dit type incompatible : Fields....
Quelqu'un saurait a quoi c'est du?
14 sept. 2006 à 13:11
document.monform.monhidden.value = document.monform.moncheckbox.checked;
14 sept. 2006 à 11:46
Fields("nomfield").Value.String
Maintenant je cherche à récupérer la valeur d'un checkbox :/
11 août 2006 à 17:20
15 juin 2006 à 16:36
23 mai 2006 à 15:50
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 :
<%
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
18 avril 2006 à 16:12
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.
3 févr. 2006 à 21:59
sinon, n'importe qui sait lire les fichiers inc
21 juil. 2005 à 09:24
si quelqu'un à une idée...
Merci
++
12 avril 2005 à 08:26
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 ....
30 nov. 2004 à 16:31
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?
7 oct. 2004 à 13:05
Comment utiliser la limite de taille UploadSizeLimit ?
Quelle est l'unité ? octets, kilo-octets ?
Quelle syntaxe utiliser et où définir le UploadSizeLimit ?
Merci.
1 oct. 2004 à 18:17
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...
15 déc. 2003 à 13:42
22 nov. 2003 à 14:07
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!
@++
8 août 2003 à 12:07
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
23 janv. 2003 à 09:36
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
15 mai 2002 à 09:36
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.
2 mai 2002 à 23:12
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
2 mai 2002 à 23:12
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
27 févr. 2002 à 09:28
26 févr. 2002 à 14:49
(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
31 janv. 2002 à 17:51
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++
3 déc. 2001 à 21:47
J'ai utilisé ton Upload, qui est très bien du reste, j'ai juste un Problème en fait !
Comment puis-je récupérer les champs texte de mon formulaire s'il te plait ?
J'ai essayé Fields("monchamp").value mais ca marche pas :(
Tu peux me donner la solution ?
Vladam
15 oct. 2001 à 15:18
<%
Dim Contenu, TailleContenu, ContenuAscii, X, Y, Z, Position
' ---------------------------
Contenu = Request.BinaryRead(Request.TotalBytes)
TailleContenu = Request.TotalBytes
' Grâce à la méthode BinaryRead on lit la totalité du post en mode binaire que l'on place dans une variable Contenu
' La propriété TotalBytes nous Indique le nombre total des octets envoyés par le client dans le corps du message de requête.
' -------------------
ToutOk = 0
' ToutOk est une Variable Test (si tout est Ok, elle prend la valeur 1 sinon elle reste à 0
' -------------------
PosDebutFic=0
' PosDebutFic représente la position de l'octet où se trouve le début du Nom du fichier transmis
' -------------------
PosFinFic=0
' PosFinFic représente la position de l'octet où se trouve la fin du Nom du fichier transmis
' -------------------
PosDebutCont=0
' PosDebutCont représente la position de l'octet où se trouve le début du Content-Type du fichier
' -------------------
PosFinCont=0
' PosFinCont représente la position de l'octet où se trouve la fin du Content-Type du fichier
' -------------------
PosDebutFic2=0
' PosDebutFic2 représente la position de l'octet où se trouve le début du Contenu du fichier
' -------------------
PosFinFic2=0
' PosFinFic2 représente la position de l'octet où se trouve la fin du Contenu du fichier
X = 0
Y = 1
Position = 1
' -------------
' En premier lieu, on recherche la position du terme filename="
' Pour ce faire, on calcul le nombre d'octet (LimitBin) du premier élément jusqu'à filename=" (on effectue une boucle jusqu'au nombre d'octets correspondant au terme filename=")
LimitASCII = "filename=" & chr(34)
LimitBin=""
for Z = 1 to Len(LimitASCII)
LimitBin = LimitBin & chrB(ASC(Mid(LimitASCII, Z, 1)))
next
' -------------------
' On recherche la position de l'octet de la chaîne Contenu jusqu'à LimitBin
' On utilise la fonction InStrB qui est disponible pour être utilisée avec les données de type octet contenues dans une chaîne. Au lieu de renvoyer la position du caractère de la première occurrence d'une chaîne à l'intérieur d'une autre (fonction Instrv), la fonction InStrB renvoie la position de l'octet.
PosDebutFic = InstrB(1, Contenu, LimitBin)
' -------------------
' On lui ajoute ensuite la longueur du terme filename=" ce qui nous permet d'avoir la position de début du nom du fichier (PosDebutFic)
if PosDebutFic <> 0 then
PosDebutFic = PosDebutFic + LenB(LimitBin)
end if
' -------------------
' En premier lieu, on recherche la position du terme Content-Type: d'une façon similaire à notre recherche pour le terme filename="
LimitASCII = "Content-Type:"
LimitBin=""
For Z = 1 to Len(LimitASCII)
LimitBin = LimitBin & chrB(ASC(Mid(LimitASCII, Z, 1)))
next
PosDebutCont = InstrB(1, Contenu, LimitBin)
if PosDebutCont <> 0 then
' -------------------
' On trouve la position de la fin du nom du fichier (PosFinFic) à partir de la position du début du terme Content-Type: à laquelle on retire trois octets (un espace, une " et la première lettre du terme)
PosFinFic = PosDebutCont - 3
' -------------------
' On ajoute à PosDebutCont la longueur du terme Content-Type: , ce qui nous permet d'avoir la position de début du Content-Type (PosDebutCont)
PosDebutCont = PosDebutCont + LenB(LimitBin)
end if
' -------------------
' On en déduit le nombre de caractères composant le nom du fichier en effectuant une soustraction
NomFichier = MidB(Contenu, PosDebutFic , (PosFinFic - PosDebutFic))
' -------------------
' Nous n'avons plus qu'à traduire en texte grâce à la fonction ASCB et trouver ainsi le nom du fichier (NomFichier)
ContenuAscii = ""
for Z = 1 to LenB(NomFichier)
ContenuAscii = ContenuAscii & chr(ASCB(MidB(NomFichier, Z, 1)))
next
NomFichier = ContenuAscii
' -------------------
' On cherche la position de début du contenu du fichier en sautant les blancs
PosFinCont = InstrB(PosDebutCont, Contenu, chrB(13))
if PosFinCont <> 0 then
PosDebutFic2 = PosFinCont + 4
end if
' -------------------
' On recherche la position de fin du contenu du fichier
LimitASCII = "----"
LimitBin=""
for Z = 1 to Len(LimitASCII)
LimitBin = LimitBin & chrB(ASC(Mid(LimitASCII, Z, 1)))
next
PosFinFic2 = InstrB(PosDebutFic2, Contenu, LimitBin)
' -------------------
' Si la position de fin du contenu du fichier n'est pas 0 alors tout est OK
if PosFinFic2 <> 0 then
ToutOk = 1
end if
' -------------------
' On place le contenu binaire du fichier transmis dans la variable DataFichier
DataFichier = MidB(Contenu, PosDebutFic2 , (PosFinFic2 - PosDebutFic2))
' -------------------
' Si tout est ok, on écrit dans un fichier à la racine du serveur en plaçant d'abord dans une variable NouveauFic le chemin complet du fichier à écrire.
If ToutOk = 1 then
Position = InstrRev(NomFichier, "")
NomFichierCourt = right(NomFichier, (Len(NomFichier) - Position))
NomFichierCourt="simoi.jpg"
NouveauFic = Server.MapPath("") & "" & NomFichierCourt
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
Set Out=FileObject.CreateTextFile(NouveauFic, true)
For I = 1 to LenB(DataFichier)
Out.Write chr(AscB(MidB(DataFichier,I,1)))
Next
Out.close
Set Out=nothing
end if
%>
ce que tu fais pour changer le nom de ton fivheir c renommer "NomFichierCourt"
exemple NomFichierCourt="session" & day(date)& month(date)
15 oct. 2001 à 11:17
12 sept. 2001 à 10:46
Une question qui peut être intéressante pour d'autre :
je souhaite renommer le fichier uploader sous la forme d'un code de fichier, avec date et extension.
Pour être plus précis, je veux que mon fichier "bidule.pdf" soit uploader sous le nom "session1109.pdf". Je n'arrive pas à faire qu'il soit renommé. Quelqu'un a t'il une idée ?
Merci d'avance
5 sept. 2001 à 14:00
l'upload fonctionne parfaitement.
j'aimerais inserer les noms de fichier uploadé directement dans ma base de donnée lors de la transaction, mais je ne sais pas comment faire?
elle se nomme MIGC.mdb, elle à trois table :
-ProdMIGC
-Uploadbdn
-Admin
je souhaite l'inserer dans la table "Uploadbdn" qui se compose des champs suivant :
ID = N° auto
Image1 = texte
Image2 = texte
Zipfile = texte
c'est dans l'un de ces champs que je souhaite l'enregistrer (selon l'upload réalisé, soit trois pages, une page image1.asp une page image2.asp et une page zipfile.asp
Merci de votre aide....
j'en peux plus....
26 août 2001 à 08:31
23 août 2001 à 11:28
Nix il a déjà fait 2 méthodes d'Upload sns composant... ;)