Quando não consegui acessar a Internet na escola, mudei o programa de blog e adicionei uma contagem on -line do blog. Antes disso, também li vários códigos que contam usuários on -line. Eu senti que eles não atendiam aos meus requisitos, então escrevi um em combinação com o programa de blog e o apliquei no meu blog.
Alguns métodos para a ASP contando o número de usuários on -line são mencionados no blog do FDRAME. Para detalhes, veja aqui.
Para equilibrar a precisão e a eficiência, usei uma abordagem passiva para contar pessoas on -line, ou seja, atualizar o número de pessoas on -line quando houver novos visitantes. Não sei se alguém usou esse método na Internet, mas estou usando agora exatamente o que penso ^_ ^.
A sessão é usada no L-Blog para determinar se um visitante é um novo visitante. O tempo limite da sessão geralmente é de 20 minutos, que podem ser usados para contar o número de pessoas on -line, ou seja, os visitantes que estão ativos em 20 minutos pensam estar online.
Existe o seguinte código em Common.asp para registrar registros de acesso:
A cópia do código é a seguinte:
'Guest_ip é o IP do hóspede
IfSession ("Guestip") <> hunder_ipthen
DIMGEEST_AGENT, CONVERTÁRIO_REFER
'Guest_AGent e Guest_Refer Access Records devem ser usados
Guest_Agent = Trim (request.Servervariables ("http_user_agent")))
Guest_Refer = Trim (request.Servervariables ("http_referer")))
'Adicione um registro de acesso
Conn.execute ("insertIntoblog_counter (couns_ip, couns_agent, couns_refer) valores
('"& Guest_ip &"', '"& Guest_Agent &"', '
'Adicione 1 visita
Conn.Execute ("UPDATEBLOG_INFOSETBLOG_VISITNUMS = blog_Visitnums1")
Sqlquerynums = sqlquerynums2
'Salve o IP do convidado com sessão
Sessão ("Guestip") = Guest_ip
Endif
Para obter estatísticas de usuário on -line, fiz algumas alterações no banco de dados:
1. Adicionado 1 campo blog_onlinenums (número inteiro) à tabela blog_info, para salvar o número atual de usuários on -line do site.
2. Adicionado tabela blog_onine, e os campos estão definidos como: ol_id (número automático), ol_ip (caractere, 20), ol_time (data/hora, valor padrão agora).
O código de estatísticas do site modificado é o seguinte:
A cópia do código é a seguinte:
'Código de estatísticas do site
IfSession ("Guestip") <> hunder_ipthen
'Contador de acesso ao site original
Conn.Execute ("InsertIntoblog_Counter (Couns_ip, Couns_Agent, Couns_Refer)
Values ('"& Guest_ip &"', '"& Guest_Agent &"
Conn.Execute ("UPDATEBLOG_INFOSETBLOG_VISITNUMS = blog_visitnums+1")
Sqlquerynums = sqlquerynums+2
Sessão ("Guestip") = Guest_ip
'Número online de pessoas
'Basta deter