Postagens
Não informado
bru_smurf@hotmail.com
Bom sou iniciante super novato em asp.. por aqui já consigui fazer algumas coisas com a ajuda do pessoal...
Ja postei sem sucesso a seguinte duvida:
Eu peguei o sistema BrQuiz, mto bom, porém ele repete perguntas e tals, eu gostaria que ele não repetisse perguntas.. me falaram pra eu guardar em matrizes, mas nem sei o que é isso e como funciona.. gostaria de saber como faz..
Com a ajuda do pessoal aqui eu fiz o ranking pra esse sistema!
Agora só falta não repetir perguntas, se puderem me ajudar.. ai segue o código:
<!--#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>Olímpiada de Básicos - Mc Voluntários 2005</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.jpg" WIDTH="254" HEIGHT="150">
<p align="center">
<center>
<font size="2" face="Tahoma"><b>
Usuário:</b> <%=Session("username")%> <br>
<b>Pontos:</b> <%=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="#FFFFFF"><font color="#000000" size="2" face="Tahoma"> <%=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; "><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; "><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;"><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; "><font size="2" face="Tahoma"><%=rs2("resp4")%></font></td>
</tr>
<tr>
<td width="100%" height="21"></td>
</tr>
<tr>
<td width="100%" height="21"><p align="center">
<input border="0" src="responder.gif" name="I1" type="image" WIDTH="190" HEIGHT="19" style="font-family: Tahoma; font-size: 8 pt; color: #008000; ">
</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>[]'s
BrUnO!
