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>Öppnar $title</B></td></table></BODY></HTML>|;
&finish();
}