CepTR.com

quote:


<% if left(Request.ServerVariables("HTTP_REFERER"),len(website_url))<> website_url then set db = Server.CreateObject("ADODB.Connection") connect="Driver={Microsoft Access Driver (*.mdb)}; DBQ="& server.mappath("pw99_webstats.mdb") db.Open connect sql = "select count(datum) as eintraege from stats where datum = '"&date&"'" set rs = db.execute(sql) if cint(rs("eintraege"))=0 then sql = "insert into stats (datum, visits) values('"&date&"', 1)" db.execute(sql) else sql = "update stats set visits = visits + 1 where datum = '"&date&"'" db.execute(sql) end if ref = trim(Request.ServerVariables("HTTP_REFERER")) if len(ref)>0 then sql = "insert into refer (refer) values ('"& ref &"')" db.execute(sql) end if rs.close db.close set rs = nothing set db = nothing end if %>

quote:

Orjinalden alıntı: redforce

ok

quote:

Orjinalden alıntı: webline

Bu Aykut bey Mp3 scriptini mp3 yazan yerlerini dosya olarak değiştirmiş warez bir scripti bu paraya satman doğru değil script yapımcılarının emeklerine yazık oluyor siteni satarken beriltmen lazım bütün mp3 siteleri kunlanıyor bu scripti

quote:


<?php
/*
paFileDB 3.1
©2001/2002 PHP Arena
Written by Todd
todd@phparena.net
http://www.phparena.net
Keep all copyright links on the script visible
Please read the license included with this script for more information.
*/
header("Location: pafiledb.php?action=admin");
?>

quote:

Orjinalden alıntı: MetaLiaZ

quote: <?php /* paFileDB 3.1 ©2001/2002 PHP Arena Written by Todd todd@phparena.net http://www.phparena.net Keep all copyright links on the script visible Please read the license included with this script for more information. */ header("Location: pafiledb.php?action=admin"); ?>

Kaynak : admin.php

Tekrar inceledim scripti emeğine sağlık aykutbeyin

quote:

Orjinalden alıntı: kostebek

aykut amcanın scriptindeki kodları düzgün incelerseniz kendi yapmadıgını çoooook rahat anlarsınız

edit: 650 mi