OVH Cloud OVH Cloud

[Dream mx] upload de fichiers

2 réponses
Avatar
valentino14 webforumsuser
bonjour a tous .
Vous vous en doutez, j'ai un p'tit probleme.
J'ai commencé a developper un site en asp javascript et j'aimerai que mes visiteurs puissent envoyer des fichiers vers un base de donnée access.
J'ai donc pensé a la fonction "inserer un enregistrement" mais pour ce qui est des champs de fichiers je patauge un maximum.
Comme vous l'aurez remarqué je suis loin d'être un expert.
Esperant que vous aurez compris ma question, merci d'avance!!

2 réponses

Avatar
lda
salut,

pour réussir les upload sans prog , prend l'extension ' asp-net upload ' sur
macromedia.fr

ASP-net upload

il y a un tuto là dessus sur ' www.tutodream.fr.st ' niveau avancé.

bien à toi



"valentino14" a écrit dans le message de
news: bm1pv5$lhv$
bonjour a tous .
Vous vous en doutez, j'ai un p'tit probleme.
J'ai commencé a developper un site en asp javascript et j'aimerai que mes


visiteurs puissent envoyer des fichiers vers un base de donnée access.
J'ai donc pensé a la fonction "inserer un enregistrement" mais pour ce qui


est des champs de fichiers je patauge un maximum.
Comme vous l'aurez remarqué je suis loin d'être un expert.
Esperant que vous aurez compris ma question, merci d'avance!!




Avatar
ydolomieu webforumsuser
J'ai été confronté au même problème. Pour ceux qui sont intéréssés, voici ce que j'ai fait. L'upload se fait dans un des répertoire de mon serveur et le nom de fichier est intégré dans la base de données acces.
J'avais bricolé lignes de codes suivantes (fonctionne avec ASPUpload et DreamMX). Si vous utilisez un autre composant que ASPUpload, il suffit d'adapter le code au niveau du composant : (ligne dans le Fichier UpCreaPhotos.asp:
Set Upload = Server.CreateObject("Persits.Upload.1")
CountFiles=Upload.Save(Server.MapPath("repupload/Images/interieur/Bdef/"))
A vous de remplacer les différentes valeurs.

Pour me contacter : (n'hésitez pas)
----------------------------------------------------------------------------------------------------------------
fichier creaetape10.asp :


<html>
<head>
<title>Etape 10</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<p>Etape 10</p>
<p>Ajout des photographies<br>
<br>
<b>Il est indispensable de charger les six images en m&ecirc;me temps sinon
le programme annoncera une erreur et aucune image ne sera charg&eacute;e.</b></p>
<form name="form1" method="post" action="UpCreaPhotos.asp" enctype="multipart/form-data">
<table width="75%" border="1">
<tr>
<td>Photo 1 Basse Def</td>
<td>
<input type="file" name="file">
</td>
</tr>
<tr>
<td>Photo 2 Basse Def</td>
<td>
<input type="file" name="file2">
</td>
</tr>
<tr>
<td>Photo 3 Basse Def</td>
<td>
<input type="file" name="file3">
</td>
</tr>
<tr>
<td>Photo 1 Haute Def</td>
<td>
<input type="file" name="file4">
</td>
</tr>
<tr>
<td>Photo 2 Haute Def</td>
<td>
<input type="file" name="file5">
</td>
</tr>
<tr>
<td>Photo 3 Haute Def</td>
<td>
<input type="file" name="file6">
</td>
</tr>
</table> <p>
<input type="reset" name="Submit" value="Annuler">
<input type="submit" name="Submit2" value="Valider">
</p>
</form>
<p>&nbsp;</p>
</body>
</html>


---------------------------------------------------------------------------------------------------------------------

Fichier UpCreaPhotos.asp


<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/Artis.asp" -->
<%
set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_Artis_STRING
Recordset1.Source = "SELECT * FROM TimagInt"
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.Open()
Recordset1_numRows = 0
%>
<%
Set Upload = Server.CreateObject("Persits.Upload.1")
CountFiles=Upload.Save(Server.MapPath("repupload/Images/interieur/Bdef/"))
Set File1 = Upload.Files("file")
Set File2 = Upload.Files("file2")
Set File3 = Upload.Files("file3")
Set File4 = Upload.Files("file4")
Set File5 = Upload.Files("file5")
Set File6 = Upload.Files("file6")
fn1 = File1.ExtractFileName
fn2 = File2.ExtractFileName
fn3 = File3.ExtractFileName
fn4 = File4.ExtractFileName
fn5 = File5.ExtractFileName
fn6 = File6.ExtractFileName
Recordset1.addnew
Recordset1("interieur1")=fn1
Recordset1("interieur2")=fn2
Recordset1("interieur3")=fn3
Recordset1("interieur1HD")=fn4
Recordset1("interieur2HD")=fn5
Recordset1("interieur3HD")=fn6
Recordset1.update
%>
<%
response.redirect "creaetape10.asp"
Recordset1.Close()
%>