Paieška

FDisk (2009-05-20 02:15:06 ) :: [MM v 1.28 BLOKAS] Mus remia

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
<?php

/**
 * @Projektas: MightMedia TVS
 * @Puslapis: www.coders.lt
 * @$Author: FDisk $
 * @copyright CodeRS ©2008
 * @license GNU General Public License v2
 * @$Date: 2009-04-24 16:06:17 +0300 (Pn, 24 Bal 2009) $
 **/


/*
sukurkit lentele, nepamirskit prirasyti prie lenteles pavadinimo priesaga. 
Priesaga buvo TVS nurodyta diegimo metu. 
Jeigu neatsimenat atsdiarykit faila [priedai/conf.php] ir pažiūrėkit 11 eilutėje. 
Mano atveju priesaga bl_ pakeiskit savu.

CREATE TABLE `bl_referals` (
  `id` int(11) NOT NULL auto_increment,
  `site` varchar(256) default NULL,
  `url` varchar(256) default NULL,
  `count` tinyint(3) unsigned NOT NULL default '0',
  `time_last` timestamp NOT NULL default CURRENT_TIMESTAMP on update CURRENT_TIMESTAMP,
  PRIMARY KEY  (`id`),
  UNIQUE KEY `site` (`site`)
) ENGINE=MyISAM  DEFAULT CHARSET=latin1;

*/

//Apsauga nuo tiesioginio kreipimosi i faila
if (!defined("OK")) {
    
header("HTTP/1.0 404 Not Found");
}

// Nustatom iš kur atejo lankytojas
$is_kur = (isset($_SERVER['HTTP_REFERER']) ? $is_kur htmlspecialchars($_SERVER['HTTP_REFERER'], ENT_QUOTES) : '');

if (!empty(
$is_kur)) {
    
$host parse_url($is_kur);
    
$host htmlspecialchars(strip_tags($host['host']), ENT_QUOTES); // nustatom hosta
    
if ($host != $_SERVER['HTTP_HOST']) {
        
        
mysql_query1("
            INSERT INTO `" 
LENTELES_PRIESAGA "referals` SET `site`=" escape($host) . ", `count`='1', `url`=" escape($is_kur) . "
            ON DUPLICATE KEY UPDATE `count`=`count`+1, `url`=" 
escape($is_kur) . "
        "
);
    }
    unset(
$host$is_kur);
}

//Išvedam rezultatus
$result mysql_query1("SELECT * FROM `" LENTELES_PRIESAGA "referals` ORDER BY `time_last` DESC LIMIT 10");
$text "";
if (
mysql_num_rows($result) > 0) {
    while (
$row mysql_fetch_assoc($result)) {
        
$text .= "<a href=\"" input($row['url']) . "\" target=\"_blank\" title=\"Mus rekomendavo " $row['count'] . " kartų\">" input($row['site']) . "</a><br />";
    }
}
unset(
$result,$row);

?>

Rašyti komentarą

Prašome prisijungti!