|
|
<%
GraSepararNombres=False
GraDecimales=2
GraNumBarras=12
GraMaximo=1
GraSumaTotal=1
Dim TotBar(36)
Dim Nombre(36)
Dim NombreL(36)
dim colorcito(36)
colorcito(1)="blue"
colorcito(2)="orange"
colorcito(3)="brown"
colorcito(4)="yellow"
colorcito(5)="red"
colorcito(6)="green"
colorcito(7)="gray"
colorcito(8)="black"
colorcito(9)="blue"
colorcito(10)="green"
colorcito(11)="pink"
colorcito(12)="cyan"
colorcito(13)="blue"
colorcito(14)="orange"
colorcito(15)="brown"
colorcito(16)="yellow"
colorcito(17)="red"
colorcito(18)="green"
colorcito(19)="gray"
colorcito(20)="black"
colorcito(21)="blue"
colorcito(22)="green"
colorcito(23)="pink"
colorcito(24)="cyan"
colorcito(25)="blue"
colorcito(26)="orange"
colorcito(27)="brown"
colorcito(28)="yellow"
colorcito(29)="red"
colorcito(30)="green"
colorcito(31)="gray"
colorcito(32)="black"
colorcito(33)="blue"
colorcito(34)="green"
colorcito(35)="pink"
colorcito(36)="cyan"
cien=maximo*100/GraSumaTotal
dim NombreMes(12)
NombreMes(1)="Enero"
NombreMes(2)="Febrero"
NombreMes(3)="Marzo"
NombreMes(4)="Abril"
NombreMes(5)="Mayo"
NombreMes(6)="Junio"
NombreMes(7)="Julio"
NombreMes(8)="Agosto"
NombreMes(9)="Septiembre"
NombreMes(10)="Octubre"
NombreMes(11)="Noviembre"
NombreMes(12)="Diciembre"
dim DiasMes(12)
DiasMes(1)=31
DiasMes(2)=28
DiasMes(3)=31
DiasMes(4)=30
DiasMes(5)=31
DiasMes(6)=30
DiasMes(7)=31
DiasMes(8)=31
DiasMes(9)=30
DiasMes(10)=31
DiasMes(11)=30
DiasMes(12)=31
%>
Reporte General
<%= FormatNumber(Application("ChapulinCount"),0) %> Visitantes desde Abril de 2006
<%
GraNumBarras=0
GraMaximo=0
GraSumaTotal=0
sql="select count(*) as cuantos from boletin"
Set rs=cn.Execute(sql)
cuantos=rs("cuantos")
%>
Usuarios Inscritos al Boletín: <%= FormatNumber(cuantos,0)%>
PAGINAS ABIERTAS POR AÑO (*) |
Año |
Páginas
Abiertas |
Promedio
Diario |
Crecimiento |
<%
sql="select * from estadisticas order by fecha"
Set rs=cn.Execute(sql)
fecha1=rs("fecha")
do while not rs.eof
fecha2=rs("fecha")
rs.MoveNext
loop
SumaPaginas=0
Crecimiento=0
i=0
for n=2006 to year(now())
i=i+1
sql=""
sql=sql&"SELECT Year([Fecha]) AS Ano, Sum(EstadisticaMensual.Visitantes) AS SumaDeVisitantes "
sql=sql&"FROM EstadisticaMensual "
sql=sql&"GROUP BY Year([Fecha]) "
sql=sql&"HAVING (((Year([Fecha]))="&n&")); "
Set rs=cn.Execute(sql)
%>
<%= n%> |
<%= FormatNumber(rs("SumaDeVisitantes"),0)%> |
<%
if rs("SumaDeVisitantes")>GraMaximo then
GraMaximo=rs("SumaDeVisitantes")
end if
GraNumBarras = GraNumBarras + 1
GraSumaTotal = GraSumaTotal + rs("SumaDeVisitantes")
TotBar(i)=rs("SumaDeVisitantes")
NombreL(i)=n&": "&FormatNumber(rs("SumaDeVisitantes"),0)&" pags. vistas"
Nombre(i)=n
if n=2006 then
FechaIni=Fecha1
FechaFin=CDate("12/31/2006")
else
ultimoAno=year(fecha2)
if n<>ultimoAno then
FechaIni=CDate("01/01/"&n)
FechaFin=CDate("12/31/"&n)
else
FechaIni=CDate("01/01/"&n)
FechaFin=Fecha2
end if
end if
CuantosDias=DateDiff("d",FechaIni,FechaFin)
Promedio=rs("SumaDeVisitantes")/CuantosDias
if Crecimiento<>0 then
Crecimiento=(rs("SumaDeVisitantes")*100)/Crecimiento-100
end if
%>
<%= FormatNumber(Promedio,0)%> |
<%= FormatNumber(Crecimiento,1)%> % |
<%
Crecimiento=rs("SumaDeVisitantes")
SumaPaginas=SumaPaginas+rs("SumaDeVisitantes")
next
CuantosDias=DateDiff("d",fecha1,fecha2)
Promedio=SumaPaginas/CuantosDias
sql="SELECT * FROM EstadisticaMensual ORDER BY Visitantes DESC"
Set rs=cn.Execute(sql)
MejorMes=Month(rs("Fecha"))
MejorAno=Year(rs("Fecha"))
MejorVis=rs("Visitantes")
%>
Total General |
<%= FormatNumber(SumaPaginas,0)%> |
<%= FormatNumber(Promedio,0)%> |
|
<%
GraSepararNombres=False
BarraGrande=250
BarraAncho=50
GraDecimales=2
MuestraGrafica
%>
|
| |
<%
'if MesC<>"" then
sql = "SELECT * From EstadisticaTrim"
Set rs = cn.Execute(sql)
%>
Año/Trim |
Páginas
abiertas |
Crecimiento |
<%
GraNumBarras=0
GraSumaTotal=0
GraMaximo=0
i=0
Crecimiento=0
do while not rs.eof
i=i+1
if Crecimiento<>0 then
Crecimiento=(rs("Paginas")*100)/Crecimiento-100
end if
%>
<%= rs("Ano")&"/"&rs("Trim")%> |
<%= FormatNumber(rs("Paginas"),0)%> |
<%= FormatNumber(Crecimiento,2)%>% |
<% Crecimiento=rs("Paginas")
if rs("Paginas")>GraMaximo then
GraMaximo=rs("Paginas")
end if
GraNumBarras = GraNumBarras + 1
GraSumaTotal = GraSumaTotal + rs("Paginas")
TotBar(i)=rs("Paginas")
NombreL(i)=rs("Ano")&"/"&rs("Trim")&": "&FormatNumber(rs("Paginas"),0)&" pags. vistas"
Nombre(i)=rs("Trim")&"/"&right(rs("Ano"),2)
rs.MoveNext
Loop %>
<%
GraSepararNombres=True
BarraGrande=280
BarraAncho=30
GraDecimales=1
MuestraGrafica
%>
<%
'end if
%> |
| |
Comparativo Mensual
Mes más activo: <%= NombreMes(MejorMes)&" de "&MejorAno%> con <%=FormatNumber(MejorVis,0)%> visitas
<%
if MesC<>"" then
sql = "SELECT * From EstadisticaMensual WHERE (Month(Fecha)) = " & MesC & " ORDER BY Fecha"
Set rs = cn.Execute(sql)
%>
COMPARATIVO DEL MES DE <%= UCase(NombreMes(MesC))%> (*) |
Año |
Páginas
abiertas |
Promedio
diario |
Crecimiento |
<%
GraNumBarras=0
GraSumaTotal=0
GraMaximo=0
i=0
Crecimiento=0
do while not rs.eof
i=i+1
if Crecimiento<>0 then
Crecimiento=(rs("Visitantes")*100)/Crecimiento-100
end if
%>
<%= Year(rs("Fecha"))%> |
<%= FormatNumber(rs("Visitantes"),0)%> |
<%if Month(rs("Fecha"))=Month(Now()) and Year(rs("Fecha"))=Year(Now()) then%>
<%= FormatNumber(rs("Visitantes")/Day(Now()),0)%> |
<%else%>
<%= FormatNumber(rs("Visitantes")/DiasMes(Month(rs("Fecha"))),0)%> |
<%end if%>
<%= FormatNumber(Crecimiento,2)%>% |
<% Crecimiento=rs("Visitantes")
if rs("Visitantes")>GraMaximo then
GraMaximo=rs("Visitantes")
end if
GraNumBarras = GraNumBarras + 1
GraSumaTotal = GraSumaTotal + rs("Visitantes")
TotBar(i)=rs("Visitantes")
NombreL(i)=left(NombreMes(Month(rs("Fecha"))),3)&"/"&Year(rs("Fecha"))&": "&FormatNumber(rs("Visitantes"),0)&" pags. vistas"
Nombre(i)=Year(rs("Fecha"))
rs.MoveNext
Loop %>
<%
GraSepararNombres=False
BarraGrande=150
BarraAncho=35
GraDecimales=2
MuestraGrafica
%>
<%
end if
%>
|
| |
Accesos por Año
<%
if AnoC<>"" then
sql = "SELECT * From EstadisticaMensual WHERE (Year(Fecha)) = " & AnoC & " ORDER BY Fecha"
Set rs = cn.Execute(sql)
%>
INGRESOS DE <%= AnoC%> (*) |
Mes |
Páginas
abiertas |
Promedio
diario |
<%
GraNumBarras=0
GraSumaTotal=0
GraMaximo=0
i=0
do while not rs.eof
i=i+1
%>
<%= NombreMes(Month(rs("Fecha")))%>
|
<%= FormatNumber(rs("Visitantes"),0)%> |
<%if Month(rs("Fecha"))=Month(Now()) and Year(rs("Fecha"))=Year(Now()) then%>
<%= FormatNumber(rs("Visitantes")/Day(Now()),0)%> |
<%else%>
<%= FormatNumber(rs("Visitantes")/DiasMes(Month(rs("Fecha"))),0)%> |
<%end if%>
<%
if rs("Visitantes")>GraMaximo then
GraMaximo=rs("Visitantes")
end if
GraNumBarras = GraNumBarras + 1
GraSumaTotal = GraSumaTotal + rs("Visitantes")
TotBar(i)=rs("Visitantes")
NombreL(i)=left(NombreMes(Month(rs("Fecha"))),3)&"/"&Year(rs("Fecha"))&": "&FormatNumber(rs("Visitantes"),0)&" pags. vistas"
Nombre(i)=left(NombreMes(Month(rs("Fecha"))),3)
rs.MoveNext
Loop %>
<%
GraSepararNombres=True
BarraGrande=250
BarraAncho=30
GraDecimales=1
MuestraGrafica
%>
<%
end if
%>
* Las estadísticas anteriores fueron elaboradas en base a la última actualización:
Semana del <%= Day(fecha2)&" de "&NombreMes(Month(fecha2))&" de "&Year(fecha2)%> |
| |
Posición en Buscadores
Ejemplos de nuestra posición en los búscadores más importantes:
Todo el contenido en nuestra guía turística se encuentra posicionado en las primeras páginas de estos buscadores. |
| |
|
<%
Sub MuestraGrafica()
' ***************************************************
' *** Este bloque de ASP despliega la gráfica ***
' *** con los parámetros cargados en el proceso ***
' ***************************************************
nombres=""
for i=1 to GraNumBarras
nombres=nombres & " | "
nombres=nombres & " "&NombreL(i)&" | "
next
nombres=nombres & "| | (* Valores en gráfica expresados en miles) | "
nombres=nombres & " "
barra=""
for i=1 to GraNumBarras
tama=int(TotBar(i)*BarraGrande/GraMaximo)
Barra=Barra & " | | "
Barra=Barra & "" & FormatNumber(TotBar(i)/1000,0)&""
Barra=Barra & " "
Barra=Barra & " | "
next
if GraSepararNombres then
Barra=Barra & " | | "
else
Barra=Barra & " | " & nombres & " | "
end if
raya="
