<% '- Sayaç İstatistik ------------------------------------------------------------------------------------- Set bag3 = Server.CreateObject("ADODB.Connection") vtyol = "driver={Microsoft Access Driver (*.mdb)};" & _ "dbq=" & Server.MapPath("databs/saymiscebani.mdb") bag3.Open vtyol ipNo = Request.ServerVariables("Remote_Addr" ) Set RS=server.createObject("ADODB.Recordset") SQL = "Select * From SAYAC " RS.open SQL,bag3,1,3 RS.movefirst if RS("tarih") = date() then if ipNo<>RS("clickIP") then RS.fields("ziyaret") = RS.fields("ziyaret") + 1 end if RS("clickIP")= ipNo saybugun=RS("ziyaret") else if ipNo=RS("clickIP") then RS("tarih")=date() RS("ziyaret") = 1 end if RS("clickIP")= ipNo saybugun=1 end if RS.getrows(1) RS("tarih") = date() if ipNo<>RS("clickIP") then RS("ziyaret") = RS("ziyaret") + 1 end if RS("ziyaret") = RS("ziyaret") saytoplam=RS("ziyaret") RS("clickIP")= ipNo RS.update '-------------------------------------------------------------------------------------------------------- %>
| Bugün : | <%=saybugun%> |
| Toplam : | <%=saytoplam%> |
| IP Numaranız : | <%=ipNo%> |