Assinar:
Postagens (Atom)
skip to main |
skip to sidebar
www.krettino.blogspot.com
contador test1
<%@ Language=VBScript %>
<%
if session("Visitas")="" or session("Visitas")=0 or session("ip")="" or session("ip")=0 or session("ip")<>Request.ServerVariables("REMOTE_ADDR") or session("id")="" or session("id")=0 or session("id")<>session.SessionID then ' Verifica se o usuário já foi contado, evita que seja contado com um refresh
set conn = server.createObject("ADODB.Connection")
conn.open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("Visitas.mdb") & ";"
sql="Contador"
Set Contador = server.CreateObject("ADODB.RecordSet")
Contador.Open sql,conn,adOpenDynamic,adLockOptimistic,adCmdTable
Visitas=cint(cint(Contador("Visitas"))+1)
session("Visitas")=Visitas
Session("UltimaVisita")=Contador("Ultimo_visitante")
session("IP")=Request.ServerVariables("REMOTE_ADDR")
session("ID")=session.SessionID
Contador.addnew
Contador("Visitas")=cint(Visitas)
Contador("Ultimo_visitante")=cdate(Now())
Contador("IP")=session("IP")
Contador("ID")=session("ID")
Contador.update
Contador.Close
set Contador= nothing
conn.Close
set conn= nothing
end if
%>
Visitas= <%=session("Visitas")%>
Ultima Visita= <%=session("UltimaVisita")%>
Ultimo IP= <%=session("IP")%>
Ultimo ID= <%=session("ID")%>
Ultima Visita= <%=session("UltimaVisita")%>
Ultimo IP= <%=session("IP")%>
Ultimo ID= <%=session("ID")%>
KreTTinO BlogSpot