Log de Visitas

[valterjrs 0]

Bom dia pessoal,

Alguém tem exemplo de log de visitas, tipo assim quando o usuário acessar a página ele guardara em um banco de dados o nome do usuário, data e hora e página acessada.

 

At.

Valter Júnior

[Mário Monteiro 179]

mas é so isso que voce disse mesmo é um inset a cada visita

 

o que fez até o momento?

[valterjrs 0]

Até agora so tenho login, e não to sabendo como fazer esse log de acesso, tem nenhum exemplo ai não Mário ??

 

At.

Valter Júnior

[Mário Monteiro 179]

Voce nao tem nenhum conehecimento na linguagem, certo?

[valterjrs 0]

Isso Mário to começando a aprender (sozinho) e me deparei com essa dificuldade.

 

At.

Valter Júnior

[Mário Monteiro 179]

sugiro que de uma pesquisada aqui mesmo no forum ou no google mesmo para ter pelo menos um inicio e partir dele lhe ajudarmos

[valterjrs 0]

Pessoal,

Consegui após muito esforço fazer o que estava qrendo através do código abaixo. Agora to com uma dúvida, como faço para inserir no bd a informação de que páginas o usuário acessou e o que ele fez, tipo assim ele cadastrou um chamado, abriu uma consulta, etc.

 

menu.asp

<%
	Set conexao2 = Server.CreateObject("ADODB.Connection")
	conexao2.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.MapPath("dados\acessos.mdb")&";"
	
	Set add_action2 = Server.CreateObject ("ADODB.Recordset")
	add_action2.Open "acessossite",conexao2,3,3	
	Function exFormatDate(strDate, DateTemplate)
  If not IsDate(strDate) Then
	exFormatDate = strDate
	Exit Function
  End If
  DateTemplate = replace(DateTemplate,"%mmmm",MonthName(DatePart("m",strDate),False),1,-1,0)
  DateTemplate = replace(DateTemplate,"%mmm",MonthName(DatePart("m",strDate),True),1,-1,0)
  DateTemplate = replace(DateTemplate,"%mm",right("0" & DatePart("m",strDate),2),1,-1,0)
  DateTemplate = replace(DateTemplate,"%m",DatePart("m",strDate),1,-1,0)
  DateTemplate = replace(DateTemplate,"%dddd",WeekDayName(DatePart("w",strDate,1),False),1,-1,0)
  DateTemplate = replace(DateTemplate,"%ddd",WeekDayName(DatePart("w",strDate,1),True),1,-1,0)
  DateTemplate = replace(DateTemplate,"%dd",right("0" & DatePart("d",strDate),2),1,-1,0)
  DateTemplate = replace(DateTemplate,"%d",DatePart("d",strDate),1,-1,0)
  'DateTemplate = replace(DateTemplate,"%o",intToOrdinal(DatePart("d",strDate)),1,-1,0)
  DateTemplate = replace(DateTemplate,"%yyyy",DatePart("yyyy",strDate),1,-1,0)
  DateTemplate = replace(DateTemplate,"%yy",right(DatePart("yyyy",strDate),2),1,-1,0)
  DateTemplate = replace(DateTemplate,"%y",cInt(right(DatePart("yyyy",strDate),2)),1,-1,0)
  exFormatDate = DateTemplate
End Function 
%>
<% 
							varnome = Session("login")
							while Not add_action2.EOF
								If add_action2("nome") = Session("login") then
									encontrounome = true
									vdatalogon = add_action2("data")
									vdatalogon = exFormatDate(add_action2("data"), "%dd/%mm/%yyyy")
									vhoralogon = add_action2("hora")
								end if	
								add_action2.MoveNext
							wend		
							'encontrounome = false					
						 %>
											   <%
							add_action2.AddNew
							add_action2("data") = date()
							add_action2("hora") = time()
							add_action2("nome") = Session("login")
							add_action2.Update
%>

At.

Valter Júnior

[Mário Monteiro 179]

voce recupera a informaçaõ da pagina que ele está com Servervariables ai insere normalmente

[valterjrs 0]

O Servervariables tenho que colok em todas as páginas q tenho no site ??

 

At.

Valter Júnior

[Mário Monteiro 179]

em todas as paginas que voce precisa armazenar a sua visita