Como resolver este problema: Test enlinea

paisano · #1 (**permalink**) 11/01/2003, 17:22

Holas gente, alguien sabe como atacar este problema: Miren el sitio que ando haciendo es de examenes en linea, la parte que estoy haciendo ahorita es cuando el usuario empieza a elegir los reactivos que desea agregar a su examen, como saben mostrare de 5 en 5 y el va elegir cuales va agregar, y todavia no se como hacerle para ir almacenando los numeros de los reactivos que el desea e ir manteniendo esos valores hasta que el usuario presione el boton que almacenara todos los numeros de reactivos seleccionados. ¿Se podre tener algo asi como un Vector mas un contador para cada usuario activo?
Alguien sabra como podre atacar este problema. Me gustaria leer algunas sugerencias se los agradeceria mucho.

cuboo · #2 (**permalink**) 12/01/2003, 05:35

Puedes hacerlo con un objeto dictionary.

creas el objetoy lo guardas en una variable session:

Código:

Dim dic
Set dic=Server.CreateObject("Scripting.Dictionary")

dic.add (id,valor)

session("test")=dic

despues recuperas de nuevo el dictionary para poder agregar mas datos:

Código:

set dic=session("test")

dic.add (id,valor)

y repites el proceso todas las veces que sea necesario.

Para mas informacion sobre el obejto dictionary mira en esta direccion:

http://www.w3schools.com/asp/asp_ref_dictionary.asp

Espero que por lo menos te sirva de orientacion.

Saludos.

paisano · #3 (**permalink**) 12/01/2003, 06:17

Bueno deja lo checo, aunque no me gusta mucho manejar variables session, voy a examinar este objeto que lo he visto en varias ejemplos que lo declran mucho a nivel de session. Ok. Vuelvo.

paisano · #4 (**permalink**) 14/01/2003, 04:11

Mira cubbo encontre como hacerlo usando simples arrays, solo es cuestion de checar el codigo que hice de prueba, mira solo pegua(en) el siguiente trozo de codigo en un script y corranlo:

<% @LANGUAGE="VBScript" %>
<% Option Explicit
Dim campo1,campo2,cadena,cadsal
Dim cad(20),cont,band,ccont,cadt
cont = 0
If Request("cam1") <> "" then
campo1 = Request("cam1")
End if
cadena = Request("cad")
Response.write "<p><h3>Cadena=" & cadena & "</h3></p>"
cont = CInt(Request("cont"))

if len(cadena) > 0 Then
cadt = split(cadena,",",-1,1)
For ccont = 0 To cont - 1
cad(ccont)= cadt(ccont)
Next
If campo1 <> "" Then
cad(cont) = campo1
cont = cont + 1
end if
Else
If campo1 <> "" Then
cad(cont) = campo1
cont = cont + 1
End if
End If
If cont = 0 Then
Response.write "No Hay Nada Todavia"
else
For ccont = 0 To cont - 1
Response.write "<h4>Dato(" & ccont & ")=" & cad(ccont) & "</h4>"
Next
Response.write "<p><h3>Contador=" & cont & "</h3></p>"
End if
%>

<html>
<head>
<title>hidden</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF" text="#000000">
<form name="form1" method="post" action="hidden1.asp">
<p align="center">
<input type="checkbox" name="cam1" value="<%=cont%>">
Pregunta 1</p>
<p align="center">
<input type="submit" name="Submit" value="enviar">
<input type="reset" name="Submit2" value="Reset">
<%
For ccont = 0 To cont - 1
%>
<input type="hidden" name="cad" value="<%=cad(ccont)%>">
<%
Next
%>
<input type="hidden" name="cont" value="<%=cont%>">
</p>
</form>
</body>
</html>

Si tienen algun comentario sobre el script anterior estoy para servir, con esto no hay necesidad de usar variables session y ademas que la ejecucion se hace mas rapido.

Gracias de cuboo por tu comentario. Hasta pronto.