Eventos para controlar usuarios activos

Hola de nuevo!

En el ejemplo de hoy os presento los 4 eventos que nos encontramos en el fichero global.asa.

Los he modificado un poco para que veais cómo se puede llevar la cuenta de los usuarios activos en una web sin necesidad de conectar con base de datos alguna.

1. '-----------------------------------------------  
2. '* (c)2007 - Jesús Muela                       *  
3. '* http://webadicto.blogspot.com/              *  
4. '-----------------------------------------------  
5. Sub Application_onStart() 
6.     Application("usuarios_activos") = 0
7. End Sub 
9. Sub Application_onEnd() 
10. End Sub 
12. Sub Session_onStart() 
13.     Application.Lock
14.     Application("usuarios_activos") = Application("usuarios_activos") + 1
15.     Application.UnLock
16. End Sub 
18. Sub Session_onEnd() 
19.     Application.Lock
20.     Application("usuarios_activos") = Application("usuarios_activos") - 1
21.     Application.UnLock
22. End Sub 

Procedimiento para representar números con imágenes

El ejemplo de hoy sirve para representar por ejemplo, un contador de visitas.

Para ello necesitamos las siguientes imágenes:

Una vez que las tenemos, las metemos en la carpeta img/num/ del directorio de nuestro sitio web.

Ya podemos proceder a llamar a nuestro método.

1. Sub representaNumeroConImagenes(ByVal intNumero)
2.     '----------------------------------------------- 
3.     '* (c)2007 - Jesús Muela                       * 
4.     '* http://webadicto.blogspot.com/              * 
5.     '----------------------------------------------- 
6.     Response.Write "<div style=""border:1px solid;width:132px;margin:0px auto;"">" & vbcrlf
7.     Response.Write "<img alt=""" & intNumero & """ src=""img/num/" & Mid(Right(CStr(FormatNumber(intNumero/1000000, 6)), 6), 1, 1) & ".gif"">"
8.     Response.Write "<img alt=""" & intNumero & """ src=""img/num/" & Mid(Right(CStr(FormatNumber(intNumero/1000000, 6)), 6), 2, 1) & ".gif"">"
9.     Response.Write "<img alt=""" & intNumero & """ src=""img/num/" & Mid(Right(CStr(FormatNumber(intNumero/1000000, 6)), 6), 3, 1) & ".gif"">"
10.     Response.Write "<img alt=""" & intNumero & """ src=""img/num/" & Mid(Right(CStr(FormatNumber(intNumero/1000000, 6)), 6), 4, 1) & ".gif"">"
11.     Response.Write "<img alt=""" & intNumero & """ src=""img/num/" & Mid(Right(CStr(FormatNumber(intNumero/1000000, 6)), 6), 5, 1) & ".gif"">"
12.     Response.Write "<img alt=""" & intNumero & """ src=""img/num/" & Mid(Right(CStr(FormatNumber(intNumero/1000000, 6)), 6), 6, 1) & ".gif"">"
13.     Response.Write "</div>" & vbcrlf
14. End Sub

Función de conversión de fechas para canales RSS

Bienvenidos a mi blog.

En él voy a intentar exponer ejemplos de funciones, procedimientos y otros fragmentos de código que he utilizado en alguna ocasión y que, creo, pueden ser de utilidad para otros usuarios.

Comienzo mi exposición con un ejemplo que es válido para convertir fechas de canales RSS. Por ejemplo: Thu, 04 Jan 2007 11:31:00 GMT.

La función da como resultado la cadena siguiente: 11:31 - Jueves, 4 de Enero de 2007

1. Function strFecha(ByVal strFechaRSS)
2.     '-----------------------------------------------
3.     '* (c)2007 - Jesús Muela                       *
4.     '* http://webadicto.blogspot.com/              *
5.     '-----------------------------------------------
6.     '* Ej: Thu, 04 Jan 2007 11:31:35 GMT           *
7.     '-----------------------------------------------
8.     Dim strHora
9.     Dim strDia
10.     Dim strDiaDeSemanaEspanol
11.     Dim strMesEspanol
12.     Dim strAnno
13.     '-----------------------------------------------
14.     strHora = Left(CStr(DateAdd("h", 1, CDate(Mid(strFechaRSS, 18, 8)))), Len(CStr(DateAdd("h", 1, CDate(Mid(strFechaRSS, 18, 8))))) - 3)
15.     strMesEspanol = strMes(Mid(strFechaRSS, 9, 3))
16.     strDia = CStr(CInt(Mid(strFechaRSS, 6, 2)))
17.     strDiaDeSemanaEspanol = strDiaDeSemana(Left(strFechaRSS, 3))
18.     strAnno = Mid(strFechaRSS, 13, 4)
19.     strFecha = strHora & " - " & strDiaDeSemanaEspanol & ", " & strDia & " de " & strMesEspanol & " de " & strAnno
20. End Function

Para poder utilizar este ejemplo son necesarias otras dos funciones:

Function strDiaDeSemana(ByVal strAbrDiaIngles)
Function strMes(ByVal strAbreviaturaMesIngles)

Función de conversión de nombres de días de la semana abreviados en inglés al español

Esta función recibe como entrada la abreviatura de un día de la semana en inglés y devuelve el día correspondiente en español.

1. Function strDiaDeSemana(ByVal strAbrDiaIngles)
2.     '-----------------------------------------------
3.     '* (c)2007 - Jesús Muela                       *
4.     '* http://webadicto.blogspot.com/              *
5.     '-----------------------------------------------
6.     Select Case LCase(strAbrDiaIngles)
7.         Case "sun"
8.             strDiaDeSemana = "Domingo"
9.         Case "mon"
10.             strDiaDeSemana = "Lunes"
11.         Case "tue"
12.             strDiaDeSemana = "Martes"
13.         Case "wed"
14.             strDiaDeSemana = "Miércoles"
15.         Case "thu"
16.             strDiaDeSemana = "Jueves"
17.         Case "fri"
18.             strDiaDeSemana = "Viernes"
19.         Case "sat"
20.             strDiaDeSemana = "Sábado"
21.     End Select
22. End Function

Función de conversión de nombres de meses abreviados en inglés al español

Esta función recoge una abreviatura de un mes en inglés y devuelve el mes en español.

1. Function strMes(ByVal strAbreviaturaMesIngles)
2.     '-----------------------------------------------
3.     '* (c) Jesús Muela                             *
4.     '* http://webadicto.blogspot.com/              *
5.     '-----------------------------------------------
6.     Select Case LCase(strAbreviaturaMesIngles)
7.         Case "jan"
8.             strMes = "Enero"
9.         Case "feb"
10.             strMes = "Febrero"
11.         Case "mar"
12.             strMes = "Marzo"
13.         Case "apr"
14.             strMes = "Abril"
15.         Case "may"
16.             strMes = "Mayo"
17.         Case "jun"
18.             strMes = "Junio"
19.         Case "jul"
20.             strMes = "Julio"
21.         Case "aug"
22.             strMes = "Agosto"
23.         Case "sep"
24.             strMes = "Septiembre"
25.         Case "oct"
26.             strMes = "Octubre"
27.         Case "now"
28.             strMes = "Noviembre"
29.         Case "dec"
30.             strMes = "Diciembre"
31.     End Select
32. End Function