USUÁRIO:      SENHA:        SALVAR LOGIN ?    Adicione o VBWEB na sua lista de favoritos   Fale conosco 

 

  Dicas

  ASP - Active Server Page    (Miscelâneas)

Título da Dica:  Enquete ASP com funções Js
Postada em 17/9/2003 por Mago_Pc            
<%
'Este arquivo eu chamo de enquete.asp
'ele irá conectar ao banco de dados e só pegará a pergunta mais atual do banco de dados
                         Set ConE = Server.CreateObject("ADODB.Connection")
                         Set RsE = Server.CreateObject("ADODB.Recordset")

                         ConE.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath(" Nome do banco de dados  ")

                         ide = Request.QueryString("id")

                         RsE.Open "SELECT * FROM enquete WHERE id="& ide, ConE, 1, 3

                         If Request.QueryString("acao") = "voto" Then
                              opt = Request.QueryString("opcao")
                              valor = Int(RsE("res" & opt))
                              valor = valor + 1
                              ConE.Execute "UPDATE enquete SET res" & opt & "=" & valor & " WHERE id=" & ide
                              RsE.Close
                              RsE.Open "SELECT * FROM enquete WHERE id=" & ide, ConE, 1, 3
                         End If

                         total = 0
                         For i = 1 To 4
                              total = total + Int(RsE("res" & i))
                         Next
                         %><body>
<center>
  <font style="font-size: 11pt">
  <%=RsE("pergunta")%> </font>
</center>
<font style="font-size: 11pt"><br>
<%
                         For i = 1 To 4
                              topt = RsE("res" & i)
                              pct = CInt((100 * topt)/total)
                              %>
<%=pct%>% (<%=topt%>)<br>
<%=RsE("op" & i)%><br>
<!-- É muito importante que vc tenho alguma fugura traço para passar o valor graficamente ,   (../figHome/barra.bmp) é o caminho para esse exemplo, pode ser livremente modificado. -->
<img src="../figHome/barra.bmp" height="10" width="<%=pct*0.3%>"><br>
<br>
<%
                         Next
                         %>
Total de votos: <%=Total%>
<%
                         RsE.Close
                         ConE.Close

%>
</font>
=======================================================
=======================================================
<!--  Este arquivo se chama enquete2.asp  -->
<!--  ele irá receber o valor marcado pela outra página e processará
automáticamente a parcial dos votos -->
<table width="100%" cellpadding="2" cellspacing="0" background="figfass/logo.preenchimento.gif" style="border:1 solid #990000">
  <tr bgcolor="#000066">
    <td height="24" background="figfass/fundo-titulo-enquete.gif"><b class="rth">&nbsp;&nbsp;Enquete</td>
  </tr>
  <tr>
    <td> <font size="4" face="Verdana, Arial, Helvetica, sans-serif"><strong>
      <%
                         Set ConE = Server.CreateObject("ADODB.Connection")
                         Set RsE = Server.CreateObject("ADODB.Recordset")

                         ConE.Open "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("..\..\databases\enquete.mdb")
                         RsE.Open "SELECT TOP 1, * FROM enquete ORDER BY id", ConE, 1, 3

%>
      <script>
                         function enquete(voto){
                              campo = document.frmenq.opcao;
                              marcou = false;
                              marcado = 0;
                              for(i=0;i<campo.length;i++){
                                   if(campo.checked || voto == "parcial"){
                                        marcou = true;
                                        marcado = campo.value;
                                        break;
                                   }
                              }
                              if(marcou){
                                   window.open("enquete.asp?id=<%=RsE("id")%>&opcao=" + marcado + "&acao=" + voto,"","status=no,toolbar=no,menubar=no,location=no,resizable=no,width=250,height=383");
                              document.location.reload();
                              }else{
                                   alert("Escolha uma opção!");
                              }
                         }
                         </script>
      </strong></font>
      <div align="center"><%=RsE("pergunta")%><br>
      </div>
      <form name="frmenq">
        <%
                         For i = 1 To 4
                    %>
        <input type="radio" name="opcao" value="<%=i%>">
        <%=RsE("op" & i)%><br>
        <%
                         Next
                         %><br>
        <center>
          <input type="button" value="Votar" onClick="enquete('voto')" name="button">
        </center>
      </form>
      <%
                         RsE.Close
                         ConE.Close
%>
      <div align="center"><a href="javascript:enquete('parcial')">Resultado Parcial</a></div>
    </td>
  </tr>
</table>

 


CyberWEB Network Ltda.    © Copyright 2000-2024   -   Todos os direitos reservados.
Powered by HostingZone - A melhor hospedagem para seu site
Topo da página