Um exemplo de estatísticas que podem numerar visitantes, visitas de gravação, IP e tempo
Eu fiz um site, www.zydn.net, é claro, como todos os outros, também coloquei um balcão nele. Eu vi os balcões constantemente caíam todos os dias e fiquei muito feliz, mas depois pensei que estava assistindo meu site? Um novo amigo ou um velho amigo? Não sei quantas vezes eles vieram, mas ainda quero numerar todos eles, então me inscrevi em estatísticas gratuitas, mas não fiquei satisfeito com as n mudanças em uma fileira. Infelizmente, parece que apenas fazendo isso você mesmo, você pode ter comida e roupas suficientes e fazê -lo como diz. O nível é fedido. Espero que os mestres rirem disso e não peça conselhos.
Eu tomo a biblioteca de acesso como exemplo. De fato, usando a biblioteca SQLServer, você pode apenas alterar as instruções na biblioteca de links.
A estrutura da biblioteca é a seguinte
Nome do arquivo da biblioteca: cont.asp foi originalmente cont.mdb, mas após a compilação, a extensão foi alterada para ASP para impedir que a biblioteca seja baixada.
Nome da tabela: guia
Nome do campo Tipo de dados Descrição
Identificar automaticamente o número do visitante
O texto IP é usado para gravar o IP do visitante
DAT1 Data Hora é usada para gravar o último visitante visitante
A data da data é usada para gravar o horário em que o visitante visita pela primeira vez
Número CS, tipo inteiro é usado para gravar o número de visitas ao visitante
O programa é muito simples, existem apenas dois arquivos, discont.asp é usado para exibir resultados estatísticos, contpage.asp é usado para exibir informações estatísticas,
Vamos primeiro dar uma olhada nas estatísticas do Contpage.asp, e o código é o seguinte:
<%
SetConn = server.createObject ("adodb.connection")
Connstr = "dbq ="+server.mappath ("cont.asp")+"; defaultDir =; driver = {Microsoft AccessDriver (*. Mdb)};"
Conn.OPENCONNTR '***** A instrução acima é usada para se conectar à biblioteca e cont.asp é o nome do arquivo da biblioteca.
Keren = request.cookies ("Keren") 'Leia cookies, o nome dos cookies é: "Keren", haha. . A literatura de Yu é tão ruim que ele só sabe usar Pinyin.
ifkeren = "" Então, se os cookies estão vazios. Se estiverem vazios, devem ser novos amigos, caso contrário, são velhos amigos.
sql = "Selecione*FromTabwhered = -1"
setrs = server.createObject ("adodb.recordset")
Rs.opensql, Conn, 1,3
Rs.Addnew'Se for um novo visitante, adicione um novo registro na biblioteca.
rs ("cs") = 1 'Nota O número de visitas é 1
rs ("ip") = request.Servervariables ("remote_addr") 'Observe o IP,
rs ("dat") = agora não me é a data e hora atuais,
rs ("dat1") = date'tell a data atual e a data a ser usada para a primeira visita no futuro.
Response.Cookies ("Keren") = RS ("ID") 'Escreva um cookie e o conteúdo é o mesmo que o ID.