Ir para conteúdo
Fórum Script Brasil
  • 0

Brquiz

Guest Aline

Perguntado por Guest Aline,

 Share

Pergunta

Guest Aline

Guest Aline

Postado
Postado

Olá pessoal tudo bem,

Acredito que todos conhecem o BRQUIZ, eu baixei este aplicativo mas queria fazer uma alteração na página principal, é o seguinte, lá tu podes inserir diversas perguntas com diversas respostas, mas na tela principal só abre a ultima pergunta com suas respostas, o que eu queria, fazer com que na tela principal fosse possivel mostrar lado a lado as perguntas e suas respostas, agora a explicação do por que, eu estou fazendo um site onde existe uma area de QUIZ para pesquisa e lá eu queria deixar tipo 3 blocos lado a lado de perguntas com suas respostas em baixo para que o usuário responda o que lhe agradou no momento, mas não queria rotatividade pois é chato, eu quero tudo disponível em uma só página, não seise fui bem clara ;) , bom aguardo respostas.

bjs

Ahura.

Link para o comentário
Compartilhar em outros sites

9 respostass a esta questão

Posts Recomendados

  • 0
Guest Aline

Guest Aline

Postado
Postado
<!--#include file="config.inc" -->

<%

Response.Expires = 60

Response.Expiresabsolute = Now() - 1

Response.AddHeader "pragma","no-cache"

Response.AddHeader "cache-control","private"

Response.CacheControl = "no-cache"

if Session("brquiz") <> "logado" then

Response.Redirect("login.asp")

else

Session.TimeOut = "1"

strCon = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath(bdados)

Set conn = Server.CreateObject("ADODB.Connection")

conn.open strCon

sql = "SELECT * FROM perguntas"

Set rs = Server.CreateObject("ADODB.Recordset")

rs.CursorType = 3

rs.CursorLocation = 3

rs.LockType = 3

rs.Open sql, conn

'if NOT rs.eof then

'Randomize

'perg_id = array(Int((rs.recordcount * Rnd) + 1))

'end if

'perg = Spit(perg_id, ",", -1, 1)

Dim Arr()

Dim i, RowCount

RowCount = RS.RecordCount

Redim Arr(RowCount - 1)

For i = 0 To RowCount - 1

Arr(i) = RS("id")

rs.movenext

Next

Randomize

perg_id = Arr(Int((Ubound(arr) + 1) * rnd))

rs.close

sql2 = "SELECT * FROM perguntas WHERE id = "& perg_id & ""

Set rs2 = Server.CreateObject("ADODB.Recordset")

rs2.Open sql2, conn

' Verifica se o existe a pergunta selecionada aleatoreamente, não houver a página será recarregada...

' Então evite deletar perguntas do banco de dados do quiz!

if rs2.eof then

response.redirect("quiz.asp")

end if

%>

<html>

<head>

<meta http-equiv="Content-Language" content="en-us">

<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">

<title>BrQuiz</title>

</head>

<body>

<p align="center">

<%

sql3 = "SELECT * FROM usuarios WHERE login = '" & Session("username") & "'"

Set rs3 = Server.CreateObject("ADODB.Recordset")

rs3.CursorType = 3

rs3.CursorLocation = 3

rs3.LockType = 3

rs3.Open sql3, conn

%>

<img border="0" src="logo.gif" WIDTH="406" HEIGHT="110">

<p align="center">

<center>

<font size="2" face="Tahoma">

Usuário: <%=Session("username")%> <br>

Pontos: <%=rs3("pontos")%> <Br><br>

<b>Aviso:</b> Você tem exatamente <b>1 minuto</b> pra responder a pergunta, caso não responda, você precisará logar novamente!

</font>

</center>

</p>

<form method="POST" action="responde.asp" name="responde">

<div align="center">

<center>

<table border="0" width="36%" cellspacing="0" cellpadding="0" height="115">

<tr>

<td width="100%" height="31" bgcolor="#000000"><font color="#FFFFFF" size="2" face="Tahoma">&nbsp;&nbsp;<%=rs2("pergunta")%></font></td>

</tr>

<tr>

<td width="100%" height="21"><input type="radio" value="1" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rs2("resp1")%></font></td>

</tr>

<tr>

<td width="100%" height="21"><input type="radio" value="2" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rs2("resp2")%></font></td>

</tr>

<tr>

<td width="100%" height="21"><input type="radio" value="3" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rs2("resp3")%></font></td>

</tr>

<tr>

<td width="100%" height="21"><input type="radio" value="4" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rs2("resp4")%></font></td>

</tr>

<tr>

<td width="100%" height="21"></td>

</tr>

</center>

<tr>

<td width="100%" height="21">

<p align="left"><input border="0" src="responder.gif" name="I1" type="image" WIDTH="190" HEIGHT="19" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700; ; background-color:#FFFFCC"></td>

</tr>

</table>

</div>

<input type="hidden" name="id" value="<%=rs2("id")%>">

</form>

<p align="center"><br><a href="logout.asp"><img border="0" src="logout.gif" WIDTH="151" HEIGHT="29"></a>

<%

end if

%>

</body>

</html>

Então ... é esta ai a página que abre para o usuário no momento do login se você perceber só abre uma pergunta com uma resposta, o código completo esta em: BR QUIZ.

obrigada.

Aline

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Guest

Guest Guest

Postado
Postado
Olá pessoal tudo bem,

Acredito que todos conhecem o BRQUIZ, eu baixei este aplicativo mas queria fazer uma alteração na página principal, é o seguinte, lá tu podes inserir diversas perguntas com diversas respostas, mas na tela principal só abre a ultima pergunta com suas respostas, o que eu queria, fazer com que na tela principal fosse possivel mostrar lado a lado as perguntas e suas respostas, agora a explicação do por que, eu estou fazendo um site onde existe uma area de QUIZ para pesquisa e lá eu queria deixar tipo 3 blocos lado a lado de perguntas com suas respostas em baixo para que o usuário responda o que lhe agradou no momento, mas não queria rotatividade pois é chato, eu quero tudo disponível em uma só página, não seise fui bem clara ;) , bom aguardo respostas.

bjs

Ahura.

AGUÈM SABE COMO EU FAÇO ISSO???????

Link para o comentário
Compartilhar em outros sites
  • 0
pgmador

pgmador

Postado
Postado

Vou te dar as idéias que tive. Primeiro acho que você deve ter uma tabela de perguntas e outra de respostas.

'Voce faz um select com top.
rs.open "Select top 3 * from perguntas",conn

'Agora pega as perguntas que estao cadastradas.
p1=rs("pergunta")
rs.movenext
p2=rs("pergunta")
rs.movenext
p3=("pergunta")
Agora manda fazer as tabelas do quiz 
<%
Set rsp1 = Server.CreateObject("ADODB.Recordset")
rsp1.open "select * from perguntas where id='"&p1&"'"
%>
<table border="0" width="36%" cellspacing="0" cellpadding="0" height="115">
<tr>
<td width="100%" height="31" bgcolor="#000000"><font color="#FFFFFF" size="2" face="Tahoma">&nbsp;&nbsp;<%=rsp1("pergunta")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="1" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp1("resp1")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="2" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp1("resp2")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="3" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp1("resp3")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="4" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp1("resp4")%></font></td>
</tr>
<tr>
<td width="100%" height="21"></td>
</tr>
</center>
<tr>
<td width="100%" height="21">
<p align="left"><input border="0" src="responder.gif" name="I1" type="image" WIDTH="190" HEIGHT="19" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"></td>
</tr>
</table>

<%
Set rsp2 = Server.CreateObject("ADODB.Recordset")
rsp2.open "select * from perguntas where id='"&p2&"'"
%>
<table border="0" width="36%" cellspacing="0" cellpadding="0" height="115">
<tr>
<td width="100%" height="31" bgcolor="#000000"><font color="#FFFFFF" size="2" face="Tahoma">&nbsp;&nbsp;<%=rsp1("pergunta")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="1" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp2("resp1")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="2" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp2("resp2")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="3" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp2("resp3")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="4" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp2("resp4")%></font></td>
</tr>
<tr>
<td width="100%" height="21"></td>
</tr>
</center>
<tr>
<td width="100%" height="21">
<p align="left"><input border="0" src="responder.gif" name="I1" type="image" WIDTH="190" HEIGHT="19" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"></td>
</tr>
</table>

<%
Set rsp3 = Server.CreateObject("ADODB.Recordset")
rsp3.open "select * from perguntas where id='"&p3&"'"
%>
<table border="0" width="36%" cellspacing="0" cellpadding="0" height="115">
<tr>
<td width="100%" height="31" bgcolor="#000000"><font color="#FFFFFF" size="2" face="Tahoma">&nbsp;&nbsp;<%=rsp3("pergunta")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="1" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp3("resp1")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="2" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp3("resp2")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="3" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp3("resp3")%></font></td>
</tr>
<tr>
<td width="100%" height="21"><input type="radio" value="4" name="resposta" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"><font size="2" face="Tahoma"><%=rsp3("resp4")%></font></td>
</tr>
<tr>
<td width="100%" height="21"></td>
</tr>
</center>
<tr>
<td width="100%" height="21">
<p align="left"><input border="0" src="responder.gif" name="I1" type="image" WIDTH="190" HEIGHT="19" style="font-family: Tahoma; font-size: 8 pt; color: #008000; border: 1px dashed #DEE700;; background-color:#FFFFCC"></td>
</tr>
</table>

Algo assim...

[]'s

Nelson Soares

http://www.ondagospel.com.br

Link para o comentário
Compartilhar em outros sites
  • 0
Guest ALine

Guest ALine

Postado
Postado

Legal funcionou só mais uma coisa como eu poderia coloca-lo lado a lado, por exemplo no código que voce fez tem três perguntas com as respostas lado a lado , eu pretento colocar mais tres perguntas mas queria duas colunas, como eu faço isso

desculpa te incomodar é que sou nova na programação

bjs

Aline.

Link para o comentário
Compartilhar em outros sites
  • 0
Guest Aline

Guest Aline

Postado
Postado
Aline... pessa o moderador para fechar o seu tópico quando tiver com suas duvidas todas resolvidas..., e um modo de organizacao.. para que o pessoal não responda outras vezes...

Boa Sorte com o ASP!!!

Ok, joaquim eu não sabia

Ao moderador, por favor gostaria que fechasse o tópico consegui tirar minhas dúvidas.

bjs,

Aline

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.

×
 Share
Ir para lista de Perguntas


  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,5k
×
×
  • Criar Novo...