Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

Probleme d'upload avec AspSmartUpload et gros fichier

Envoyé: 15 novembre 2004, 13h52 par geckoqc


Bonjour,

quand j'upload des fichiers avec AspSmartUpload, ça passe jusqu'à ce que le fichier soit plus gros que 60 megs. J'essais avec un fichier de 65 megs et ça ne marche pas. La page reste gelé pendant 1 ou 2 minutes, apres ça me renvois à ma pag de confirmation en me disant que tout est okay mais ça ne marche pas. J'ai modifier le fichier metabase.xml de IIS 6.0 pour grossir le fichier mais meme a ça, rien ne marche. Je ne crois pas que vous donner mon code peux vous aider mais le voici tout de meme pour ma page d'upload. Il y a du code pour faire un .zip au travers:

<%
nbRep = "../../"
secuReq = 1
%>
<!--#include file="../../scripts/security/security.asp" -->
<!--#include file="../../lib/bd.asp"-->
<!--#include file="../../lib/lib_fonction.asp"-->
<%
'/********************************************************************
'/*** Fichier: addFile.asp
'/*** Description: Effectuer l'ajout d'un fichier relier à un titre.
'/***
'/*** Auteur: David Bizier, Gecko Électronic
'/*** Date: 9 Novembre 2004
'/***
'/********************************************************************

Server.ScriptTimeout = 5000

'ON Error Resume Next

Dim idFile 'ID unique de l'élément à supprimer
Dim idSection 'ID unique du site web associé à l'élément
Dim typeElement 'Est-ce un élément ou une liste

idSection = request.QueryString("idSection")
typeElement = request.QueryString("typeElement")

'Ouverture de la connection avec la BD
SET objConn = Server.CreateObject("ADODB.Connection")

'Connexion avec la BD de clic.net
objConn.Open sVg_connectBdSql2000

SELECT CASE typeElement

'EFFACER UN TITRE
CASE 1:

'EFFACER UN ÉLÉMENT
CASE 2:

SET mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
intCount = mySmartUpload.Save(uploadFilePathTemp)

IF err = -2147220399 THEN

ELSEIF intCount > 0 THEN

FOR EACH file In mySmartUpload.Files

IF request.QueryString("makeZip") = "1" THEN

'trouver le nom du fichier sans extension
ptPoint = InStr(file.FileName, ".")
rightname = left(file.FileName,(ptPoint-1))

'Le nom exacte .zip
rightname = rightname&".zip"

Dim mySmartZip
Set mySmartZip = Server.CreateObject("aspSmartZip.SmartZip")
mySmartZip.MakeArchive uploadFilePathTemp, uploadFilePath & "\"&rightname
Set mySmartZip = Nothing

'Suppression du fichier original

'Création de l'objet pour accueillir le fichier
DIM fileSO
SET fileSO = CreateObject("Scripting.FileSystemObject")

'Obtenir un pointeur vers le fichier
SET filePt = fileSO.getFile(uploadFilePathTemp &"\"&file.FileName)

'Supprimer le fichier original non zippé
filePt.delete

'Suppression des objets
SET filePt = NOTHING
SET fileSO = NOTHING

ELSE

'Obtenir le nom du fichier
rightname = file.FileName

'Création de l'objet pour accueillir le fichier
DIM fso
SET fso = CreateObject("Scripting.FileSystemObject")

'Obtenir un pointeur vers le fichier
SET filePt = FSO.getFile(uploadFilePathTemp &"\"&rightname)
'Déplacement du fichier
filePt.move(uploadFilePath &"\"&rightname)
SET filePt = NOTHING
SET fso = NOTHING

END IF

objConn.execute "INSERT INTO GC_fileParDownload(idTitre,nom,link,size,auteur,dateCreation) VALUES("&idSection&",'"&mySmartUpload.Form("fileName")&"','"&rightname&"','"&file.Size&"',"&returnIdEndUser&",'"&date&"');"
'response.write "INSERT INTO GC_fileParDownload(idTitre,nom,link,size,auteur,dateCreation) VALUES("&idSection&",'"&mySmartUpload.Form("fileName")&"','"&file.FileName&"','"&file.Size&"',"&returnIdEndUser&",'"&date&"');"
NEXT

ELSEIF err <> 9 THEN
%>
<B>Erreur d'enregistrement!</B>
<BR><%=err.description%>
<%
END IF

SET mySmartUpload = NOTHING

END SELECT

objConn.close
SET objConn = NOTHING
'response.write rightname
Response.Redirect("modification.asp?idSection="&idSection&"&rnd="&returnRnd&"&rightname="&rightname)
%>


Réponses

 sp spRe: Probleme d'upload avec AspSmartUpload et gros fichier SeigneurLolo6/12/2004
 sp spRe: Probleme d'upload avec AspSmartUpload et gros fichier geckoqc15/11/2004
 sp spRe: Probleme d'upload avec AspSmartUpload et gros fichier Oznog10/12/2004
Aucun médias sociaux
X

Trucsweb.com Connexion

X

Trucsweb.com Mot de passe perdu

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte