1. Accueil
  2. Tous les snippets
  3. Snippets ASP / ASP.NET
  4. Code upload court et fait maison (fonctionne, testé in real)

Code upload court et fait maison (fonctionne, testé in real)

Soyez le premier à donner votre avis sur cette source.

Snippet vu 17 527 fois - Téléchargée 34 fois

Commenter

Contenu du snippet

Le titre explique bien il me semble en quoi consiste cet amas de caractère ci-bas :

;)

Source / Exemple : 


TailleMax=50000
MonFichier="test.jpg"
UrlSuivante="page.asp"

	taille=Request.TotalBytes

	if taille<TailleMax then
		binfich = Request.BinaryRead(taille)
		tmp=""
		for i=1 to LenB(binfich)
			tmp = tmp & chr(ascb(midb(binfich, i, 1)))
			if tmp=left("Content-Type: ",len(tmp)) then
				if tmp="Content-Type: " then exit for
			else
				tmp=""
			end if
		next

		tmp=""
		ascfich=chr(13) & chr(10) & chr(13) & chr(10)
		for taille=i+1 to lenb(binfich)
			tmp = tmp & chr(ascb(midb(binfich,taille,1)))
			if tmp=left(ascfich,len(tmp)) then
				if tmp=ascfich then exit for
			else
				tmp=""
			end if
		next

		ascfich=""
		for i=taille+1 to lenb(binfich)
			ascfich = ascfich & chr(ascb(midb(binfich,i,1)))
		next

		ascfich=left(ascfich,instrrev(ascfich,chr(13) & chr(10),len(ascfich)-3)-1)

		if len(ascfich)<>0 then
			set objf=server.createobject("scripting.filesystemobject")
			set fichier=objf.createtextfile(server.mappath(MonFichier),true)
			fichier.write ascfich
			fichier.close:set fichier=nothing
			set objf=nothing
			ch="""Le transfert du document s'est déroulé avec succès !"""
		else
			ch="""Une erreur est survenue : le transfert n'a pas eu lieu..."""
		end if

	else
		ch="""Le fichier est trop grand : le transfert n'a pas eu lieu..."""
	end if
	%>
	<script>
		window.alert(<%=ch%>)
		window.location.href=UrlSuivante
	</script>
	<html>
		<head>
		</head>
		<body>
		</body>
	</html>

Conclusion :


TailleMax est la taille maximale du fichier à uploader autoriser, en octets ;

MonFichier est le nom du fichier qui va être créé sur le serveur, et qui va donc recevoir les données du fichier envoyé par l'internaute (je n'ai pas extrait le nom du fichier car j'ai créé ce code pour uploader des photos d'ID en jpg au début, et elles étaient enregistrées sous un numéro généré par le site);

Enfin, UrlSuivante est l'adresse de la page pour la redirection après l'upload, qu'il est raté ou réussi (un message prévient qd mm l'utilisateur lors de tel ou tel cas et précise en cas d'échec...)

A voir également

Ajouter un commentaire

Commentaires

Signaler
Messages postés
492
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
25 avril 2007
 5
Salut a tous,
moi il me sort une erreur...:

Erreur d'exécution Microsoft VBScript error '800a0005'

Argument ou appel de procédure incorrect: 'instrrev'

/page.asp, line 45

sniff...
c quoi ca comme fonction instrrev ?
Signaler
Messages postés
492
Date d'inscription
jeudi 28 août 2003
Statut
Membre
Dernière intervention
25 avril 2007
 5
Salut a tous,
moi il me sort une erreur...:

Erreur d'exécution Microsoft VBScript error '800a0005'

Argument ou appel de procédure incorrect: 'instrrev'

/page.asp, line 45

sniff...
c quoi ca comme fonction instrrev ?
Signaler
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007
Jackboy>>> faudrait peut-être updaté un peu ton interprêteur asp parceque la fonction InStrRev existe depuis un bon bout de temps !
Pour info, le code marche niquel sur plusieurs site de ma réalisation...

@+
Celiphane
Signaler
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
erreur dans le code :

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument: 'InStrRev'

/admin/upload2.asp, line 36



****************
la ligne 36 :
ascfich=Left(ascfich,InStrRev(ascfich,Chr(13) & Chr(10),Len(ascfich)-3)-1)
Signaler
Messages postés
2
Date d'inscription
dimanche 10 août 2003
Statut
Membre
Dernière intervention
28 juillet 2005
Le simple fait d'installer smartupload me pose des problemes je suis sur un windows 2000 pro et j,ai beau suivre leur procédure d'installation en plus de mettre les permission en écriture dans les dossiers concerner, on m'affiche tjrs une erreur ou une page indisponible.

http://192.168.0.3/scripts/aspSmartUpload/Sample1.asp:La page est introuvable
Afficher les 10 commentaires
S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (celiphane)