Mon tutorial original se trouve ici :
http://www.asp-php.net/tutorial/asp-php/asp-redim-image-upload.php
-
On a donc besoin : d'un dossier déprotégé (photosMATABLE) (avec les "droits en écriture").Les fichiers : _connexion.asp : contient les paramètres de connexion à votre baseMONFICHIER_LISTE.asp : liste avec options AJOUTER - MODIFIER - SUPPRIMERMONFICHIER_FORM.asp : affiche le formulaire en fonction des 3 optionsMONFICHIER_TRAITER.asp : traite les 3 options(options AJOUTER - MODIFIER) : Important : aspSmartUpload (gratuit) : pour Uploader le formulairehttp://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 </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 %> |
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)