WN - Visa ett inlägg

ccato · 2006-03-01, 12:14

Citat:

Originally posted by vaf0r@Mar 1 2006, 13:12
Rubriken säger kanske inte så mycket men vet inte vad jag ska skriva för att det ska förstås rätt.. Jag söker efter något script som typ sidor som ostfrallan , com, trist , nu använder scriptet ska kunna räkna click på varje "rolig länk sak" och även dölja ursprungs urlen. Hoppas ni förstår vad jag menar

Här har du en variant i Perl som gör det du efterfrågar. Går enkelt att porta till Php eller liknande, principen är samma.

Kod:

sub showlink
{
    my $id = shift();
    &initdb();

    # get url and clicks
    $sth = $dbh->prepare ("SELECT url,title,clicks FROM links WHERE id=$id") or doError("Cannot prepare query");
    $sth->execute () or doError ("Cannot execute query");
    my ($url,$title,$clicks) = $sth->fetchrow_array;
    $sth->finish();

    # update clicks
    $clicks++;
    $sth = $dbh->prepare ("UPDATE links SET clicks=$clicks WHERE id=$id");
    $sth->execute or doError("Cannot execute query");
    $sth->finish();

    # print redirect page
    print $q->header();
    print qq|<HTML><HEAD><TITLE>Laddar länken</TITLE><META http-equiv="refresh" content="3; URL=$url"></HEAD><BODY BGCOLOR="#eeeeee"><table border="0" height="100%" width="100%"><td align="center" valign="middle"><font face="Verdana,Arial,Sans-serif" size="2"><B>&Ouml;ppnar $title</B></td></table></BODY></HTML>|;
    &finish();
}