Soyez le premier à donner votre avis sur cette source.
Snippet vu 17 906 fois - Téléchargée 36 fois
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>
1 déc. 2005 à 14:19
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 ?
1 déc. 2005 à 14:18
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 ?
22 déc. 2004 à 15:23
Pour info, le code marche niquel sur plusieurs site de ma réalisation...
@+
Celiphane
22 déc. 2004 à 15:15
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)
10 sept. 2003 à 05:50
http://192.168.0.3/scripts/aspSmartUpload/Sample1.asp:La page est introuvable
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.