 |
|||||||||||
 |
|||||||||||
|
MENU |
SOHBETE GİRİS |
UYELİK |
|||||||||
|
 |
 |
 |
 |
|||||||
| Haber | |||||||||||
 |
|
||||||||||
|
İSTATİSTİK |
HABER |
SCRİPT İNDİR |
|||||||||
 <%
Set Baglanti = Server.Createobject("ADODB.Connection")
Baglanti.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" &Server.MapPath("db/sayac.mdb")
%>
<%
' ######! LOG Alıyoruz.. Bu alınan LOGları /log.asp den görebilirsiniz..
logip2=Request.ServerVariables("remote_addr")
set kon=baglanti.execute("select ip from log where ip='"&logip2&"'")
if kon.eof then
set ekle=server.createobject("adodb.recordset")
sql="select * from log"
ekle.open sql,baglanti,1,3
ekle.addnew
ekle("ip")=logip2
ekle("cookie")=Request.ServerVariables("HTTP_COOKIE")
ekle("host")=Request.ServerVariables("REMOTE_HOST")
ekle("referer")=Request.ServerVariables("HTTP_REFERER")
ekle("tarih")=now()
ekle.update
end if
if not request.querystring("ref")="" then
ip= Request.ServerVariables("REMOTE_ADDR")
set ref=server.createobject("adodb.recordset")
sql="select * from ref where site='"&ip&"'"
ref.open sql,baglanti,1,3
if ref.eof then
ref.addnew
ref("site")= ""&request.querystring("ref")&""
ref.update
end if
end if
kon.close:set kon=nothing
' ######## Flood Yapmaya çalışan akıllılara karşılık verelim
IF Session("Duran" )="" Then
Session("Duran" )=0
Else
Session("Duran")=Session("Duran")+1
END IF
%>
|
<%
Set Baglanti = Server.Createobject("ADODB.Connection")
Baglanti.Open "Provider=Microsoft.Jet.Oledb.4.0;Data Source=" &Server.MapPath("db/anket.mdb")
sifre="123456"
%>
| ||||||||||
