Asp - redimensionner image + picto après upload

Dernière mise à jour le par ashpl .

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 %>
                   (version gratuite, jusqu'à 10 Mo)

Adresse d'origine

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.
Asp - administrer en ligne : protection des pages
Asp - affichage en tableau :
Rejoignez-nous