Asi základní operací v anketním systému – kromě vytvoření ankety a daných odpovědí – je zaznamenání hlasu uživatele. Zde je toto realizováno triviálním vložením záznamu do tabulky ANKETA_HLASOVANI. Jak již bylo řečeno, pro lepší budoucí využití si zaznamenáme čas a IP adresu účastníka. Vzhledem k faktu, že ankety jsou ve velké většině na webu, musíme IP adresu účastníka ošetřit přímo na straně skriptu (řešení na straně databáze není možné).

Uložení času již ovšem můžeme přímo na FB lehce realizovat. Stačí využít proměnnou current_timestamp, která nám dovoluje získat aktuální datum a čas serveru kde je FB v provozu. Vzhledem k tomu, že tato proměnná pracuje na úrovni sekund, pro velký počet vložení doporučuji využít techniky programovacího jazyka a pracovat na úrovní milisekund, hlavně kvůli pozdějšímu sčítání hlasů. Zbytek je velice jednoduchý. Insert příkaz by mohl vypadat například takto:

INSERT INTO anketa_hlasovani (id, id_odpoved, ip, cas) 
  VALUES (NULL, %cislo_odpovedi%, %ip%, CURRENT_TIMESTAMP);

Parametry %cislo_odpovedi% a %ip% jsou dodány skriptem, který vložení provede.

Další akcí, která je neméně důležitá, je zcela určitě získání počtu hlasů u jednotlivých odpovědí – neboť k čemu by nám byla ankety, když bychom neměli její výsledky, případně je nemohli prezentovat. Patrně každého napadne, že někteří "chytří" uživatelé budou chtít kliknout vícekrát a zmanipulovat tím výsledek. Většinou se toto řeší různými cookies a blokováním hlasování nebo omezením hlasování z jedné IP na daný časový interval. Toto však vyžaduje spolupráci webové stránky a my se snažíme maximálně vystačit s prostředky serveru. Proto sice dovolíme víceré vložení záznamu do databáze, ale při výsledném sčítání tyto duplicitní hlasy budeme ignorovat.

My blokaci postavíme na principu IP a času (vida, jak se nám nyní tyto údaje hodí). Omezíme tedy hlasování na maximálně jeden hlas z jedné IP za jeden den. Nepochybně je toto možné omezit i na jiný časový interval, záleží jen na vás. Pro sečtení hlasů využijeme uložených procedur, které nám nabízí vysokou flexibilitu při získávaní výsledků z databáze.

SET TERM ^ ;

CREATE PROCEDURE ANKETA_HLASY_PRO_ODPOVED_MULTI (
    ID_ODPOVED INTEGER)
RETURNS (
    SOUCET INTEGER)
AS
DECLARE VARIABLE POCET INTEGER;
DECLARE VARIABLE DATUM DATE;
BEGIN
  SOUCET = 0;

  /* pekne po castech */
  FOR SELECT DISTINCT CAST(cas AS DATE) FROM anketa_hlasovani
    WHERE id_odpoved=:ID_ODPOVED
    INTO :DATUM
  DO
  BEGIN
    POCET = 0;

    /* spocitame kolik je hlasu */
    SELECT COUNT(DISTINCT ip) FROM anketa_hlasovani
      WHERE id_odpoved=:ID_ODPOVED 
      AND CAST(cas AS DATE)=:DATUM
      INTO :POCET;
    SOUCET = SOUCET + POCET;
  END
  SUSPEND;
END

^

SET TERM ; ^

Procedura nejprve vybere všechna (neopakující se) data (po dnech) pro danou odpověď a pro každé toto datum vypočítá počet unikátních odpovědí. Tyto jednotlivé počty jsou vždy přičítány k výsledku, který je nakonec navrácen.

Jak jste si jistě všimli, procedura umožňuje ve své podstatě hlasovat vícekrát pro různé odpovědi (a počítat je samozřejmě) – jedná se tedy o anketu, kde můžete vybrat i více odpovědí. Zajisté také někoho napadlo, proč toto řešíme tak složitě, když můžeme využít jiných postupů přímo na databázi. Více o rozhodnutí pro použití uložených procedur si povíme příště a ukážeme si také, jak modifikovat naši blokaci pouze pro jedinou možnou odpověď od uživatele.

Případné dotazy můžete napsat pod článek do diskuze nebo do našeho diskuzního fóra.

Související články:

Jak na ankety ve Firebirdu potřetí (19.12.2005)

Jak na ankety ve Firebirdu poprvé (22.10.2005)

( Celý článek! | Autor: Jiří Činčura | Počet komentářů: 5 | Přidat komentář | )