Actualité informatique
Test comparatif matériel informatique
Jeux vidéo
Astuces informatique
Vidéo
Télécharger
Services en ligne
Forum informatique
01Business

|-  LOGICIELS


|||-  

Votes avec choix et réponses multiples

 

1 utilisateur anonyme
Ajouter une réponse
 

 
Page photos
 
     
Vider la liste des messages à citer
 
 Page :
1
Auteur
 Sujet :

Votes avec choix et réponses multiples

Prévenir les modérateurs en cas d'abus 
fred1254
fred1254
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 22/04/2008 à 10:28:59  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour,

 je suis à la recherche d'un script (si possible pas de php) pour effectuer un système d'engagement, j'ai effecuté de longues recherches sur le net et je n'ai trouvé que des systèmes avec choix multiples mais réponse unique, alors que je cherche choix multiples et réponses multiples, je m'explique.

 Les visiteurs voient sur la page concernée une liste de 10 engagements, concernant l'environnement, avec en face de chaque engagement une case à cocher (ils peuvent voter sur tous si ils le souhaitent) et valider afin d'attérir sur la page des résultats avec le sur chaque engagement le nombre de personnes et tout en bas le total de votants.

 j'espère avoir été assez clair pour vous :-) je continue mes recherches de mon côté.

 Merci à tous

Je pompe donc je suis.
  1. homepage
le-n-in-vert
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 22/04/2008 à 12:01:53  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bonjour
 Moi personnellement je ferais ça en php mais bon... On peut surement faire sans...

 Tu peut nous montrer les systèmes que ta vu a réponse unique ?? (je pense qu'ils sont facilement adaptable)


---------------
Les aventure du donjon de naheulbeuk : www.penofchaos.com/donjon Le site du zero : http://www.siteduzero.com Mes sites : http://www.sendle.com
(Publicité)
fred1254
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 22/04/2008 à 12:07:32  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
oui en fait je pense aussi que ce que j'ai deja utilisé en asp est adaptable mais c'est mes compétences qui sont limitées à mon avis, car je pense qu'avec une boucle bien placée on peux utiliser les cases à cocher. je mets le code d'ici quelques instants...

fred1254
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 22/04/2008 à 12:08:56  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 



<html>
 <head>
 <title>Votez pour votre affiche préférée</title>
 <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
 <script language="JavaScript">
 <!--
 window.onblur = function() {
 self.focus()
 }
 function VisioAffiche (fichier,w,h) {
  ff=window.open(fichier,"new","​toolbar=no,scrollbars=yes,left​=340,top=100,resizable=no,full​screen=yes" ); if(ff) { ff.focus();ff.resizeTo(1024,80​0) }
 }
 function VoteAffiche (fichier,w,h) {
  ff=window.open(fichier,"new","​toolbar=no,scrollbars=no,left=​340,top=100,resizable=no" ); if(ff) { ff.focus();ff.resizeTo(340,900​) }
 }
 function Retour (fichier,w,h) {
  ff=window.open(fichier,"new","​toolbar=no,scrollbars=yes,left​=340,top=100,resizable=no" ); if(ff) { ff.focus();ff.resizeTo(690,590​) }
 }
 function Affiches (fichier,w,h) {
  ff=window.open(fichier,"new","​toolbar=no,scrollbars=yes,left​=340,top=100,resizable=no" ); if(ff) { ff.focus();ff.resizeTo(800,830​) }
 }
 //-->
 </script>
 </head>
 <body bgcolor="#b3dc10" text="#000000">
 <table width="300" border="0" cellspacing="0" cellpadding="0" height="52">
  <tr>

<td width="300" height="32">

<div align="center"><img src="Concours.gif" width="162" height="32"></div>

</td>
  </tr>
  <tr>

<td width="300" height="20">

<div align="center"><img src="Votez.gif" width="247" height="20"></div>

</td>
  </tr>
 </table>
 <p>
  <%@LANGUAGE="VBSCRIPT"%>
 </p>
 <table width="300" border="0" cellspacing="0" cellpadding="0" height="328">
  <tr>

<td width="300" valign="top">

<!--#include file="../../../../db/Connectio​ns/VoteBDD.asp" -->

<%
 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("VoteCooki​e" )("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()

' on autorise 1 vote tout les now() + x jours, à définir selon vos besoins

Response.Cookies("VoteCookie" )​("VoteID" ) = VoteID

Response.write " Le vote est validé. Merci!"


 End if
 End if
 ' ------------ Fin de validation du formulaire -----------


 SQL = "SELECT * FROM Reponses " & _
     "WHERE VoteID = " & VoteID
 set RSReponses = Server.CreateObject("ADODB.Rec​ordset" )
 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("VoteCook​ie" )("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
  %>

<br>

<table width="302">

<tr>

<td colspan="3"> <%=VoteQuestion%> <br>

</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 width="44"><a href='JavaScript:Affiches("../​concours/<%=RSReponses("VoteOp​tion" )%>.asp" )'><%=RSReponses(​"VoteOption" )%></a></td>

<td width='14'><img src='/Marches/voteASP/vote.gif​' height='5' width='<%=Round(pVotes,0)%>'><​/td>

<td width="228"><%=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 & " votes ont été effectués" : End If %>

<br>

<font face="Comic Sans MS, Verdana, Arial" size="2"><a href='javascript:VoteAffiche("​vote.asp" )'>Retourner

aux votes</a></font> <br>

<% Else  
  ' --------------- Affichage du formulaire ---------------
  ' si le visiteur n'a pas encore voté
 %>

<table width="302" align="center">

<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 width="176"><a href='JavaScript:Affiches("../​concours/<%=RSReponses("VoteOp​tion" )%>.asp" )'><%=RSReponses(​"VoteOption" )%></a></td>

<td width="114">

<input type="radio" name="choix" value="<%=RSReponses("VoteOpti​onID" )%>">

</td>

</tr>

<% RSReponses.movenext : wend %>

<tr>

<td colspan="2">

<p align="center"><br>

<input type="submit" value="Voter!" name="submit">

<input type="hidden" name="valide" value="true">

<br>

<a href="vote.asp?voir=true"><fon​t size="2" face="Comic Sans MS, Verdana, Arial">Voir

les résultats</font></a> </p>

</td>

</tr>

</form>

</table>

<div align="center">

<% End if %>

<br>

<a href='JavaScript:VisioAffiche(​"affiches.asp" )'><font size="2" face="Comic Sans MS, Verdana, Arial">Visualiser

les affiches</font></a> <a href='JavaScript:Retour("conco​urs.html" )'><font face="Comic Sans MS, Verdana, Arial" size="2"><br>

Retourner sur le site des 10 ans !</font></a></div>

</td>
  </tr>
  <tr>

<td width="300"> </td>
  </tr>
 </table>
 </body>
 </html>
 


Je pompe donc je suis.
  1. homepage
le-n-in-vert
Débutant confirmé (de 1 000 à 4 999 messages postés)
  1. Posté le 22/04/2008 à 12:40:38  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
A ouai mes vu mon niveau en asp c'est pas moi qui vais t'aider...


---------------
Les aventure du donjon de naheulbeuk : www.penofchaos.com/donjon Le site du zero : http://www.siteduzero.com Mes sites : http://www.sendle.com
(Publicité)
fred1254
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 25/04/2008 à 10:43:17  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Bon j'essaie de chercher une réponse mais en vain :(.

 je vous envoi le lien de la page concernée : http://www.sydetom66.com/minis [...] voteok.asp

 alors pour info quand on clique sur un seul vote tout marche nikel par contre dès qu'on sélectionne deux ou plusieurs affiches ça fonctionne plus sad.gif. Je suis sur que c'est pas bien compliqué mais je galère depuis 3 jours à chercher et à retourner le code dans tous les sens. je pense que ça passe par une boucle qui répéterait une partie du code, mais quelle boucle utilisée et à quelle endroit la faire débuter et à quel endroit la faire terminer.

 Je vous remets la source de la page. Je continue à cherche aussi. Merci

 



 <html>
  <head>
  <title>Votez pour votre affiche pr&eacute;f&eacute;r&eacute;e<​/title>
  <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
  <script language="JavaScript">
  <!--
  function Retour (fichier,w,h) {
   ff=window.open(fichier,"new","​toolbar=no,scrollbars=no,left=​340,top=100,resizable=no" ); if(ff) { ff.focus();ff.resizeTo(650,570​) }
  }
  //-->
  </script>
  </head>
  <body bgcolor="#b3dc10" text="#000000">
  <table width="300" border="0" cellspacing="0" cellpadding="0" height="52">
    <tr>
   <td width="300" height="32">
     <div align="center"><img src="Concours.gif" width="162" height="32"></div>
   </td>
    </tr>
    <tr>
   <td width="300" height="20">
     <div align="center"><img src="Votez.gif" width="247" height="20"></div>
   </td>
    </tr>
  </table>
  <p>
    <%@LANGUAGE="VBSCRIPT"%>
  </p>
  <table width="300" border="0" cellspacing="0" cellpadding="0" height="328">
    <tr>
   <td width="300" valign="top">
     <!--#include file="../../../../db/Connectio​ns/VoteBDDMulti.asp" -->
     <%
  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("VoteCooki​e" )("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()
     ' on autorise 1 vote tout les now() + x jours, à définir selon vos besoins
     Response.Cookies("VoteCookie" )​("VoteID" ) = VoteID
     Response.write " Le vote est validé. Merci!"
   
  End if
  End if
  ' ------------ Fin de validation du formulaire -----------
   
   
   
   
  SQL = "SELECT * FROM Reponses " & _
      "WHERE VoteID = " & VoteID
  set RSReponses = Server.CreateObject("ADODB.Rec​ordset" )
  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("VoteCook​ie" )("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
   %>
     <br>
     <table width="302">
    <tr>
      <td colspan="3"> <%=VoteQuestion%> <br>
      </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 width="44"><%=RSReponses("Vote​Option" )%></td>
      <td width='14'><img src='/Marches/voteASP/vote.gif​' height='5' width='<%=Round(pVotes,0)%>'><​/td>
      <td width="228"><%=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 & " votes ont été effectués" : End If %>
     <% Else  
   ' --------------- Affichage du formulaire ---------------
   ' si le visiteur n'a pas encore voté
  %>
     <table width="302" align="center">
    <form name="poll" action="voteok.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 cases à cocher
   %>
      <tr>
     <td width="176"><%=RSReponses("Vot​eOption" )%></td>
     <td width="114">
       <input type="checkbox" name="choix" value="<%=RSReponses("VoteOpti​onID" )%>">
     </td>
      </tr>
      <% RSReponses.movenext : wend %>
      <tr>
     <td colspan="2">
       <p align="center"><br>
      <input type="submit" value="Voter!" name="submit">
      <input type="hidden" name="valide" value="true">
      <br>
      <a href="voteok.asp?voir=true">Vo​ir les résultats</a> </p>
     </td>
      </tr>
    </form>
     </table>
     <div align="center">
    <% End if %>
    <br>
    <a href='JavaScript:Retour("conco​urs.html" )'><font face="Comic Sans MS, Verdana, Arial" size="2">Retourner
    sur le site des 10 ans !</font></a></div>
   </td>
    </tr>
    <tr>
   <td width="300">&nbsp;</td>
    </tr>
  </table>
  </body>
  </html>
 


  1. Posté le 25/04/2008 à 23:20:19  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
Pas de php mais asp ? Question de contrainte de serveur ?

fred1254
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 28/04/2008 à 07:18:18  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
oui exactement

(Publicité)
fred1254
Bébé forumeur (De 10 à 49 messages postés)
  1. Posté le 30/04/2008 à 07:50:47  
  1. answer
  1. Prévenir les modérateurs en cas d'abus
 
J'ai trouvé, il fallait bien une boucle.....

 voici la portion de code en question :

 If Request.QueryString("valide" ) = "true" then
   
 'If Int(Request.Cookies("VoteCooki​e" )("VoteID" )) <> VoteID then
 ' si le visiteur n'avait pas encore donné son avis pour ce vote... et on execute...

 for i = 1 to request.querystring("choix" ).c​ount

  SQL = "UPDATE Reponses " & _

"SET Compteur = Compteur + 1 " & _

"WHERE VoteOptionID= " & _
  Request.QueryString("choix" )(i​) & ";"

Conn.Execute SQL  
 next

'Response.Cookies("VoteCookie"​).Expires = Now()

'on autorise 1 vote tout les now() + x jours, à définir selon vos besoins

'Response.Cookies("VoteCookie"​)("VoteID" ) = VoteID

'Response.write " Le vote est validé. Merci!"

 End if

 Page :
1

Aller à :
 

Sujets relatifs
Choix open source ou spécifique taille et choix police systeme windows 8
fenetres multiples (Résolu) inséré cd/dvd-pas de choix au démarrage[résolu]
Demande d'aide pour choix d'éditeur de site Difficulté de choix.
Studio 9: Changement de choix du DD. trop de choix au demarrage de windows.....
Choix de demarrage (resolu) visualisation des réponses à mes questions
Plus de sujets relatifs à : Votes avec choix et réponses multiples

Les 5 sujets de discussion précédents Nombre de réponses Dernier message
formation 0
Comment déposer un programme exe 0
[VBA Excel] Créer un fichier .txt depuis une macro vba : ? 1
initiales d'un texte [Résolu] 5
sécurité mysql locale 4