Ir para conteúdo
Entre para seguir isso  
Seguidores 0
Convidado Davidson

Coloque uma enquête no site de seu Ot

Por , em Websites

Recommended Posts

Convidado Davidson   
Convidado Davidson
Postado

Primeiro faça o download do banco de dado e só um arquivo do Access

Que armazenara as perguntas e as respostas de sua enquête

Link para download:

 

http://rapidshare.com/files/6596519/bd.mdb

 

Depôs crie em um arquivo de bloco de notas como seguinte código:

 

Código que mostra a enquête:

<%Set conn = Server.CreateObject("ADODB.Connection")conn.Provider = "Microsoft.Jet.OLEDB.4.0"conn.open(Server.MapPath("bd.mdb"))'Seleciono a perguntaset rs = server.CreateObject("ADODB.Recordset")rs.activeconnection = connrs.CursorLocation = 3rs.CursorType = 0rs.LockType = 1rs.source = "select pergunta from tbl_pergunta"rs.open()'Seleciono as respostasset rs1 = server.CreateObject("ADODB.Recordset")rs1.activeconnection = connrs1.CursorLocation = 3rs1.CursorType = 0rs1.LockType = 1rs1.source = "select id, respostas from tbl_respostas"rs1.open()%><html><head><title>Untitled Document</title><script language="javascript" type="text/javascript">function checa(nform) {//validacao de radio buttons sem saber quantos saomarcado = -1for (i=0; i<nform.op.length; i++) {if (nform.op[i].checked) {marcado = iresposta = nform.op[i].value}}   if (marcado == -1) {alert("Selecione uma opção.");nform.op[0].focus();return false;} else { //esse else so foi colocado para evitar que o form desse o submitreturn true; } return true;}</script></head><body><%= rs("pergunta")%><form action="default.asp" method="post" name="enquete" id="enquete" onSubmit="return checa(this);"><table width="100%" border="0" cellspacing="1" cellpadding="1"><% do while not rs1.eof %><tr><td width="17%" align="right"><input name="op" type="radio" border="0" value="<%= rs1("id")%>" /></td><td width="83%" align="left"><%= rs1("respostas")%></td></tr><% rs1.movenext()loop %><tr><td colspan="2" align="right"><input name="Submit2" type="submit" class="botao" value="VOTAR" /></td></tr></table></form><%voto = request.form("op")if not isempty(request.Form("Submit2")) thenset rs = server.CreateObject("ADODB.Recordset")rs.activeconnection = connrs.CursorLocation = 3rs.CursorType = 0rs.LockType = 1rs.source = "select id_respostas, votos from tbl_votos where id_respostas = "& voto &""rs.open()if not rs.eof theninsere = "update tbl_votos set votos = "& rs("votos") + 1 &" where id_respostas = "& voto &""conn.execute(insere)response.Write("<script>alert('Obrigado pela sua Participação.')</script>")elseinsere = "insert into tbl_votos (id_respostas, votos) values ("& voto &", 1)"conn.execute(insere)response.Write("<script>alert('Obrigado pela sua Participação.')</script>")end ifend if%><div align="center">[url="java script:abre('resultado.asp','Resultado','width=320,height=180')"]Resultado[/url]</div></body></html><%rs.close()set rs = nothingrs1.close()set rs1 = nothingconn.close()set conn = nothing%>
Depôs salve com o nome que você preferis “Obs: no final deve ser de extensão de php” •

 

Código da pagina do resultado:

Aqui a mesma coisa coloque o código abaixo

Em um bloco de notas e salve com o nome que preferir

”Obs: no final deve ser de extensa de php”

 

<%Set conn = Server.CreateObject("ADODB.Connection")conn.Provider = "Microsoft.Jet.OLEDB.4.0"conn.open(Server.MapPath("bd.mdb"))set rs = server.CreateObject("ADODB.Recordset")rs.activeconnection = connrs.CursorLocation = 3rs.CursorType = 0rs.LockType = 1rs.source = "select pergunta from tbl_pergunta"rs.open()set rs1 = server.CreateObject("ADODB.Recordset")rs1.activeconnection = connrs1.CursorLocation = 3rs1.CursorType = 0rs1.LockType = 1rs1.source = "SELECT tbl_respostas.respostas, tbl_votos.votos FROM tbl_respostas INNER JOIN tbl_votos ON tbl_respostas.ID = tbl_votos.id_respostas"rs1.open()set rs2 = server.CreateObject("ADODB.Recordset")rs2.activeconnection = connrs2.CursorLocation = 3rs2.CursorType = 0rs2.LockType = 1rs2.source = "SELECT SUM(votos) AS total FROM tbl_votos"rs2.open()%><html><head><title>Resultado - <%= rs("pergunta")%></title><link href="css.css" rel="stylesheet" type="text/css" /></head><body><table border="0" cellspacing="2" cellpadding="2"><tr class="Titulo-enquete"><td colspan="3"><%= rs("pergunta")%></td></tr>  <% do while not rs1.eof%><tr><td><%= rs1("respostas")%></td><td align="right"><%= formatPercent(formatNumber(rs1("votos"),2)/ formatNumber(rs2("total"),2),2) %></td><td>  [img=imagens/barra.GIF]" height="10" /></td></tr><% rs1.movenext()  loop%>  <tr><td colspan="3" align="left">Total de Votos: <%= rs2("total")%></td></tr></table><p align="right">[url="java script:window.close()"]Fechar[/url]</p></body></html><%rs.close()set rs = nothingrs1.close()set rs1 = nothingrs2.close()set rs2 = nothingconn.close()set conn = nothing%>
Bem já ta quase tudo pronto agora falta colocar na sua pagina certo, bem você deve salva todos esse arquivos que você crio dentro de uma pasta com o nome enquête; depôs coloque essa pasta no diretório onde se encontra seu site, depôs teremos que criar um menu no seu index para que todos tenham acesso a sua enquête. Bem vamos lá:

 

adicione no seu index.php o seguinte codigo:

<tr><td><font face="Verdana, Arial, Helvetica, sans-serif" size="2">[url="[b]Nome do arquino que vc salvo o primeiro codigo.php[/b]"][b]»[b]nome do link que aparcera[/b][/b][/url]</font></td></tr>
Creditos

Davidson"eu"

P/OTNET

[center:7699c796f0]Imagem Postada[/center:7699c796f0]"OBS:Temtando ageitar os erros de português kkkkk"

Compartilhar este post

Link para o post
Linkz    0
Linkz
Postado

Tirando o título ele ta ótimo xDAprovado

Compartilhar este post

Link para o post
Hell Raiser    0
Hell Raiser
Postado

achei manero pq geral vai interagir com o forum , asim fica ate mais show a divulgação do seu ot ;D geral entrando e saindo pra votar e etc...achei rox/hb

Compartilhar este post

Link para o post
Samurai    0
Samurai
Postado

Boa por enquete e legal para saber se as pessoas gostao do ot ou nao, do site ou nao essas coisas...

 

Aprovado!

Compartilhar este post

Link para o post
lokiloko    0
lokiloko
Postado

é bom!! parabens!!

Compartilhar este post

Link para o post
lokiloko    0
lokiloko
Postado

é bom!! parabens!!

Compartilhar este post

Link para o post
Mixrox    0
Mixrox
Postado

aprovado

Compartilhar este post

Link para o post
Mixrox    0
Mixrox
Postado

aprovado

Compartilhar este post

Link para o post
Visitante
Este tópico está impedido de receber novos posts.
Entre para seguir isso  
Seguidores 0
Ir para a lista de tópicos Websites

  • Quem Está Navegando   0 membros estão online

    Nenhum usuário registrado visualizando esta página.

×