| Page
1 : Default.asp |
Explications |
<%
ECRIR = Left(UCase(Request("ECRIRE")),5)
If ECRIR = "ECRIR" Then
Nom = Request.form("Nom")
EMail = Request.form("EMail")
Texte = Request.form("texte")
Set OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=""
& Server.MapPath("/tutorial") & "\or.mdb;"
SQLQuery= "INSERT INTO or (Nom, Email,texte) "
SQLQuery= SQLQuery & "VALUES( '" & Nom & "','"&
Email& "','"& Texte& "')"
Set RS = OBJdbConnection.Execute(SQLQuery)
End If
%> |
Vous êtes prêt ? :)
On Prend les cinq premières lettres en majuscule du bouton Ecrire du Form
Si le bouton est actionnée
On récupére la valeur du champs nom
On récupére la valeur du champs EMail
On récupére la valeur du champs Texte
On déclare une variable pour l'ouverture de la base de données
On ouvre la base de données ( ici pas besoin de la déclarer dans l'odbc)
déclare une variable pour l'insertion des données
On Insére les données dans la base
Fin du test |
<html>
<head>
<title>Le Livre d'or</title>
</head> |
En tête HTML |
| <body stylesrc="http://talion/tutorial/Default.asp"> |
Le style de la page est celui
de la page d'accueil du tutorial |
| <h2 align="center"><font
color="#0000FF">Le Livre d'Or du Tutorial</font></h2> |
Titre de la page |
| <hr> |
ligne horyzontale |
| <p align="center">Pour nous encourager à continuer
notre travail, laissez nous un petit mot ....</p> |
petit texte d'intro :) |
<form method="POST" action="default.asp">
<div align="center"><center><table border="1"
cellpadding="0"
cellspacing="0"
width="500">
<tr>
<td>Votre nom</td>
<td align="left"><input type="text" name="Nom" size="20"
value="<%=Session("NomVisiteur")%>"></td>
</tr>
<tr>
<td>Votre EMail</td>
<td align="left"><input type="text" name="EMail" size="20"
value="<%=Session("NomVisiteurEMail")%>"></td>
</tr>
<tr>
<td>Votre petit mot</td>
<td align="left"><textarea rows="2" name="Texte" cols="35"></textarea></td>
</tr>
</table> </center></div><div align="center"><center><table border="0" cellpadding="0"
cellspacing="0" width="100%">
<tr>
<td width="33%"><a href="http://www.nautilum.com/tutorial"><img
src="../images/tutorial-nautilum.gif"
width="54" height="69"
alt="tutorial-nautilum.gif (2889 octets)"
border="0"></a></td>
<td width="33%"><div align="center"><center><p> <input type="submit" value="Ecrire"
name="Ecrire"><input type="reset"
value="Effacer" name="B2"></td>
<td width="34%"><div align="right"><p><a
href="http://www.nautilum.com/tutorial"><img
src="../images/tutorial-nautilum.gif"
width="54" height="69"
alt="tutorial-nautilum.gif (2889 octets)"
border="0"></a></td>
</tr>
</table>
</center></div>
</form> |
debut du form
Quand vous entrez sur le site (et que vous entrez votre nom et mail) je crée une session
contenant votre nom et EMail
On insère ici la valeur de la session NomVisiteur
On insère ici la valeur de la session NomVisiteurEMail
Le petit mot
Un petit tableau pour placer mes images à droite et à gauche de la page
|
| <hr> |
Ligne horyzontale |
<%SET
OBJdbConnection = Server.CreateObject("ADODB.Connection")
OBJdbConnection.Open "Driver={Microsoft Access Driver (*.mdb)}; DBQ=""
& Server.MapPath("/tutorial") & "\or.mdb;"
Set Rs= Server.CreateObject("ADODB.Recordset")
Rs.Open "select * from Or", OBJdbConnection, 3, 3
Rs.Movelast
For i = 0 to rs.RecordCount
%> |
On déclare une
variable pour l'ouverture de la base de données
On ouvre la base de données ( ici pas besoin de la déclarer dans l'odbc)
On déclare une varaible pour l'utilisation du Recordset
On ouvre la base
On se place sur la dernière ligne de la base
De i = 0 à la dernière ligne de la base |
<blockquote>
<ul>
<li><a href="mailto:<%=rs("EMail")%>"><%=rs("Nom")%></a></li>
</ul>
<p align="Justify"><%=rs("texte")%></p>
</blockquote> |
Décalage à
droite
Puce contenant le nom et le lien vers l'adresse EMail de la personne
Le petit texte que toutes les personnes ont rentrées |
<%
RS.MovePrevious
On error resume Next
Next%> |
On se place sur la ligen précédente de la base
Si il y a une erreur, on la saute
Incrémentation de 1 de la valeur de i et on boucle |
</body>
</html> |
Bas de page |
- Je n'ai volontairement expliqué que le "principal", car il
faut petit à petit chercher à comprendre le code par vous même pour vous permettre de
developper comme un grand un code complexe.
|
Télécharger
le code |