|
|
|
|
|
|
|
|
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"> 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>
|
|
|
|
|
