CodeS-SourceS
Rechercher un code, un tuto, une réponse

Asp - redimensionner image + picto après upload

Avril 2017


Mon tutorial original se trouve ici :
http://www.asp-php.net/tutorial/asp-php/asp-redim-image-upload.php

-

On a donc besoin :
1- d'une base de données Microsoft Office Access (MABASE),
dans laquelle est créée une table (MATABLE) contenant au moins les champs suivants :
- NUM (NumeroAuto : clé primaire)
- COMMENT1 (Texte)
- PHOTO1 (Texte)
- PICTO1 (Texte)

d'un dossier déprotégé (photosMATABLE) (avec les "droits en écriture").


Les fichiers :

_connexion.asp : contient les paramètres de connexion à votre base



MONFICHIER_LISTE.asp : liste avec options AJOUTER - MODIFIER - SUPPRIMER



MONFICHIER_FORM.asp : affiche le formulaire en fonction des 3 options



MONFICHIER_TRAITER.asp : traite les 3 options


(options AJOUTER - MODIFIER) :
- traite l'image \"uploadée\", crée le picto, ajoute les données à la table MATABLE,
- gère les erreurs,
- redimensionne les photo et picto si nécessaire,
- et enregistre les photo et picto dans le dossier photosMATABLE.
(option SUPPRIMER) :
- supprime la fiche concernée de la table MATABLE,
- supprime les photo et picto concernées du dossier photosMATABLE.

Important :
Il faut que les COMPOSANTS ASP suivants soient installés :

aspSmartUpload (gratuit) : pour Uploader le formulaire


http://www.aspfr.com/tutoriaux/ASPSMARTUPLOAD-MODE-EMPLOI_847.aspx

AspImage (payant) : pour redimensionner puis sauvegarder les images modifiées.


http://www.serverobjects.com/comp/Aspimage.htm
PS : AspImage ne gère pas le redimensionnement des GIF.
Mais d'autres composants (payants aussi) le font.

</td>
</td> </tr> </tbody> </table> _connexion.asp

==
===

<% ' le dossier DOSSIERBASE doit être déprotégé (avec les "droits en écriture").
' Path long de la base de données
dbPath = Server.MapPath("DOSSIERBASE /MABASE.mdb")
' Création de l'objet permettant la connexion
Set Conn = Server.CreateObject("ADODB.Connection")
' Connexion
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" _
   & " DBQ=" & dbPath
%>

MONFICHIER_LISTE.asp


dans cet exemple :
- on affiche en ligne les pictos des photos présentes dans la table de la base de données,
- avec pour chacune des boutons "Modifier" et "Supprimer"
- et un bouton "Ajouter Nouveau"

{| border ="1"
|-
| <!-- #include file=\"_Connexion.asp\"-->
<%
' --------------------------------------------------------------------
' Les photos seront stockees dans un dossier photosMATABLE
' on a une base de donnees MABASE avec une table MATABLE
' La table doit contenir au moins les champs suivants :
' - NUM      (NuméroAuto - CLE primaire)
' - COMMENT1 (Texte)
' - PHOTO1   (Texte)
' - PICTO1   (Texte)
' Important : conserver le champ COMMENT1 :
' il est necessaire en mode AJOUTER
' REMARQUE : on peut utiliser ce fichier pour PLUSIEURS TABLES (de meme structure)
' preciser le nom de la table a l'appel du fichier : MONFICHIER.asp?CAT=MATABLE
' --------------------------------------------------------------------
' mettre le nom de la table dans une variable :
   table = \"MATABLE\"
' ou : table=request.querystring(\"CAT\")
' --------------------------------------------------------------------
' Répertoire des photos et pictos photosMATABLE (déprotégé)
   cheminlong = Server.MapPath(\".\photosMATABLE\") & \"\\"
   chemincourt = \"photosMATABLE/\"
' --------------------------------------------------------------------
' Sélection de toutes les fiches de MATABLE
   URL = Request.ServerVariables(\"SCRIPT_NAME\")
   SQL = \"SELECT * FROM \" & table & \" ORDER BY NUM DESC;\"
   Set RS = server.createobject(\"ADODB.Recordset\")
   RS.Open SQL,Conn , 3, 3
%>
<html><head><title></title></head>

<table>
   |-

      
<%=table%></td>
      | <%=table%>&TRAITER=AJOUTER\">
         AJOUTER NOUVEAU

   
   |-

      |    <table>
      |-

<% ' tant qu'il y a des fiches
while not RS.eof %>
         

            <table>
            |-

               |                   <%=table%>&TRAITER=MODIFIER
                                 &NUM=<%=RS.fields(\"NUM\")%>\">
                  MODIFIER
               

               |                   <%=table%>&TRAITER=SUPPRIMER
                                 &NUM=<%=RS.fields(\"NUM\")%>\">
                  Supprimer
               

            
            |-

               |                   <% if RS.fields(\"PICTO1\")<> \"\" then %>
                  [Image:http://static.commentcamarche.net/codes-sources.commentcamarche.net/pictures/faq-c1e3afef7bcaa1e94548c89d42d0dca0.png|500px||center] (version gratuite, jusqu'à 10 Mo)

Adresse d'origine

A voir également

Publié par jreaux62.
Ce document intitulé «  Asp - redimensionner image + picto après upload  » issu de CodeS-SourceS (codes-sources.commentcamarche.net) est mis à disposition sous les termes de la licence Creative Commons. Vous pouvez copier, modifier des copies de cette page, dans les conditions fixées par la licence, tant que cette note apparaît clairement.
Ajouter un commentaire

Commentaires

Donnez votre avis
Asp - administrer en ligne : protection des pages
Asp - affichage en tableau :