Vamos primeiro criar um novo banco de dados ACCESS
O conteúdo é
Nome da tabela: zai
Os campos são
1.ip
2.tempo
Crie um arquivo como index.asp
Então siga o procedimento abaixo!
<%
'================================================ ================================================= =
'
'************************ Programa Bingling Online de Contagem de Pessoas V2.0 ***************** *** **********
'
'O programa deste site é produzido de forma independente por "Bingling Studio" - Ice Cream Swordsman! Por favor, respeite os frutos do seu trabalho
'
' "Bingling Studio"─━╃→Crie personalidade com força
'
'* Autor: Espadachim de Sorvete
'* Site: http://www.blbcn.com
'* E-mail: [email protected]
'*QQ:68156987
'* Endereço: Wuxi, Jiangsu
'********************************************** ******************************
'
'Direitos autorais·Plágio e apropriação indébita serão investigados
'
'================================================ ================================================= =
'--------Definir variáveis
escurece
dimip
tempo limite de escurecimento
escurecer x
conexão fraca
dimdbpath
'---------Fim da definição de variáveis
'---------Link de banco de dados sugerido
definir conn=server.createobject(adodb.connection)
DBPath = Servidor.MapPath(zai.mdb)
conn.Open driver={Driver Microsoft Access (*.mdb)};dbq= & DBPath
'---------Estabelecimento do link do banco de dados concluído
'---------Cria um novo objeto RS do banco de dados
definir rs = server.createobject(adodb.recordset)
'---------Criação do objeto RS do banco de dados concluída
'---------Lê o endereço IP do cliente
ip = Request.ServerVariables(HTTP_X_FORWARDED_FOR) 'Se a outra parte usar um servidor proxy para acessar a Internet, use Request.ServerVariables(HTTP_X_FORWARDED_FOR) para obter o IP real da outra parte se a outra parte não acessar a Internet através de um servidor proxy. , o valor IP estará vazio.
If ip = Then ip = Request.ServerVariables(REMOTE_ADDR) 'Se o valor do IP estiver vazio, obtenha o endereço do cliente local
'---------Leitura de IP concluída
'--------- Leia o número de novos conteúdos adicionados ao banco de dados nos últimos 20 minutos, agrupe por tabela de IP Os valores de IP são iguais a 1
sql=selecione ip de zai onde time >= dateadd('n',-20,now()) agrupar por ip
rs.Abrir sql,conn,1,1
zai=rs.RecordCount
rs.Fechar
'--------Obter o número de pessoas online
'---------Verifica se já existe o mesmo valor no banco de dados, se não, x=sim, se não, x=não
sql=selecione ip de zai onde ip=' & ip & '
rs.Abrir sql,conn,1,1
se rs.eof e rs.bof então
x = sim
outro
x = não
terminar se
rs.fechar
'--------Julgamento concluído
'-------Se não houver o mesmo valor no banco de dados, adicione um novo valor
if x=yes then' Se não existir tal IP, adicione um registro
sql=selecione 1 primeiro * de zai
rs.Abrir sql,conn,1,3
rs.AdicionarNovo
rs(ip)=ip
rs(hora)=agora()
rs.atualização
rs.fechar
else 'Se existir este IP, altere a hora para a hora atual
sql=select * de zai onde ip=' & ip & '
rs.Abrir sql,conn,1,3
rs(hora)=agora()
rs.atualização
rs.fechar
terminar se
'-------- Julgue que a adesão está completa
'--------Excluir o valor adicionado há 20 minutos
tempo limite = dataadicionada(n, -20, agora())
sql=delete * de zai onde time < # & timeout & #
conexão.Executar sql
'--------Exclusão concluída
'--------Fecha o objeto de dados
definir rs = nada
conexão.Fechar
definir conn = nada
%>
document.write(Total <%=zai%> pessoas online)
OK!
Feito!