Reentrance

Bluesman74cl · #1 (**permalink**) 29/07/2003, 08:57

Quien me podría dar una major explicacion sobre este tema?

de antemano grax..

AlZuwaga · #2 (**permalink**) 29/07/2003, 12:01

y a qué está relacionado el término "Reentrance"?

Bluesman74cl · #3 (**permalink**) 29/07/2003, 12:52

ya me estaba dando la impresion de que no entenderían el cncepto... es que creo y por lo que he oido que acá en chile se le llama asi al asunto cuando tu llamas a la misma pagina y le pasas valores, no se si me explico ien pero es que me perdí justo esa clase y aunque he preguntado a mis compañeros.. no lo he logrado entender.... solo se que se utiliza la funcion empty() o algo asi.

Don Graff · #4 (**permalink**) 29/07/2003, 12:58

algo asi como recursividad estimado¿...mmm...cachai que busque en el google y me hizo cambiar la busqueda por "reentrancy", claro que ahi me salieron casi puros resultados relacionados con PHP...y en realidad no conozco el termino...

Bluesman74cl · #5 (**permalink**) 29/07/2003, 13:03

para que lo puedan entender es como lo que ocurre con los Calendarios en asp.... cuando haces un click para avanzar en el mes por ejemplo, haces un llamado a la misma pagina y le mandas los valores del mes, el año y el dia.... van entendiendo? ese es el metodo conocido como reentrance pero no lo se hacer .......

AlZuwaga · #6 (**permalink**) 29/07/2003, 13:55

Cita:

cuando haces un click para avanzar en el mes por ejemplo, haces un llamado a la misma pagina y le mandas los valores del mes, el año y el dia.... van entendiendo?

masomenos... o si, pero si es eso no entiendo lo de la recursividad que nuestro amigo "Bobby" (

) comenta

veamos.. cuando una página como la que decís se llama así misma pero con otros parámetros, no es más que hacer un enlace a la misma página pero agregando estos parámetros. Supongamos que estamos en la página "calendario.asp" y queremos pasar al día 01/05/2004. El enlace quedaría, por ejemplo, así:

<a href="calendario.asp?DIA=01/05/2004">Ir al 01/05/2004</a>

ahora supongamos que a priori no sabemos cómo se llama la página. entonces ponemos un ASP que nos devuelva el nombre de la misma:

<a href="<% = Request.ServerVariables("SCRIPT_NAME") %>?DIA=01/05/2004">Ir al 01/05/2004</a>

ahora supongamos que nos interesa ir al primer día de un año determinado pero "recordando" cuál fue el ultimo día visitado (01/05/2004) para luego dar la posibilidad de regresar a el facilmente:

<a href="<% = Request.ServerVariables("SCRIPT_NAME") %>?<% = Request.ServerVariables("QUERYSTRING") %>&ANIO=2003">Ir a enero de 2003</a>

No sé si esto será recursividad, reentrance, reentrancy o qué; pero es lo único que se me ocurre con las palabras que cité de tu mensaje.

saludos

Bluesman74cl · #7 (**permalink**) 29/07/2003, 14:31

Es algo como esto.....

<%
Dim mes
Dim ano
Dim mesAnterior
Dim mesPosterior
Dim primerDia
Dim numeroDia
Dim dias
Dim semanas

mes = Request.Querystring("mes")
ano = Request.Querystring("ano")

If IsEmpty(mes) then mes = Month(Date)
if IsEmpty(ano) then ano = Year(Date)

Call Cabecera (mes, ano)

primerDia = WeekDay(DateSerial(ano, mes, 1)) - 2
numeroDia = 1
response.write (primerDia)

For semanas = 0 to 5
For dias = 0 to 6
If semanas = 0 and dias < primerDia then
response.write "<td> </td>"
else
if numeroDia > diasDelMes(mes, ano) then
response.write "<td> </td>"
else
if semanas = 0 and primerDia < 0 then
dim paso
For paso = 0 to 5
response.write "<td> </td>"
next
response.write "<td"
if mes = Month(Date) and numeroDia = Day(Date) then
response.write " bgcolor='#FF9999' align='center'>"
else
response.write " align='center'>"
end if
primerDia = 1
dias = 6
else
response.write "<td"
if mes = Month(Date) and numeroDia = Day(Date) then
response.write " bgcolor='#FF9999' align='center'>"
else
response.write " align='center'>"
end if
end if
if dias = 6 then

response.write "<a href = 'ingresoActividad.asp?numeroDia= "& numeroDia &"'>" & numeroDia & "</a></td>"
numeroDia = numeroDia + 1
else

response.write "<a href = 'ingresoActividad.asp?numeroDia="&numeroDia&"' >" & numeroDia & "</a></td> "
session("Dia")= numeroDia
numeroDia = numeroDia + 1
end if
end if
End If
Next
response.write "</tr>"
Next

response.write "</table></body></html>"

Sub Cabecera(mes,ano)
%>
<html>
<head>
<meta http-equiv='Content-Type' content='text/html; charset=iso-8859-1'>
</head>

<body bgcolor="#333333" background="file:///C|/Inetpub/wwwroot/calendario/Imagenes/colocolo.jpg" text="#666666" link="#666666" vlink="#666666" alink="#666666"><table border='5' cellspacing='3' cellpadding='3' width='200' align='left'>
<tr align='center'>
<td colspan='7'>
<table border='3' cellspacing='1' cellpadding='1' width='100%'>
<tr>
<td align='left'>


<%
response.write "<a href = 'calendario.asp?"
if mes - 1 = 0 then
mesAnterior = nombreMes(12)
response.write "mes=12&ano=" & ano -1
else
mesAnterior = nombreMes(mes - 1)
response.write "mes=" & mes - 1 & "&ano=" & ano
end if
response.write "'>" & mesAnterior & "</a>"
%>


</td><td align='center'>

<%
response.write "" & nombreMes(mes) & " " & ano & ""
%>



</td><td align='right'>

<%
response.write "<a href = 'calendario.asp?"
if mes + 1 = 13 then
mesPosterior = nombreMes(1)
response.write "mes=1&ano=" & ano + 1
else
mesPosterior = nombreMes(mes + 1)
response.write "mes=" & mes + 1 & "&ano=" & ano
end if
response.write "'>" & mesPosterior & "</a>"
%>



</td></tr></table>
<tr align='center'>
<td>
L</td>
<td>
M</td>
<td>
M</td>
<td>
J</td>
<td>
V</td>
<td>
S</td>
<td>
D</td>
</tr>
<%
End Sub

Function nombreMes(mes)
Select Case mes
Case 1
nombreMes = "Enero"
Case 2
nombreMes = "Febrero"
Case 3
nombreMes = "Marzo"
Case 4
nombreMes = "Abril"
Case 5
nombreMes = "Mayo"
Case 6
nombreMes = "Junio"
Case 7
nombreMes = "Julio"
Case 8
nombreMes = "Agosto"
Case 9
nombreMes = "Septiembre"
Case 10
nombreMes = "Octubre"
Case 11
nombreMes = "Noviembre"
Case 12
nombreMes = "Diciembre"
Case Else
nombreMes = "ERROR!"
End Select
End Function

Function diasDelMes(mes, ano)

Select Case mes
Case 1, 3, 5, 7, 8, 10, 12
diasDelMes = 31

Case 4, 6, 9, 11
diasDelMes = 30

Case 2
If IsDate(ano & "-" & mes & "-" & "29") Then diasDelMes = 29 Else diasDelMes = 28

Case Else
diasDelMes = 0

End Select
End Function
%>