Test Foro de elhacker.net SMF 2.1

Torli · 30 Diciembre 2018, 02:31 AM

Saludos a todos!

Espero puedan orientarme con este pequeño problema.
Tengo una plataforma similar a Moodle para exámenes en linea. Mi problema radica en que después de que mi alumno ya selecciono su respuesta, el sistema automáticamente después de 5 segundos me guarda los id tanto de la pregunta como de la respuesta en mi base de datos. PERO NO LOGRO HACER QUE DESPUÉS QUE YA GUARDO ME CARGUE LA SIGUIENTE PREGUNTA.

Código (asp) [Seleccionar]


<%
	lad=request.querystring("tas")
	vidp=request.querystring("idp")
	
	set cnx=Server.CreateObject("ADODB.Connection")
	set myrs=CreateObject("ADODB.Recordset")
	cnx.ConnectionString=Application("MyCon")
	cnx.open
	strsql="select * from personal where usuario='"+lad+"'"
	myrs.ActiveConnection=cnx
	myrs.source=strsql
	myrs.open, ,0,2	
%>
<script language="javascript">
function pb(log)
{   	
	var rb=document.getElementsByName("res");	
	var nulo=100;	
	for(var i=0;i<rb.length;i++)
	{
		if(rb[i].checked)
		{			
			nulo=rb[i].value						
		}			
	}		
	window.location.href="respuestas.asp?nul="+nulo+"&idp="+log;		
}						
		
</script>
<html>
	<head>
		<title>Cuerpo</title>
	</head>
	<body>
		<br><br><br><br><br><br><br><br><br><br><br><br><br>										
				<%
					'Alumno
					if vidp=3 then%>
					<table border="2" align="center">
			<tr>
				<td><h1><p><%response.write myrs("Nombre")%></p></h1></td></tr>
			
			</table><br><br>
					<table border="2" align="center">
						<tr>
							<td>
					<%
					    set myrsv=CreateObject("ADODB.Recordset")  
						vsql="SELECT Materia.*, Personal.Nombre, Personal.Usuario, Asignacion.*, Aplicacion.* FROM (Personal INNER JOIN (Materia INNER JOIN Asignacion ON Materia.Id_materia = Asignacion.Id_materia) ON Personal.Id_personal = Asignacion.Id_personal) INNER JOIN Aplicacion ON Asignacion.Id_asignacion = Aplicacion.Id_asignacion WHERE (((Personal.Usuario)='"+lad+"'))"
						myrsv.ActiveConnection=cnx
						myrsv.source=vsql
						myrsv.open ,,0,2	
						vfechsis=date()
						vhorasis=time()
						myrsv.movefirst
						do while(not(myrsv.eof))
							vfech=myrsv("Fecha")
							vhora=myrsv("Hora_inicio")
							vhoraf=myrsv("Hora_fin")
							if vfech=vfechsis then
							   if vhorasis>=vhora then
							     if vhorasis<=vhoraf then
								   vidm=myrsv("Asignacion.Id_Materia")
								   
								   'random
								   inicio=1
								   fin=5
								   randomize()
								   num=int((fin-inicio+1)*rnd+inicio)
								   
								   'Abre las preguntas de acuerdo al random
								   set myrsp=CreateObject("ADODB.Recordset")  
								   sqlp="SELECT * FROM preguntas WHERE (((preguntas.id_materia)="+cstr(vidm)+") AND ((preguntas.[No])="+cstr(num)+"))"
								   myrsp.ActiveConnection=cnx
								   myrsp.source=sqlp								   
								   myrsp.open ,,0,2	
								   vidr=myrsp("id_pregunta")  	
								   
								   'Valida que no se repita la pregunta
								   set myrsl=CreateObject("ADODB.recordset")
								   sqll="select * from resultados"
								   myrsl.activeConnection=cnx
								   myrsl.source=sqll
								   myrsl.open, ,0,2
									if (myrsl.eof and myrsl.bof) then										
										response.write myrsp("descripcion")	
									else 
										
									end if
									
								   %> 
								   </td></tr></table><br><br>								   
										<table border="2" align="center">								   
								   <tr><td>								 
								   <%								   
								   'abre las respuestas de cuerdo a la pregunta
								   set myrsr=CreateObject("ADODB.Recordset")  
								   sqlr="SELECT * FROM respuestas WHERE id_pregunta="+cstr(vidr)
								   myrsr.ActiveConnection=cnx
								   myrsr.source=sqlr
								   myrsr.open ,,0,2								   
								   myrsr.movefirst								   
								   do while(not(myrsr.eof)) 
								   %>
									 <br><input type="radio" onclick="pb(<%response.write vidr%>)" name="res" value="<% response.write myrsr("id_respuesta") %>"><% response.write myrsr("respuesta") %>								   
								   <%							
									myrsr.movenext
								   loop
									%>
									<input type="hidden" name="idpre" id="idpre" value="<% response.write vidr %>">
									<%								   
								   exit do	
								 end if  
								end if 
							end if 
							myrsv.movenext
						loop												
					%>
				</td>				
				<script language="javascript">
					setTimeout("pb(<%response.write vidr%>)",5000);
				</script>
			</tr>	
		<%
			end if
		%>
		</table>

Torli · 30 Diciembre 2018, 02:42 AM

Segundo archivo en donde guardo.

Código (asp) [Seleccionar]



<%
	idpre=Request.QueryString("idp") 
	idres=Request.QueryString("nul")	
	
	if idres=100 then
		respuesta=null
	else
		respuesta=idres
	end if
	
	set cnx=Server.CreateObject("ADODB.Connection")
	set myrsa=CreateObject("ADODB.Recordset")
	cnx.ConnectionString=Application("MyCon")
	cnx.open
	asql="SELECT * from resultados"
	myrsa.ActiveConnection=cnx
	myrsa.source=asql
	myrsa.open, ,0,2	
	
	if myrsa.eof and myrsa.bof then
		id=1
	else
		myrsa.movelast
		id=myrsa("id_resultados")+1
	end if	
	myrsa.addnew
	myrsa("id_resultados")=id
	myrsa("id_pregunta")=idpre
	myrsa("id_respuesta")=respuesta
	myrsa.update
%>

Test Foro de elhacker.net SMF 2.1

ASP

Torli

Torli