<%
GoogleBocuk = Request.ServerVariables("HTTP_USER_AGENT")
If GoogleBocuk = "
Googlebot" Then
Set Baglanti=Server.CreateObject("ADODB.Connection")
CSQL="Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=Veritabani;Uid=K ullaniciAdi; Pwd=
Parola;"
Baglanti.Open CSQL
Set Rscik= Server.CreateObject("ADODB.Recordset")
Agent=GoogleBocuk
Ip=Request.ServerVariables("Remote_ADDR")
Tarih=Date
Referer=Request.ServerVariables("HTTP_REFERER")
Baglanti.Execute("insert into Google (Agent,Tarih,Referer,Ip) values (”"&Agent&"”,”"&Tarih&"”,”"&Referer&"”,”"&Ip&"”) ")
End If
%>
NOT : Bu işlemin çalışması için Google adında bir tablo oluşturuyoruz ve bu tabloda Agent, Tarih, Referer, Ip adında sütunlar oluşturuyoruz bunu access ilede yapabilirsiniz ben MySQL veritabanı örneğini verdim.
Ne işe yarar bu kod: Bu googlenin sitenizi ziyaret ettiği zamanlarda veritabanına gönderir sizde google ne kadar sık sitenizi geziyor anlarsınız.