ASPVote Système de sondage en ASP/Access

Offrir en quelques lignes de script un système efficace et complet de sondage, c'est le but de cette fiche. Analysons le fonctionnement de ce script.

Télécharger le zip (scripts et BD) - Télécharger l'article (PDF)

La Base de Données

Elle comprend 2 tables : une table Questions, et une table Réponses.

La table Questions comprends un numéro d'ID (numéro auto), le thème ou la question du sondage, et sa date de création (date auto).

La table Réponses est reliée à la table Questions via son numéro d'ID, les différentes réponses possibles sont caractérisées par un numéro "VoteOptionID" (numéro auto) qui sera la valeur des champs radio du formulaire, puis le texte de réponse. Un compteur indique pour chaque réponse le nombre de votant, nous permettant par la suite de calculer le pourcentage pour chaque réponse.

Avant de mettre en ligne en ligne votre sondage, assurez vous d'avoir au moins 1 question entrée dans la base !

Le script complet

Le script est assez commenté je pense pour ne pas avoir à entrer dans les détails, cependant voici son principe de fonctionnement :

• sélection de la dernière question entrée (via sa date de création) avec son ID
• récupération de la question dans une variable et calcul du nombre total de votants
  
  
• si c'est la première fois que le visiteur voit ce sondage, on affiche le formulaire de vote
• si le cookie nous indique que le visiteur à déjà voté, on affiche directement les résultats
  
  
• quand le vote s'effectue, on met à jour le compteur de vote pour la réponse choisie
• on dépose un cookie à durée désiré sur la machine de l'internaute
• on affiche les résultats en pourcentage et sous forme de barre graphique

vote.asp

<% ' --------------- Connexion --------------- Set Conn = Server.CreateObject("ADODB.Connection") connstring="DRIVER={Microsoft Access Driver (*.mdb)};" _    & " DBQ=" & Server.MapPath("/vote.mdb")  Conn.Open connstring ' paramètres de connexion à la base set RSQuestions = Server.CreateObject("ADODB.Recordset") SQL = "SELECT TOP 1 * FROM Questions " & _     "ORDER BY VoteDate DESC" RSQuestions.open SQL, Conn, 3, 3 ' on ne selectionne que le dernier sondage entré (top 1) VoteID = RSQuestions("VoteID") ' on récupère l'ID du sondage, que l'on placera dans un cookie VoteQuestion = RSQuestions("VoteQuestion") ' on récupère la question du sondage en cours ' --------------- Validation du formulaire --------------- ' si le formulaire est validé, on prepare la mise à jour de la table... If Request.QueryString("valide") = "true" then      SQL = "UPDATE Reponses " & _      "SET Compteur = Compteur + 1 " & _      "WHERE VoteOptionID= " & _      Request.QueryString("choix") & ";" If Int(Request.Cookies("VoteCookie")("VoteID")) <> VoteID then ' si le visiteur n'avait pas encore donné son avis pour ce vote... et on execute...    Conn.Execute SQL    Response.Cookies("VoteCookie").Expires = Now() + 7    ' on autorise 1 vote tout les now() + x jours, à définir selon vos besoins    Response.Cookies("VoteCookie")("VoteID") = VoteID    Response.write " Merci d'avoir voté!"     End if End if ' ------------ Fin de validation du formulaire ----------- SQL = "SELECT * FROM Reponses " & _       "WHERE VoteID = " & VoteID set RSReponses = Server.CreateObject("ADODB.Recordset") RSReponses.Open SQL, Conn, 3, 3 ' on extrait les réponses possibles pour ce sondage Total = 0 While Not RSReponses.EOF ' on récupère le nombre de réponses totales données pour ce sondage     Total = Total +  RSReponses("Compteur")    RSReponses.MoveNext Wend RSReponses.MoveFirst ' on se replace sur le 1er enregistrement If Request.QueryString("voir") = "true" OR Request.QueryString("valide") = "true" _    OR cInt(Request.Cookies("VoteCookie")("VoteID")) = VoteID then             ' --------------- Affichage des resultats ---------------    ' si on a voté, déjà voté, ou demandé les résultats        ' protection "Dépassement de capacité" d'un entier    ' si l'on affiche les résultats et que personne n'a encore voté         If Total = 0 then     Response.write "Aucun vote !"    Else     ' création de la table HTML    %>    <table width="250">    <tr><td colspan="3">    <%=VoteQuestion%>         </td></tr>    <% while not RSReponses.EOF     pVotes = (RSReponses("Compteur") / Total) * 100    ' pourcentage = (réponses pour la question / total réponses données) * 100    %>    <tr><td><%=RSReponses("VoteOption")%></td>    <td width='100'><img src='vote.gif' height='5' width='<%=Round(pVotes,0)%>'></td>    <td><%=Round(pVotes,1)%> %</td></tr>    <% RSReponses.movenext : wend     'on boucle sur les réponses en sortant leur désignation    ' le pourcentage de vote arrondi et une barre graphique    %>        </table>    <br><% Response.write Total & " votants" : End If %>     <% Else       ' --------------- Affichage du formulaire ---------------    ' si le visiteur n'a pas encore voté %>    <table width="250">    <form name="poll" action="vote.asp?voir=true" method="get">    <tr><td colspan="3">        <%=VoteQuestion%>         </td></tr>        <% while not RSReponses.EOF     ' on boucle sur les réponses, cette fois-ci dans un formulaire    ' sous forme de bouton radio    %>    <tr><td><%=RSReponses("VoteOption")%></td>    <td><input type="radio" name="choix" value="<%=RSReponses("VoteOptionID")%>"></td></tr>    <% RSReponses.movenext : wend %>    <tr><td colspan="2">    <input type="submit" value="Voter!">    <input type="hidden" name="valide" value="true">    <br>    <a href="vote.asp?voir=true">Voir les résultats</a>    </td></tr></form>    </table> <% End if %>