Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Mensajes - Torli

Páginas1
#1
Desarrollo Web / Re: ASP
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
%>
#2
Desarrollo Web / ASP
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>
Páginas1