Forum de discussion
Forum « Programmation ASP » (archives)
Upload ASp
Envoyé: 30 septembre 2003, 8h51 par samlon
Erreur d'enregistrement !
Objet requis
L'administrateur m'a dit que aspSmartUpload était installé sur le serveur...d'ou vient le problème ??
voila le code au cas ou:
<HTML><BODY><CENTER>
<% On Error Resume Next
' Répertoire de stockage (déprotégé)
rep="_private"
Set mySmartUpload = _
Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.Upload
intCount = mySmartUpload.Save(rep)
if err = -2147220399 then %>
<b>Trop gros fichier !</b>
<i>( <%=MFS%> octets max.)</i>
<%elseif intCount>0 then %>
<b>Votre fichier a bien été enregistré !</b>
<% For each file In mySmartUpload.Files %>
<BR>Nom : <%=file.FileName%>
<BR>Taille : <%=file.Size%> octets
<BR>Type : <%=file.ContentType%>
<% next
elseif err <> 9 then %>
<b>Erreur d'enregistrement !</b>
<br><%=err.description%>
<%end if%>
<FORM METHOD="POST"
ENCTYPE="multipart/form-data">
<INPUT TYPE=FILE NAME="userfile"><BR>
<INPUT TYPE=SUBMIT value="Enregistrer le fichier">
</FORM>
LISTE DES FICHIERS TELECHARGES
<BR><TABLE border>
<% Set FSO = _
Server.CreateObject("Scripting.FileSystemObject")
set fc = FSO.GetFolder(server.MapPath(rep)).Files
for each f in fc %>
<TR>
<TH>
<A href="<%=rep&"/"&f.name%>"
target="_blank"><%=f.name%></A>
</TH>
<TD align=right><%=f.size%></TD>
<TD><%=f.dateCreated%></TD>
</TR>
<%next%>
</TABLE>
</CENTER></BODY></HTML>
Réponses
|