Faça uma simples estatística do site
Ideias de design: acione o servidor SessionID para gravar o status de login do usuário ao usar a solicitação da página da web do usuário O usuário tem 20 minutos, o usuário quando não houver solicitação de página da web, remova esse usuário.
1. Tabela de dados: adicionamos duas tabelas ao banco de dados
Tabela de linha: SessionId Personagem Tipo 20 -BIT Para gravar a marca exclusiva da solicitação da página da web do cliente
Data de data do usuário Tipo de hora para gravar a hora da última solicitação de página da web do cliente
Id Tipo de número automático
Você também pode gravar outras informações nesta tabela, como contas, IP e outras informações
Tabela de contagem: o tipo de data do usuário do usuário é usado para gravar a data do dia
Count Type Digital é usado para gravar o site Click Volume
Hoje, o tipo digital é usado para gravar o volume de acesso de hoje
O tipo digital máximo é usado para gravar as visitas máximas do dia
Nesta tabela, porque existe apenas um registro, não é necessário usar o campo de identificação, mas manter o campo de identificação é um bom hábito
2. Use Con.asp para processar a tabela de linha
(1) Conecte o banco de dados
Dim Conn
Dim Connstr
DB DB
db = "DATE/DATE.MDB"
Definir Conn = Server.CreateObject ("Adodb.Connection")
Connstr = "Provider = Microsoft.Jet.oledb.4.0; Data Source =" & Server.mappath ("" & db & "")
Conn.Open Connstr
(2) Clear Timeout Records
Conn.Execute ("Excluir da linha onde Datediff (" "S", UserDate, agora ())> = 1200 ")
(3) Registre as informações do cliente na tabela de linha e execute o processamento estatístico do site
Dim SQL, SQL1, RS, RS1
Definir rs = server.createObject ("adodb.oldset")
sql = "Selecione * da linha onde [sessionId] =" "" e session.sessionId & "" "determine se a solicitação inicial de página da web do cliente
Rs.ooopen SQL, Conn, 1,3
Caso contrário, "se for a solicitação de página da web original, grave as informações do cliente, caso contrário, ele alterará apenas o tempo de solicitação
Rs ("userDate") = agora ()
outro
Set rs1 = server.createObject ("adodb.oldset") "
sql1 = "selecione * de [contagem]"
Rs1.open sql1, Conn, 1,3
Se rs.eof, então "se não houver registro na tabela, inicialize esta tabela
Rs.Addnew
Rs ("contagem") = 1
rs ("max") = 1
Rs ("hoje") = 1
Rs ("userDate") = date ()
outro
Rs1 ("count") = rs1 ("contagem") 1 "cliques de cliques contagem de contagem
Se rs1 ("userDate") = date (), então "se a data do sistema for a mesma da última data do registro de dados, adicione 1 visitas 1
Rs1 ("hoje") = rs1 ("hoje") 1
Se outra pessoa diferente, defina o Volume 1 de Acesso Diário e altere a data do registro de dados para a data do servidor
Rs1 ("hoje") = 1
Rs1 ("userDate") = date ()
final se
Rs1.Update
Se rs1 ("max") <= rs1 ("hoje"), então 'se as estatísticas do dia excederem as visitas diárias máximas, atualize as visitas diárias máximas
Rs1 ("max") = rs1 ("hoje")
final se
final se
Rs1.Update
Rs1.close
Definir rs1 = nada
Rs.Addnew "A seguir, as informações do usuário
rs ("sessionId") = session.sessionId "para escrever sessionID na tabela de dados
rs ("userDate") = agora () Escreva a data do sistema para a tabela de dados
final se
rs.update
Rs.close
Definir rs = nada
O processamento acima está pronto para estatísticas.
<!-#incluir file = "Conn.asp"->
<% Dim Count, hoje, Max, linha
Definir rs = server.createObject ("adodb.oldset")
sql = "selecione * de [contagem]" "
Rs.ooopen SQL, Conn, 1,1
Hoje = rs ("hoje")
Contagem = rs ("contagem")
max = rs ("max")
Rs.close
Definir rs = nada
Definir rs = server.createObject ("adodb.oldset")
sql = "Selecione contagem (*) da linha"
Rs.ooopen SQL, Conn, 1,1
Linha = rs (0)
Rs.close
Definir rs = nada
%>
Preparamos as estatísticas do site acima e as colocamos na contagem de variáveis, atualmente, na linha. Na página .asp, podemos usar a resposta.write para produzir e usar incluir para citar, mas na documentação HTML, ele deve Não, então temos que usar as seguintes frases para produzir conteúdo estatístico:
document.write ("visitas ao site: <%= contagem%> pessoas <br>")
Document.Write ("Hoje: <%= Today%> As pessoas visitaram este site <br>")
Document.Write ("As visitas diárias mais altas deste site: <%= max%> pessoas <br>")
document.write ("atual online: <%= line%> pessoas")
Usamos <script src = "line.asp"> </script> para citar este arquivo