Главная страница


ru.website

 
 - RU.WEBSITE -------------------------------------------------------------------
 From : Oleg Bykov                           2:5020/400     04 Jun 2001  08:49:50
 To : All
 Subject : Re: Счетчик скачивания
 -------------------------------------------------------------------------------- 
 
 
 "Alexander Orlov" <Alexander.Orlov@p37.f49.n5022.z2.fidonet.org> wrote in
 message news:991499763@p37.f49.n5022.z2.ftn...
 
 >     Hello Besogonov!
 
 >  AO>> Я так делал на ASP, как делать на Перле пока не
 
 а вот как сделал я не перле (да простит меня модератор)
 ---------------------------------------------------------------------------
 #!perl -w
 use DB_File;
 use CGI;
 $send = new CGI;
 my $file = $send->param("name");
 tie %h, "DB_File", "stat"
         or die "Cannot open file 'stat': $!\n";
  my $value = $h{$file}++;
 untie %h;
 print "Content-type: text/html\n\n";
 print "<html><head>\n";
 print "<title></title>\n";
 print "<META HTTP-EQUIV=\"Refresh\" Content=\"0; URL=$file\">\n";
 print "</head>\n";
 print "<body>\n";
 print "</body></html>\n";
 ---------------------------------------------------------------------------
 Достоинстава:
 1. скрипт сразу отдает файл
 2. при появлении новых ссылок не надо менять скрипт (не надо отслеживать id
 файла)
 3. т.к. это база данных, то все удобства вытекающие при работе с БД (весит
 всего 40 кбайт!)
 4 . легко просматривать статистику
 
 Как это все работает
 при 1-ом обращениик скрипту, он создает БД (тот самый файл 40 кбайт)
 т.к. естественно он пуст он заносит информацию по объекту с которого была
 ссылка и отдает его браузеру если это хтмл или на сохранение если zip, rar и
 т.д.
 при повторном обращении он ищет его в БД и увеличивает кол-во доунлоудов на
 1
 если объект не найден в БД скрипт добовляет его.
 В HTML легко перевести любой файл на статистику
 
 Было  <a href="http://10.8.68.24/WebChart.html">График</a>
 Стало <a
 href="http://10.8.68.24/cgi-bin/stat.pl?name=http://10.8.68.24/WebChart.html
 ">График</a>
 
 Еще раз прошу прощения за перл, уж больно много было разговоров.
 --- ifmail v.2.15dev5
  * Origin: posted via news server of ASUNeft JSC (2:5020/400)
 
 

Вернуться к списку тем, сортированных по: возрастание даты  уменьшение даты  тема  автор 

 Тема:    Автор:    Дата:  
 Счетчик скачивания   Artur Shevtsov   23 May 2001 10:16:46 
 Счетчик скачивания   Alexander Orlov   24 May 2001 11:01:04 
 Счетчик скачивания   Besogonov Alex   28 May 2001 19:50:30 
 Счетчик скачивания   Alexander Orlov   02 Jun 2001 20:29:42 
 Re: Счетчик скачивания   Oleg Bykov   04 Jun 2001 08:49:50 
 Счетчик скачивания   Besogonov Alex   28 May 2001 19:01:15 
 Счетчик скачивания   Ilia Kantor   26 May 2001 00:15:30 
Архивное /ru.website/1043077f62898.html, оценка 2 из 5, голосов 10
Яндекс.Метрика
Valid HTML 4.01 Transitional