Ez egy példa.

A fenti fejléc kiírja 'Ez egy példa'.

A programblokkok kommentezésére alkalmas megjegyzéseket nem lehet egymásba ágyazni.

2. Webes aktív oldalak készítése adatbázis eléréssel

28 / 91

2.8. Operátor, kifejezés, elágazás, ciklus, eljárás ASP-ben

Ebben a részben az ASP főbb programkonstrukcióit mutatom be szintaxisuk megadásával és rövidebb példaprogramokon keresztül. Ismertetem, hogy milyen operátorokat használhatunk, milyen precedenciával értékelődnek ki a kifejezésekben szereplő operátorok. De a teljes részletesség nem célom. Továbbá ismertetem a lényegesebb programkonstrukciókat, azaz milyen módon lehet elágazásokat és ciklusokat írni, valamint hogy lehet függvényeket, eljárásokat meghívni és írni. Nem mutatnám be az előre megírt eljárásokat. Későbbiekben, ahol valamilyen beépített eljáráshívást használok és nem egyértelmű, hogy mire szolgál, ott megmagyarázom megjegyzésként.

Operátor Az egyes kifejezésekből, pl. változókból az operátorok segítségével újabb kifejezéseket hozhatunk létre, amelyeknek az értékét szintén változókban tárolhatjuk, ha szükséges. Nagyon fontos, hogy az operátorok hogyan értékelődnek ki, azaz milyen operátorprecedencia szerint kerül meghatározásra az értékük. Ha egy kifejezés több különböző kategóriájú operátort tartalmaz, akkor először az aritmetikai operátorok értékelődnek ki, majd az összehasonlító operátorok és legvégül a logikai operátorok. Természetesen zárójelezéssel befolyásolhatjuk az operátorok kiértékelésének a sorrendjét. Az összehasonlító operátorok azonos precedenciával rendelkeznek, azaz kiértékelésük balról-jobbra sorrendben történik, ahogyan szerepelnek. Az aritmetikai és logikai operátorok a következő sorrendben értékelődnek ki (felül a nagyobb precedenciájú): 1. Aritmetikai operátorok

2. Összehasonlító operátorok

3. Logikai operátorok

Negálás (-) Hatványozás (^) Szorzás és osztás (*, /) Egész osztás (\) Modulus (Mod) Összeadás és kivonás (+, -) String konkatenálás (&)

Egyenlő (=) Nem egyenlő (<>) Kisebb mint (<) Nagyobb mint (>) Kisebb egyenlő (<=) Nagyobb egyenlő (>=) Is

Not (logikai tagadás) And (logikai ÉS) Or (logikai VAGY) Xor (logikai kizáró VAGY) Eqv (logikai egyenlőség) Imp (logikai implikáció)

Ha egy kifejezésben a szorzás és az osztás együtt szerepel, akkor a kiértékelés balróljobbara történik. Ugyanez igaz, akkor, ha az összeadás és a kivonás szerepelnek együtt egy kifejezésben. A string konkatenáló operátor (&) nem aritmetikai operátor, de a precedenciája kisebb az aritmetikai operátorokénál, de nagyobb az összehasonlító operátoroknál. Az Is operátor egy objektum referencia összehasonlító operátor. Vagyis nem az objektumokat vagy azok értékét hasonlítja össze, hanem azt hogy, ugyanarra az objektumra hivatkoznak-e.

Kifejezés Az egyik legfontosabb kifejezés az értékadás, pl. A=10. A fenti operátorokat használva bonyolultabb értékadásokat is le tudunk írni, pl. A=A-B+10. Valamint a kifejezések szerepelhetnek az utasítások - például az elágazás - feltétel részében, nem csak az értékadás jobb oldalán. A kifejezésekben szerepelhetnek eljáráshívások is, pl. A=MyFunc(A, B, 10)-5.

2. Webes aktív oldalak készítése adatbázis eléréssel

29 / 91

Elágazás

A feltétel speciális kifejezés, nevezetesen a feltételnél mindig logikai változót, vagy logikai kifejezést várunk. Ha nem azt adunk meg, akkor a változóban tárolt szám vagy szöveg értéke határozza meg, hogy az adott feltétel igaz-e, vagy hamis-e. Szintaxis

Példa

If feltétel Then utasítások [Else else-utasítások ] If feltétel Then [utasítások] [ElseIf n. feltétel Then [elseif-utasítások]] . . . [Else [else-utasítások]] End If

If A > B Then A=A-B : C=1 Else B=B-A : C=0 If A >B Then A=A-B C=1 ElseIf A=B Then C=2 Else B=B-A C=0 End If Select Case strColor Case "red" strSzin = "piros" Case "green" strSzin = "zöld" Case "blue" strSzin = "kék" Case Else strSzin = "fekete" End Select

Select Case kifejezés [Case kifejezéslista] [utasítosok] [Case Else] [else-utasítások] End Select

Ciklus While esetén, amíg igaz a feltétel, Until esetén, amíg a feltétel igazzá nem válik, hajtja végig az utasításokat a ciklus. Do … Loop ciklus belsejéből az Exit Do utasítással is kiléphetünk. Szintaxis

Példa

Do [{While | Until} feltétel] [utasítások] [Exit Do] [utasítások] Loop Do [utasítások] [Exit Do] [utasítások] Loop [{While | Until} feltétel]

C=20 Do Until c=0 C=C-1 Loop

Rem Tömb összes eleme szerinti ciklus. For Each elem In csoport [utasítások] [Exit For] [utasítások] Next Rem számláló kezdőértékét növeli (csökkenti) a lépés értékéRem vel, amíg kisebb (nagyobb) egyenlő, mint a végérték For számláló = kezdőérték To végérték [Step lépés] [utasítások] [Exit For] [utasítások] Next Rem addig hajtja végre, amíg igaz (TRUE) a feltétel While feltétel Wend

Dim Check, Counter Check = True: Counter = 0 ' Kezdő értékadás a változóknak. Do ' Küldő ciklus. Do While Counter < 20 ' Belső ciklus. Counter = Counter + 1 ' Számláló növelése. If Counter = 10 Then Check = False Exit Do ' Kilépés a belső ciklusból. End If Loop Loop Until Check = False ' Kilépés a külső ciklusból. Dim tomb[10] Rem Értékadás tömbnek Dim szumma ' Ebbe kerül bele szumma=0 For Each elem In tomb szumma = szumma + elem Next For I = 1 To 10 For J = 2 To 30 Step 2 IJ = I * J Next Next

Dim C C=0 While c<20 C=C+1 Wend

2. Webes aktív oldalak készítése adatbázis eléréssel

30 / 91

Eljárás Szintaxis

Példa

Rem Függvény írása, ami rendelkezik visszatérési értékkel [Public [Default] | Private] Function név [(argumentumlista)] [utasítások] [név = kifejezés] [Exit Function] [utasítások] [név = kifejezés] End Function Rem Eljárás írása, nincsen visszatérési értéke [Public [Default] | Private] Sub név [(argumentumlista)] [utasítások] [Exit Sub] [utasítások] End Sub Rem Függvény vagy eljárás hívása [Call] név [(argumentumlista)] Rem név futtatása, különösen érdekes A = B esetén, ami Rem lehet értékadás vagy logikai kifejezés is Execute név

Rem ASP-ben Public és Private nem játszik fontos szerepet Function Osszeg ( numA, numB) Osszeg = 0 If numA < 0 And numB < 0 Then Exit Function Osszeg = A + B End Function

Rem kiértékeli a név kifejezést Eval név

Sub Eljaras (numP) If numP > 0 Then Response.Write ”Pozitív szám” Else Response.Write ”Negatív szám” End Sub Call Osszes(2, 3) Eljaras(4) Execute B = 6 S = "Sub Proc2" & vbCrLf S = S & " Print X" & vbCrLf S = S & "End Sub" Execute S Eval A*B+C Eval A=5

2.9. Operátor, kifejezés, elágazás, ciklus, eljárás PHP-ben Ebben a fejezetben az előző fejezethez hasonlóan a PHP főbb programozási elemeit mutatom be. A PHP erősen kifejezés-orientált nyelv. A legegyszerűbb kifejezések a változók és az állandók. Értékadás segítségével, valamint az operátorok használatával új kifejezéseket hozhatunk létre. Lényegesen több operátor van a PHP nyelvben, mint az ASP. Hasonlóan itt is, ha külön zárójelezéssel nem jelezzük, akkor az operátorok precedenciája határozza meg, hogy mi lesz az új kifejezés értéke. Továbbá ismertetem a hagyományos programozási konstrukciókat példákon keresztül: elágazás, ciklus, eljárás.

Operátor Az operátorok itt is több kategóriába sorolhatók: aritmetikai, hozzárendelő, bitorientált, összehasonlító, hibakezelő, végrehajtó, növelő/csökkentő, logikai, string. Kategóriák szerint külön felsorolom rövid megjegyzésekkel az egyes operátorokat. A PHP-ben számos olyan operátort találhatunk, amely kifejezhető máshogy is, ilyenek például, a speciális hozzárendelő operátorok (+=, -=, *=, /=, %=, stb.). Például az összeadás esetén az ’$a = $a + 3;’ utasítás helyett egyszerűen ’$a +=3;’ utasítást írhatunk. Az alábbi táblázatban látható az operátorok precedenciája, illetve az asszociativitás iránya. Az összehasonlító operátorok nem köthető operátorok, mivel itt az asszociativitás nem értelmezett. PHP-ben nem implementálták a hatványozást, arra a pow() függvény szolgál. A táblázat az operátorkat precedenciájuk szerint növekvő sorrendben tartalmazza.

2. Webes aktív oldalak készítése adatbázis eléréssel



 





  

 

Asszociativitás

Operátorok

balról-jobbra balról-jobbra balról-jobbra balról-jobbra jobbról-balra balról-jobbra balról-jobbra balról-jobbra balról-jobbra balról-jobbra balról-jobbra nem köthető nem köthető balról-jobbra balról-jobbra balról-jobbra jobbról-balra jobbról-balra nem köthető

, or xor and print =, +=, -=, *=, /=, .=, %=, &=, |=, ^=, ~=, <<=, >>= :? || && ^ & ==, !=, ===, !== <, <=, >, >= <<, >> +, -, . *, /, % !, ~, ++, --, (int), (float), (string), (array), (object), @ [] new()

31 / 91

Aritmetikai operátorok: összeadás (+), kivonás (-), szorzás (*), osztás (/), modulus (%). Az osztás egész osztás, vagyis az eredmény egész lesz, kivéve ha az egyik operandus lebegőpontos szám volt. Alapvető hozzárendelő operátor: = . Például: $a = ($b = 4) + 5. Itt $b értéke 4 és $a értéke 9. Speciális hozzárendelő operátorok: +=, -=, *=, /=, .=, %=, &=, |=, ^=, ~=, <<=, >>= . Az alapvető hozzárendelő operátor és az előtte álló operátor kombinációja, lerövidíti az értékadásokat, pl. $a = $a + 3 helyett $a += 3 írható. Bitorientált operátorok: bitenkénti ÉS (&), bitenkénti VAGY (|), bitenkénti kizáró VAGY (^), bitenkénti tagadás (~), eltolás balra (<<), eltolás jobbra (>>). Bitenkénti tagadás egyoperandusú, míg a többi kettő. Valamint $a<<$b illetve $a>>$b esetén az $a változó bitjeit toljuk el balra, illetve jobbra a $b számú bittel. Összehasonlító operátorok: egyenlő (==), azonos (===), nem egyenlő (!= vagy <>), nem azonos (!===), kisebb mint (<), nagyobb mint (>), kisebb egyenlő (<=), nagyobb egyenlő (>=). Az azonos operátor annyiban tér el az egyenlő operátortól, hogy nem csak az értékek egyenlősége kerül összehasonlításra, hanem az is, hogy azonos típusúak-e. Feltételes operátor ($a ? $b : $c) úgy működik, mint a C-ben, azaz, ha az $a értéke igaz, akkor $b kifejezést értékeli ki, ha hamis, akkor $c kifejezést. Hibakezelő operátor: @ . Az operátort egy PHP kifejezés elé írva a kifejezés által esetlegesen generált hibaüzenete(ke)t figyelmen kívül hagyja a rendszer. Végrehajtó operátor: `` . Az operátor közé írt parancsot futtatja, pl.: $o = `ls -la`; Növelő/csökkentő operátorok: ++$a, --$a, $a++, $a-- . Az első kettő, előbb növeli illetve csökkenti az $a változó értékét eggyel, majd visszatér az értékével, míg az utolsó kettő, előbb visszatér $a értékével majd növeli illetve csökkenti azt. Logikai operátorok: logikai ÉS (and vagy &&), logikai VAGY (or vagy ||), logikai kizáró vagy (xor), logikai tagadás (!). String operátorok: konkatenáció (.), hozzárendelő konkatenáció (.=).

Kifejezés Mindent, amely értékkel tér vissza kifejezésnek tekintünk. Ide tartoznak a változók, állandók, függvények (mivel van visszatérési értékük); valamint ezekből a kifejezésekből az operátorok segítségével felírt összetettebb kifejezések. ASP-ben nem található meg, de hasznos lehet számunkra a növelő/csökkenő operátor, valamint a hozzárendelő operátor segítségével felírt kifejezések.

2. Webes aktív oldalak készítése adatbázis eléréssel

32 / 91

Elágazás PHP-ben hasonlóan az ASP-hez kétféle módon írhatunk elágazást. A kifejezés helyén itt is logikai változót várunk el, ha más szerepelne ott, akkor boolean típusra konvertálódik. Az utasítás helyén szerepelhet utasításblokk, ilyenkor az utasításokat kapcsos zárójel ( { } )között kell megadni. Szintaxis

Példa

if (kifejezés): utasítások; elseif (kifejezés n.): utasítások; else: utasítások; endif;

if ($a > $b): $c = 0; print $a; elseif ($a == $b): $c = 1; print ”egyenlő”; else: $c = 2; print $b; endif; if ($a > $b) { $c = 0; print $a; } elseif ( $a == $b) { $c = 1; print ”egyenlő”; } else { $c = 2; print $b; } switch $szam { case 1: print ”egy”; break; case 2: print ”kettő”; break; case 3: print ”három”; break; default: print ”nem 1 vagy 2 vagy 3”; }

if (kifejezés1) utasítás; elseif (kifejezés n.) elseif-utasítás; else else-utasítás;

//Hasonló a C-ben levőhöz, ha a kifejezés értékét megtalálja //valamelyik ágon, akkor onnan az összes utasítás lefut //a switch végéig, ha nem használjuk a break utasítást. switch (kifejezés) { case érték1: utasítások; case érték2: utasítások; … case értékN: utasítások; default: utasítások; }

Ciklus Szintaxis

Példa

while (kifejezés) utasítás;

$i = 1; while ($i < 10) print $i++; while ($i < 20) { print $i; $i++; } $i = 1; while ($i <= 10): print $i; $i++; endwhile; $i = 10; do { print $i--; } while ($i > 0); // for ciklus megfelel a következőnek: kif1; while (kif2) { utasítás; kif3; } foreach ($tomb as $ertek) { echo "Érték: $ertek
\n"; } foreach ($tomb as $kulcs => $ertek) { print "\$tomb[$kulcs] => $ertek.\n"; }

while (kifejezés): utasítások; endwhile;

do { utasítások; } while (kifejezés); for (kif1; kif2; kif3) utasítás; for (kif1; kif2; kif3): utasítások; endfor;

//tömb összes elemét iterálhatjuk foreach(tömb_kifejezés as $ertek) utasítás; foreach(tömb_kifejezés as $kulcs => $ertek) utasítás;

2. Webes aktív oldalak készítése adatbázis eléréssel

33 / 91

A ciklusutasítások (do … while, while, for, foreach) belsejében, valamint a switch utasításban használható a break utasítás, amely a ciklus utáni utasításra adja a vezérlést. A ciklusokban használható még a continue utasítás, amely a ciklus elejére ugrik, átugorva a continue utasítás után álló utasításokat.

Eljárás PHP 3-ban a függvényeket definiálni kell, mielőtt hivatkozás történik rájuk (függvényhívás előtt). PHP 4-ben nincs ez a megkötés. A PHP nem támogatja a függvények polimorfizmusát (többalakúságát), a függvény definíciókat nem lehet megszüntetni vagy újradefiniálni, ha egy függvény már definiált. A PHP 3 nem támogatja a változó számú függvényargumentumokat, bár az argumentumok kezdőértéke támogatott. A PHP 4 mindkettő lehetőséget támogatja.

Szintaxis

Példa

// PHP-ben a függvényeknek mindig van visszatérési értéke, // amit nem kötelező megadni, ebben az esetben // az utolsó utasítás értéke lesz a visszatérési érték function fuggveny ($arg_1, $arg_2, ..., $arg_n) { utasítások; return $retval; //hatására rögtön befejeződik a függvény }

function szumma ($arg_1, $arg_2) { echo "Számolok.\n"; $retval = $arg_1 + $arg_2; return $retval; }

function fuggveny( $arg = $ertek) { //$arg belső változó, ezért az eredeti változóra nincs //hatással, a következő értékadás $arg=$uj_ertek; utasítások; return $retval; } /* Referencia szerinti értékadás, hasznos lehet hatékonyság szempontjából, ha bonyoltabb struktúrájú változót adunk át, vagy ha a paraméter értékét kell változtatni. */ funcion fuggveny( &$refer ) { $refer = $var; } //function fuggveny által definiált függvény meghívása fuggveny(par1, par2, …, parN);

function ize() { $parameterek_szama = func_num_args(); echo "argumentumok száma: {$parameterek_szama}\n"; if ($parameterek_szama >= 2) { echo "A második paraméter: " . func_get_arg (1) . "\n"; } }

//a $szumma és a szumma() két különböző kifejezés $szumma = szumma(2, 3); ize(1, 2, 3);

2.10. Fájlok beágyazása ASP-ben és PHP-ben Már az SSI kapcsán említésre került az #include direktíva. ASP-ben is használható direktíva nagyon jól használható, már megirt ASP-oldalak betöltésére, amelyek különféle eljárásokat tartalmaznak. Így nem kell minden oldalon elhelyezni a sűrűn előforduló eljárásokat. Egy beágyazott fájl tartalmazhat más beágyazott fájlokat. Egy .asp fájlba ugyanazt a fájlt többször is be lehet ágyazni, feltéve, hogy az #include direktívák nem hoznak létre hurkot. Például, ha az Első.asp fájlba beágyazza a Második.inc fájlt a Második.inc fájlba nem ágyazhatja az Első.asp fájlt. Egy fájl önmagába sem ágyazható. Az ASP felderíti ezeket a hurok- és beágyazási hibákat, hibaüzenetet küld és felfüggeszti a kívánt .asp fájl feldolgozását.

2. Webes aktív oldalak készítése adatbázis eléréssel

34 / 91

Az ASP a fájlokat a parancsfájl-utasítások végrehajtása előtt beágyazza. Ezért a beágyazott fájl nevének létrehozásához parancsfájl-utasítás nem használható. Tehát a beágyazandó fájl nevében nem szerepelhet változó értéke, mivel akkor még nincsen az adott változóhoz érték rendelve. PHP-ben hasonló szerepet játszanak az include() és require() függvények, amelyek segítségével a paraméterként megadott fájlt illeszthetjük be és dolgozhatjuk fel. A két függvény egyenértékű, csak a hibakezelésben térnek el, az include() csak figyelmeztetést, míg a require() fatális hibát generál. Hasonlóan igaz ez az include_once() és a require_once() függvényekre, de itt ha többször próbálnánk meg beilleszteni az adott fájlt a PHP szkrtipbe, akkor már nem illeszti be újra. Ez nagyon hasznos akkor, ha a beillesztett fájlban függvényeket definiálunk. Mivel nem lehet egy függvényt újradefiniálni, a második beillesztésnél hibaüzenetet kapnánk. Az ASP-vel szemben a PHP-ben már használhatunk tetszőleges kifejezést, amikor megadjuk a beágyazni kívánt fájl útvonalát:

A get_required_files() és a get_included_files() függvényekkel lekérdezhetjük, hogy milyen fájlok lettek már beillesztve. Részben ide sorolható a readfile() függvény, amely egy fájlt olvas be és ír ki a kimenetre, ez a fájl lehet lokális, vagy akár URL segítségével megadott távoli fájl is. A virtual() függvény használható az Apache #include direktívájához hasonlóan. Fontos megjegyezni, hogy a fájl nem lehet PHP fájl, arra az include() használandó. A virtual() hasznos SSI direktívákat tartalmazó oldalak (.shtml fájlok) beágyazására.

2.11. Űrlapadatok feldolgozása ASP-ben és PHP-ben A HTML-űrlapok a webalapú információk gyűjtésének leggyakoribb módjai. Speciálisan elrendezett HTML-kódokat tartalmaznak, amelyek a felhasználói felület elemeit weblapon jelenítik meg. Ezek az elemek (például szövegmezők, gombok és jelölőnégyzetek) teszik lehetővé a weblapok interaktív használatát, és adatok továbbítását a webkiszolgálónak. Az alábbi HTML-kódok például egy olyan űrlapot hoznak létre, amelyen a felhasználó beírhatja a keresztnevét, vezetéknevét és életkorát, és tartalmaz egy gombot, amellyel ezen adatokat a webkiszolgálónak továbbíthatja. Az űrlap tartalmaz még egy rejtett beviteli kódot is (ez nem jelenik meg a böngészőben), amelynek segítségével további adatok juttathatók el a webkiszolgálónak.

2. Webes aktív oldalak készítése adatbázis eléréssel

35 / 91

megadása feltétlen fontos, különben hibajelzést kapunk, mert nem lehet adatbázist olvasni. Egy tesztoldal 2002. augusztus és 2003. május között gyűjtött adatai alapján a következő grafikont generálja:

Két fontos fájl működéséről már szóltam, az alábbi táblázatban összefoglalnám, hogy az egyes fájlokban mi található. A pontos forráskód az 5.5. és az 5.6. számú mellékletben olvasható. A főkönyvtárban találhatók a meghívható (ASP illetve PHP) weboldalak, amelyek beágyazzák az INC_ASP illetve INC_PHP könyvtár alatt található programkódokat, illetve az INC_HTM alatt található HTML kódokat tartalmazó fájlokat. ASP / PHP fájl

Leírás

admin_create.asp admin_create.php admin_delete.asp admin_delete.php

Létrehozza a kezdeti adatbázist (statusers nevű tábla), amelybe a felhasználók adatai kerülnek. Megjeleníti a felvett felhasználókat egy listában. Ha a megjelenő listában rákattintunk valamelyik felhasználó azonosítójára, akkor azt kitörli az adatbázisból, majd a maradék felhasználókat újra kilistázhatjuk. Megjeleníti a felvett felhasználókat egy listában. Ha a megjelenő listában rákattintunk valamelyik felhasználó azonosítójára, akkor behozza a felhasználó felvételénél kitöltött űrlapot, az ott megadott adatokkal, amelyeket átírhatunk és módosíthatjuk az adatbázist. Új felhasználót vehetünk fel egy űrlap kitöltésével. A statusers táblába bekerül a felhasználó összes adata, valamint a statuser adatbázis tábla is létrejön, amelybe majd a felhasználó statisztikai adatai kerülnek bele. Kiírja az sorszámú számlálóhoz tartózó összes találat számát a felhasználó felvételénél megadott megjelenítési információk alapján. Főoldal, amelyről az összes adminisztrátori, illetve felhasználói weboldal elérhető. Paraméter határozza meg, hogy melyik jelenjen meg, az alapértelmezett az adminisztrátori oldal. Grafikont rajzol sorszámú adatbázis alapján. Paraméterben meg lehet adni a grafikon típusát (year, month, day), valamint az időközt, ami alapján olvassa az adatbázist. Felhasználó név és jelszó ellenőrzése után, ha ez sikeresen megtörtént, akkor egy süti információt helyezz el a webkliensen, amely a felhasználó számát tartalmazza.

admin_modify.asp admin_modify.php

admin_newuser.asp admin_newuser.php counter.asp counter.php default.asp index.php graph.asp graph.php user_login.asp user_login.php

4. Példaprogram

46 / 91

ASP / PHP fájl

Leírás

user_logout.asp user_logout.php user_menu.asp user_menu.php

A belépéskor elhelyezett süti információt törli. Utána újra be kell jelentkezni, hogy elérjük a felhasználói menüt. Kirajzol egy HTML táblázatot, amelyben a felhasználói statisztikák oldalt hívhatjuk meg különféle módon. (Pl. milyen időközről szeretnénk információt, táblázatos vagy grafikonos formában szeretnénk-e.) A menüben kiválasztott és paraméterként átadott információk alapján sorszámú adatbázisból jelenít meg információkat. Például az éves statisztikára rákattintva látjuk annak havi bontását, amelyeket napi bontásban tovább részletezhetünk. Az új felhasználóhoz tartozó adatbázis táblát hozza létre, valamint az adatbázis táblához egy index mezőt is definiál. A felhasználók adatait tartalmazó adatbázis táblát hozza létre. Ezt csak egyszer kell megtenni. Feldolgozza a paramétereket, majd azok alapján megjelenít egy felhasználó listát, amelyben ki lehet választani egy felhasználót. Ha már kiválasztottunk egy felhasználót, akkor az adott felhasználót megprobálja törölni, ha nem sikerül hibát jelez. Felhasználó adatainak módosítását teszi lehetővé. Ha először hívjuk meg, akkor megjeleníti a felhasználó adatait egy listában. Ha a listából kiválasztottunk egy felhasználót, akkor egy űrlapon megjeleníti az adatait, amely űrlap kitöltésével módosíthatjuk az adatokat, vagy hibajelzést kapunk, ha pl. a jelszó nem lett jól megadva. Felvesz egy új felhasználót. Ha először hívjuk meg, akkor bead egy üres űrlapot. Ha ezt elküldjük és a jelszó megfelelő akkor felveszi, egyébként hibát jelez. Az adatbázis kapcsolatért felelős. Létrehozza az adatbázis kapcslatot és két függvényt definiál, egyikkel adatbázis táblát hozhatunk létre, a másikkal egy sort szúrhatunk a táblába. A tábla neve és a létrehozandó mezők illetve beszúrandó adatokat paraméterként veszi át. A globális változókat deklarálja, amelyek több helyen is előfordulnak. ASP-ben a változók deklarálását is kényszeríti. A felhasználó bevitelénél / módosításánál megjelenő űrlapváltozókat deklarálja, valamint feltölti kezdeti értékekkel, ha az adott feltétel teljesül. A felhasználó belépésénél található űrlap által elküldött értéket tárolja el globális változókban. Felhasználó törlésénél használt függvényeket tartalmazza. Az egyik a felhasználók listázása, a másik a tényleges törlést végző eljárás, amely az -t várja paraméterként. Megjeleníti az adminisztrációs vagy a felhasználói oldal HTML kódját a paraméternek megfelelően. Felhasználók módosítása során használt három fontos eljárást tartalmaz. Az egyik megjelenít egy felhasználó listát, amellyel az egyes felhasználók adatait tudjuk módosításra kijelölni. A másik kiolvassa az adott -hoz tartozó felhasználó adatait és eltárolja globális változókban. A harmadik ezen globális változók alapján módosítja a felhasználó adatait az adatbázisban. Először megjelenít egy űrlapot a felhasználó név és jelszó bekéréséhez. Majd megnézi, hogy jól adtuk-e meg, ha igen, akkor az információt eltárolja egy süti információban, ha nem akkor hibát jelez és újra probálkozhatunk. Törli az -re vonatkozó süti információt.

user_stat.asp user_stat.php

inc_asp/add.inc inc_php/add.inc inc_asp/admin_create.inc inc_php/admin_create.inc inc_asp/admin_delete.inc inc_php/admin_delete.inc

inc_asp/admin_modify.inc inc_php/admin_modify.inc

inc_asp/admin_newuser.inc inc_php/admin_newuser.inc inc_asp/dbfunc.inc inc_php/dbfunc.inc

inc_asp/declares.inc inc_php/declares.inc inc_asp/declares_form.inc inc_php/declares_form.inc inc_asp/declares_login.inc inc_php/declares_login.inc inc_asp/delete.inc inc_php/delete.inc inc_asp/default.inc inc_php/index.inc inc_asp/modify.inc inc_php/modify.inc

inc_asp/user_login.inc inc_php/user_login.inc inc_asp/user_logout.inc inc_php/user_logout.inc inc_asp/user_menu.inc inc_php/user_menu.inc inc_asp/user_stat.inc inc_php/user_stat.inc

inc_htm/admin_newuser1.inc inc_htm/admin_newuser2.inc inc_htm/admin_newuser3.inc

inc_htm/footer.inc inc_htm/header.inc inc_htm/user_login.inc

Kirajzol egy HTML táblázatot, amelyben a user_stat.asp / user_stat.php fájlra hivatkozik különböző paraméterekkel. Pl. grafiont vagy táblázatos statisztikát szeretnénk és az éves, havi, napi, vagy óránkénti legyen-e. Kirajzol egy HTML táblázatot, amelyben saját magára hivatkozik más paraméterekkel. Pl. táblázatos éves statisztika esetén kiírja az adatbázis éves találatait, hogy melyik évben mennyi találat volt és felkínálja az adott év havi bontású statisztikájának megjelenítését táblázat, vagy grafikon formájában. A felhasználó felvételénél és módosításánál megjelenő űrlap HTML kódját tartalmazza. Felhasználó sikeres felvétele után megjelenítendő HTML kódokat tartalmazza. Felhasználó sikertelen felvétele után megjelenítendő HTML kódokat tartalmazza. Jelenleg a felvétel sikertelen, ha nem egyezik az űrlapon szereplő jelszómezők tartalma. Az összes oldal lábléce, maga a lábléc HTML kódja található itt. Az összes oldal fejléce, maga a fejléc HTML kód található itt. Globális változón keresztül a fejléc mező szöveges értékét át tudjuk adni. A felhasználó belépésénél megjelenő űrlap HTML kódját tartalmazza.

5. Mellékletek

47 / 91

5. Mellékletek

Az 5.1. pont alatt található mellékletben a Microsoft SQL Server 2000 változatának a telepítését illusztrálnám, a telepítő program által megjelenített ablakok segítségével.

Az 5.2. pont alatt az IIS webszerver által definiált változók leírását mutatnám be. A változók egy része más webszervereken is elérhetőek. ASP-ben a Request objektum ServerVariables függvényével kérdezhetjük le.

Az 5.3. pont alatt az Apache webszerver előre definiált változóinak lekérdezését mutatnám be PHP alatt. A PHP-ben ezek globális változók, amelyek értékeit nem tudjuk megváltoztatni.

Az 5.4. pont alatt a PHP előre definiált változóinak és konstansainak leírásait foglaltam össze. Ide azok az előre definiált változók kerültek, amelyek a csak a PHP-re jellemzőek, nem pedig webszerver specifikus változók.

Az 5.5. pont alatt a példaprogram ASP-ben megírt programkódja található. Az egyes fájlok tartalma olvasható, a fájlok elérési útvonala a Windows XP alatt beüzemelt IIS webszervernek kezdőkönyvtárával (c:\inetpub\wwwroot) együtt szerepelnek. A főoldal a http://localhost/stat/ URL segítéségével érhető el.

Az 5.6. pont alatt a példaprogram PHP-ben megírt programkódja található. Az egyes fájlok tartalma olvasható, a fájlok elérési útvonala a Linux alatt beüzemelt Apache webszervernek kezdőkönyvtárával (/var/www) együtt szerepelnek. A főoldal a http://localhost/stat/ URL segítéségével érhető el.

5. Mellékletek

48 / 91

5.1. Microsoft SQL Server 2000 telepítésének folyamata Az alábbi képeken látható az Microsoft SQL Server 2000 Personal Edition verziójának telepítése lépésről lépésre.

1. lépés

2. lépés

3. lépés

5. Mellékletek

4. lépés

5. lépés

6. lépés

49 / 91

5. Mellékletek

7. lépés

8. lépés

9. lépés

50 / 91

5. Mellékletek

10. lépés

11. lépés

12. lépés

51 / 91

5. Mellékletek

13. lépés

14. lépés

15. lépés

52 / 91

5. Mellékletek

53 / 91

5.2. IIS webszerver előre definiált változói ASP-ben A ServerVariables gyűjtemény az előre definiált környezeti változók értékeit kéri le. Request.ServerVariables (kiszolgálói környezeti változó) szintaxisú utasítással kérhetjük le, ahol a kiszolgálói környezeti változó paraméter értéke az alábbi táblázatban szereplők lehetnek. Változó

Leírás

ALL_HTTP

Az ügyfél által küldött minden HTTP-fejléc.

ALL_RAW

Nyers formában kéri le a fejléceket. Az ALL_RAW és az ALL_HTTP változó között az a különbség, hogy az ALL_HTTP változó a fejlécnév elé egy HTTP_ előtagot helyez, és a fejlécet minden esetben nagy betűkkel írja. Az ALL_RAW használatakor a fejlécnév és az értékek az ügyfél által küldött módon jelennek meg.

APPL_MD_PATH

Az ISAPI DLL alkalmazása metabázisbeli elérési útját kéri le.

APPL_PHYSICAL_PATH

A metabázisbeli elérési útnak megfelelő fizikai elérési utat kéri le. Az IIS az APPl_MD_PATH változót értékét a fizikai (könyvtárbeli) elérési útra konvertálja, és ezt az értéket küldi vissza.

AUTH_PASSWORD

Az ügyfél hitelesítési párbeszédpaneljén megadott érték. Ez a változó csak Alapfokú hitelesítésnél használható.

AUTH_TYPE

A kiszolgáló által használt hitelesítési módszer, amely során a kiszolgáló érvényesíti a felhasználókat, amikor védett parancsfájlhoz kísérelnek meg hozzáférni.

AUTH_USER

Nyers hitelesített felhasználói név.

CERT_COOKIE

Az ügyféltanúsítvány karakterláncként visszaküldött egyedi azonosítója. Használható a teljes ügyféltanúsítvány aláírásaként.

CERT_FLAGS

A bit0 az 1 értéket kapja, ha van ügyféltanúsítvány. A bit1 az 1 értéket kapja, ha érvénytelen az ügyféltanúsítvány hitelesítésszolgáltatója (azaz nem található a kiszolgáló elismert hitelesítésszolgáltatókat tartalmazó listáján).

CERT_ISSUER

Az ügyféltanúsítványnak a kiállítóra vonatkozó mezője (O=MS, OU=IAS, CN=felhasználói név, C=USA)

CERT_KEYSIZE

A Secure Sockets Layer kapcsolat kulcsméretében lévő bitek száma. Például: 128.

CERT_SECRETKEYSIZE

A kiszolgálói tanúsítvány személyes kulcsában lévő bitek száma. Például: 1024.

CERT_SERIALNUMBER

Az ügyféltanúsítványnak a sorozatszámra vonatkozó mezője.

CERT_SERVER_ISSUER

A kiszolgálói tanúsítványnak a kiállítóra vonatkozó mezője.

CERT_SERVER_SUBJECT

A kiszolgálói tanúsítványnak a tárgyra vonatkozó mezője.

CERT_SUBJECT

Az ügyféltanúsítványnak a tárgyra vonatkozó mezője.

CONTENT_LENGTH

Az ügyfél által megadott tartalom hossza.

CONTENT_TYPE

A tartalom adattípusa. Olyan lekérdezések esetén használatos, amelyek csatolt információt tartalmaznak, például a GET, POST vagy PUT típusú HTTP-lekéréseket.

GATEWAY_INTERFACE

A kiszolgáló által alkalmazott CGI-specifikáció változata; formátuma: CGI/változat.

HTTP_

A Fejlécnév fejléc értéke. Az ebben a táblázatban fel nem sorolt fejlécek elé a HTTP_ előtagot kell helyezni, hogy a ServerVariables gyűjtemény lekérhesse értéküket. Megjegyzés: A kiszolgáló a Fejlécnév változóban lévő minden aláhúzásjelet (_) a tényleges fejlécben lévő kötőjelként értelmez. Ha például a HTTP_SAJÁT_FEJLÉC változót adja meg, a kiszolgáló SAJÁT-FEJLÉC nevű fejlécet keres.

HTTP_ACCEPT

Az Accept fejléc értékét küldi vissza.

HTTP_ACCEPT_LANGUAGE

A tartalom megjelenítéséhez használandó nyelvet meghatározó karakterláncot küldi vissza.

HTTP_USER_AGENT

A kérelmet küldő böngészőt leíró karakterláncot küld vissza.

HTTP_COOKIE

A kérelemhez csatolt cookie-kat küldi vissza.

HTTP_REFERER

Visszaküldi annak a lapnak az URL-címét tartalmazó karakterláncot, amely az aktuális lapra vonatkoztatta a kérést, de átirányítási kérést nem tartalmaz. Az átirányítási kérések nem tárolódnak.

5. Mellékletek

54 / 91

Változó

Leírás

HTTPS

Az ON értéket küldi vissza, ha a kérelem biztonságos csatornán (SSL) érkezett, illetve az OFF értéket küldi vissza, ha a kérelem nem biztonságos csatornán érkezett.

HTTPS_KEYSIZE

A Secure Sockets Layer kapcsolat kulcsméretében lévő bitek száma. Például: 128.

HTTPS_SECRETKEYSIZE

A kiszolgálói tanúsítvány személyes kulcsában lévő bitek száma. Például: 1024.

HTTPS_SERVER_ISSUER

A kiszolgálói tanúsítványnak a kiállítóra vonatkozó mezője.

HTTPS_SERVER_SUBJECT

A kiszolgálói tanúsítványnak a tárgyra vonatkozó mezője.

INSTANCE_ID

Az IIS-példány azonosítója szöveges formátumban. Ha a példányazonosító 1, karakterláncként jelenik meg. E változó segítségével kérheti le azon webkiszolgáló-példány (metabázisban lévő) azonosítóját, amelyhez a kérelem tartozik.

INSTANCE_META_PATH

A kérelemre válaszoló IIS-példány metabázisbeli elérési útja.

LOCAL_ADDR

Azon Kiszolgálócímet küldi vissza, amelyre a kérelem érkezett. Ez a többhelyű számítógépeken fontos, ahol több IP-cím ugyanahhoz a számítógéphez lehet kötve, és tudni szeretné, hogy melyik címre érkezett a kérelem.

LOGON_USER

Azon Windows felhasználói fiók, amelyre a felhasználó bejelentkezett.

PATH_INFO

Az elérési út további adatai ügyfél által megadott módon. A parancsfájlokat virtuális elérési útjuk és a PATH_INFO kiszolgálói változó használatával érheti el. Ha ez az információ egy URL-ből származik, a kiszolgáló dekódolja, mielőtt a CGI-parancsfájlhoz továbbítaná.

PATH_TRANSLATED

Az elérési útra vonatkozó PATH_INFO változó lefordított változata, amely a szükséges virtuális-fizikai csatlakoztatást végzi.

QUERY_STRING

A HTTP-kérelemben lévő kérdőjelet (?) követő karakterláncban található lekérdezési információ.

REMOTE_ADDR

A kérelmet küldő távoli állomás IP-címe.

REMOTE_HOST

A kérelmet küldő állomás neve. Ha a kiszolgáló nem rendelkezik ezzel az információval, a beállítja a REMOTE_ADDR változó értékét, ezt pedig üresen hagyja.

REMOTE_USER

A felhasználó által küldött, nem csatlakoztatott felhasználói nevet tartalmazó karakterlánc. A felhasználó ezt a nevet küldte ténylegesen (szemben a kiszolgálóra telepített hitelesítő szűrő által módosított névvel).

REQUEST_METHOD

A kérelemhez alkalmazott metódus. HTTP esetén ez lehet GET, HEAD, POST és így tovább.

SCRIPT_NAME

A végrehajtás alatt lévő parancsfájl virtuális elérési útja. Az önmagukra hivatkozó URLcímekben használatos.

SERVER_NAME

A kiszolgáló állomásneve, DNS aliasneve vagy IP-címe, ahogyan az az önmagukra hivatkozó URL-címekben megjelenik.

SERVER_PORT_SECURE

Olyan karakterlánc, amelynek értéke 0 (nulla) vagy 1 (egy). Ha a kérelmet a rendszer a biztonságos porton keresztül kezeli, akkor értéke 1, egyébként 0.

SERVER_PROTOCOL

A kérelemadatok továbbításához használt protokoll neve és verziója; formátuma: protokoll/változat.

SERVER_SOFTWARE

A kérelemre válaszoló és az átjárót üzemeltető kiszolgálóprogram neve és verziószáma; formátuma: név/verzió.

URL-cím

Az URL-cím alaprészét adja meg,

Megjegyzés: Ha az ügyfél a fenti táblázatban megadottaktól eltérő fejlécet küld, a fejléc értékét a Request.ServerVariables objektum meghívásában a fejléc elé tett HTTP_ előtaggal lehet lekérni. Ha például az ügyfél a következő fejlécet küldte: Új_fejléc: Új_érték Az Új_érték értéket az alábbi szintaxis segítségével kérheti le: <% Request.ServerVariables("HTTP_Új_fejléc") %>

5. Mellékletek

55 / 91

Az alábbi példa számos kiszolgálói változót jelenít meg név szerint: ALL_HTTP kiszolgálói változó = <%= Request.ServerVariables("ALL_HTTP") %>
CONTENT_LENGTH kiszolgálói változó = <%= Request.ServerVariables("CONTENT_LENGTH") %>
CONTENT_TYPE kiszolgálói változó = <%= Request.ServerVariables("CONTENT_TYPE") %>
QUERY_STRING kiszolgálói változó = <%= Request.ServerVariables("QUERY_STRING") %>
SERVER_SOFTWARE kiszolgálói változó = <%= Request.ServerVariables("SERVER_SOFTWARE") %>


Ez a példa a VBScript For Each ciklus használatával iterál a meglévő kiszolgálói változóneveken át. Amennyiben a Névtelen hozzáférés engedélyezett, bizonyos változók üresek lesznek. A következő parancsfájl kinyomtatja egy táblázat minden kiszolgálói változóját: <% For Each strKey In Request.ServerVariables %> <% Next %>

Kiszolgálói változó	Érték
<%= strKey %>	<%= Request.ServerVariables(strKey) %>

A következő példa a kiszolgáló nevét egy hiperhivatkozásba illeszti. /scripts/MyPage.asp”> A MyPage.asp fájlhoz vezető hivatkozás

5. Mellékletek

56 / 91

5.3. Apache webszerver előre definiált változói PHP-ben Ezek a változók az Apache webszerver változói. Ha másik szerveren fut a PHP, nincs rá garancia, hogy ugyanezek a változók akkor is rendelkezésre állnak: némelyik hiányozhat, esetleg itt nem szereplőket is biztosíthat a szerver. Számos a CGI 1.1 specifikációban dokumentált változókra biztosan lehet alapozni. Figyelni kell arra, hogy ha a PHP-t parancssorból használjuk a változók egy részének van csak értelme, ha egyáltalán definiáltak ilyen esetben.

Változó

Leírás

$GATEWAY_INTERFACE

A server CGI specifikációjának verziója. Pl.: 'CGI/1.1'.

$SERVER_NAME

A gazdagép (host) neve, ami alatt a szkript fut. Ha a szkript virtuális host-on fut, a virtuális host neve.

$SERVER_SOFTWARE

Serverazonosító sztring, amely a kérésekre adott válasz fejlécében szerepel.

$SERVER_PROTOCOL $REQUEST_METHOD

Az oldal lekéréséhez használt protokoll neve és verziója pl. 'HTTP/1.0'

$QUERY_STRING

Keresési kérdés, az oldalt meghívó URL-ben a ? után szereplő rész, ha létezik.

$DOCUMENT_ROOT

A www dokumentumok főkönyvtára, amely alatt a jelenlegi szkript fut. Ez a szerver konfigurációs fájljában meghatározott érték.

$HTTP_ACCEPT

Az aktuális kérés Accept: HTTP fejlécének tartalma, ha van ilyen. Ebben adja meg a böngésző, hogy milyen formátumokat képes fogadni.

$HTTP_ACCEPT_CHARSET

Az aktuális kérés Accept-Charset: HTTP fejlécének tartalma, ha van ilyen. pl. 'iso-8859-1,*,utf-8'.

$HTTP_ENCODING

Az aktuális kérés Accept-Encoding: HTTP fejlécének tartalma, ha van ilyen. pl. 'gzip'.

$HTTP_ACCEPT_LANGUAGE

Az aktuális kérés Accept-Language: HTTP fejlécének tartalma, ha van ilyen. pl. 'en'.

$HTTP_CONNECTION

Az aktuális kérés Connection: HTTP fejlécének tartalma, ha van ilyen. pl. 'Keep-Alive'.

$HTTP_HOST

Az aktuális kérés Host: HTTP fejlécének tartalma, ha éppen van ilyen.

$HTTP_REFERER

Annak az oldalnak az URL címe, ahonnan ide került a látogató. Ezt a látogató böngészőprogramja állítja be, de ezt nem minden böngésző és nem mindig teszi meg.

$HTTP_USER_AGENT

Az aktuális User_Agent: HTTP fejlécének tartalma, ha van ilyen. Ez a string, amely meghatározza az oldal megtekintéséhez használt böngészőt, pl. ’Mozilla/4.5 [en] (X11; U; Linux 2.2.9 i586)’.

$REMOTE_ADDR

A látogató IP címe, aki az oldalt lekérte.

$REMOTE_PORT

A látogató gépén a webszerverrel való kommunikációhoz használt port száma.

$SCRIPT_FILENAME

A PHP szkript abszolút elérési útja a szerver gépen.

$SERVER_ADMIN

A SERVER_ADMIN a kiszolgáló konfigurációs fájl direktíva értéke (Apache alatt). Ha a szkript egy virtuális host-on fut, akkor ez a virtuális host-hoz rendelt érték.

$SERVER_PORT

A kiszolgálógépen a kiszolgáló kommunikációjában használt port száma.

$SERVER_SIGNATURE

A kiszolgáló verziószámát és a virtuális host-ot tartalmazó sztring, ha engedélyezett. Ez a szöveg jelenik meg minden szerver által generált oldal alján.

$PATH_INFO

Hasonló értéket tartalmaz, mint a SCRIPT_NAME, de CGI verzió esetén ez jobb lehet az önhivatkozó kérdőívek készítésekor, mert egyes szervereken a SCRIPT_NAME tartalmazza a PHP bináris meghívási útvonalát is.

$PATH_TRANSLATED

A szkript a fájlrendszer szerinti (nem a document root-hoz viszonyított!) elérési útja. Ezt a kiszolgáló a virtuális->valós átalakítás után határozza meg.

$SCRIPT_NAME

Az aktuális szkript elérési útja, ahogy az az URL-ben megjelenik. Hasznos a saját magukra mutató oldalakhoz.

$REQUEST_URI

Az az URI, amellyel az oldalt lekérték. pl. '/index.html'.

Az oldal eléréséhez használt kérési forma, pl.: 'GET', 'HEAD', 'POST', 'PUT'.

5. Mellékletek

57 / 91 5.4. PHP előre definiált változói és állandói

Az alábbi táblázatban találhatók azok a változók, amelyeket a PHP definiál. Változó

Leírás

$argv

A szkriptnek átadott argumentumok tömbje. Ha a szkript parancssor alól futtatjuk, ez egy Cszerű hozzáférést biztosít a parancssor argumentumokhoz. Ha GET metódussal hívjuk, az URL kérdőjel utáni részét (query string) tartalmazza. A parancssori argumentumok számát tartalmazza (ha parancssorból futtatjuk). A most futó szkriptfájl neve, a document root-hoz képest relatív alakban. Ha a PHP parancssorból fut, ez a változó nem elérhető. Ez a változó a kérés útvonal információját is tartalmazza, ha az létezik, azaz a $PHP_SELF a "http://example.com/test.php/foo.bar" címre a következőt fogja adni: "/test.php/foo.bar" HTTP cookie-kat (sütiket) tartalmazó asszociatív tömb. HTTP cookie-kat (sütiket) tartalmazó asszociatív tömb, amely minden hatókörben elérhető. HTTP GET metódussal által szolgáltatott adatokat tartalmazó asszociatív tömb. HTTP GET metódussal által szolgáltatott adatokat tartalmazó asszociatív tömb, amely minden hatókörben elérhető. HTTP POST metódussal által szolgáltatott adatokat tartalmazó asszociatív tömb. Amelyeket pl. egy HTML FORM hatására küld el a kliens. HTTP POST metódussal által szolgáltatott adatokat tartalmazó asszociatív tömb, amely minden hatókörben elérhető. A HTTP POST metódussal feltöltött fájlokról tartalmaz információkat, asszociatív tömb. A HTTP POST metódussal feltöltött fájlokról tartalmaz információkat, asszociatív tömb. A szülő/futtató környezet aktuális változóit tartalmazó asszociatív tömb. A szülő/futtató környezet aktuális változóit tartalmazó asszociatív tömb, amely minden hatókörben elérhető. A HTTP szervertől érkező változókkal feltöltött asszociatív tömb. Ezek a változók megfelelnek a fent említett Apache változóknak. A HTTP szervertől érkező változókkal feltöltött asszociatív tömb, amely minden hatókörben elérhető. Az aktuális szkripthez tartozó session változókat tartalmazó asszociatív tömb. Az aktuális szkripthez tartozó session változókat tartalmazó asszociatív tömb, amely minden hatókörben elérhető. A _SESSION tömbben új bejegyzések létrehozásával automatikusan regisztrálhatók értékek, mint a session_register() segítségével. A GET, POST és Cookie változókból összeállított asszociatív tömb. Más szóval, bármilyen a felhasználótól ügyféltől érkező adatot tartalmaz, ami biztonsági szempontból nem megbízható. Minden hatókörben elérhető.

$argc $PHP_SELF

$HTTP_COOKIE_VARS $_COOKIE $HTTP_GET_VARS $_GET $HTTP_POST_VARS $_POST $HTTP_POST_FILES $_FILES $HTTP_ENV_VARS $_ENV $HTTP_SERVER_VARS $_SERVER $HTTP_SESSION_VARS $_SESSION

$_REQUEST

Az alábbi táblázatban látható a PHP alatt elérhető konstansok (állandók). A __FILE__, __LINE__, TRUE, FALSE, NULL írása esetén tetszőlegesen használhatjuk a kis- vagy a nagybetűs írásmódot. Konstans

Leírás

__FILE__

A szkript állomány neve. Ha egy olyan fájlon belül használjuk, amelyet include-oltunk, vagy require-ral töltöttük be, akkor az include-olt fájl nevét kapjuk, nem a futtatott szkriptét. Az aktuális szkripten belüli sor száma. Ha include-dal, vagy require-ral behívott fájlra alkalmazzuk, akkor azon a fájlon belüli pozíciót kapjuk. Az alkalmazott PHP verziószáma (string). Pl.: '4.1.0'. Az operációs rendszer, ami alatt a PHP fut. Lehetséges értékei: "AIX", "Darwin" (MacOS), "Linux", "SunOS", "WIN32", "WINNT" Megjegyzés: elképzelhető, hogy később további értékek is elérhetőek lesznek. Igaz érték. Lásd boolean adattípus. Hamis érték. Lásd boolean adattípus. NULL érték. Lásd NULL adattípus. Egy nem feldolgozás során keletkezett helyrehozhatatlan hibát jelez. Egy olyan állapotot jelez, amiben a PHP tudja, hogy valami nincs rendben, de folytatja a működést, mert a szkript kijavíthatja a hibát. Ennek egy példája lehet egy érvénytelen reguláris kifejezés az ereg()-ben. A parser meghalt a szkriptbeli érvénytelen szintaxis miatt; helyrehozhatatlan hiba. Valami történt, ami lehet, hogy hiba, de lehet, hogy nem. A végrehajtás folytatódik. Ilyenre példa egy idézőjelek nélküli sztring, mint tömbindex, vagy egy változó elérése, amelynek még nem adtunk értéket. Minden E_* formátumú konstans egyben. Ha az error_reporting() függvénnyel használják, akkor tetszőleges típusú hiba fellépését jelezni fogja a PHP.

__LINE__ PHP_VERSION PHP_OS

TRUE FALSE NULL E_ERROR E_WARNING

E_PARSE E_NOTICE

E_ALL

5. Mellékletek

58 / 91

5.5. ASP-ben megvalósított statisztikai rendszer forráskódja

Fájl: c:\inetpub\wwwroot\stat\admin_create.asp <% TitleName = "Adatbázis létrehozás" %>

Fájl: c:\inetpub\wwwroot\stat\admin_delete.asp

Fájl: c:\inetpub\wwwroot\stat\admin_modify.asp

Fájl: c:\inetpub\wwwroot\stat\admin_newuser.asp <% TitleName = "Új felhasználó hozzáadása" %>

Fájl: c:\inetpub\wwwroot\stat\counter.asp <% Dim strMessage Dim blnError Dim Image Dim counter Dim OldDate Dim NewDate Dim rs2 Dim rs3 Dim iptimelimit Response.ContentType = "image/png" Set Image = Server.CreateObject("AspImage.Image") Image.ImageFormat = 3 ' For PNG blnError = False If IsEmpty(p_id) Then blnError = True dbOpen strSQL = "SELECT b_r, b_g, b_b, f_r, f_g, f_b, transbackground, fontsize, fontname, iptimelimit, url FROM " & t_userdb & " WHERE id='" & p_id & "';" Set rs = dbConn.Execute(strSQL) If Not rs.EOF Then p_b_r=rs("b_r") p_b_g=rs("b_g") p_b_b=rs("b_b") p_f_r=rs("f_r")

5. Mellékletek

59 / 91

p_f_g=rs("f_g") p_f_b=rs("f_b") p_fontsize=rs("fontsize") p_fontname=rs("fontname") p_transbackground=rs("transbackground") p_url=rs("url") strSQL = "SELECT COUNT(*) C FROM statuser" & p_id & ";" Set rs = dbConn.Execute(strSQL) counter=rs("c") strSQL = "SELECT iptimelimit FROM " & t_userdb & " WHERE id='" & p_id & "';" Set rs2 = dbConn.Execute(strSQL) iptimelimit=rs2("iptimelimit") strSQL = "SELECT logdate FROM statuser" & p_id & " ORDER BY logdate DESC;" Set rs3 = dbConn.Execute(strSQL) OldDate = rs3("logdate") NewDate = Now OldDate = DateAdd("s", iptimelimit, OldDate) If (p_url<> "" And Request.ServerVariables("HTTP_REFERER") <> p_url ) Then blnError = true If(Not blnError And NewDate > OldDate) Then dbInsert "statuser" & p_id, "'" & Now & "', '" & Request.Servervariables("REMOTE_ADDR") & "', '" & Request.ServerVariables("REMOTE_HOST") & "', '" & Request.ServerVariables("HTTP_USER_AGENT") & "'" counter = counter + 1 End If Else blnError = True End IF dbClose If Not blnError Then strMessage = " " & counter & " " Image.MaxX = Image.TextWidth (strMessage) + 20 Image.MaxY = Image.TextHeight (strMessage) + 20 If p_transbackground = 1 Then Image.Transparent = True Image.TransparentColor = RGB(P_b_r, p_b_g, p_b_b) 'Valamiért nem mükődik Image.PenColor = RGB(p_b_r, p_b_g, p_b_b) Image.BrushColor = RGB(p_b_r, p_b_g, p_b_b) Image.Rectangle 0, 0, Image.MaxX, Image.MaxY Image.FontColor = RGB(p_f_r, p_f_g, p_f_b) Else Image.PenColor = RGB(p_b_r, p_b_g, p_b_b) Image.BrushColor = RGB(p_b_r, p_b_g, p_b_b) Image.Rectangle 0, 0, Image.MaxX, Image.MaxY Image.FontColor = RGB(p_f_r, p_f_g, p_f_b) End If Image.Italic = False Image.Bold = True Image.FontName = p_fontname Image.FontSize = p_fontsize Image.PadSize = 1 Else If (p_url<>"" And Request.ServerVariables("HTTP_REFERER") <> p_url ) Then strMessage = "Hibás hivatkozás" Else strMessage="Nincs ilyen számláló" Image.MaxX = Image.TextWidth (strMessage) + 20 Image.MaxY = Image.TextHeight (strMessage) + 20 Image.Italic = False Image.Bold = True Image.FontName = "Arial" Image.FontSize = 12 Image.PadSize = 0 Image.PenColor = RGB(255, 0, 0) Image.BrushColor = RGB(222, 222, 222) Image.Rectangle 0, 0, Image.MaxX, Image.MaxY Image.FontColor = RGB(0, 0, 255) End If Image.TextOut strMessage, 5, 20, false Response.BinaryWrite Image.Image Set Image = nothing %>

5. Mellékletek

60 / 91

Fájl: c:\inetpub\wwwroot\stat\default.asp <% TitleName = "Főmenü" %>

Fájl: c:\inetpub\wwwroot\stat\graph.asp <% 'Deklarációk Dim Image Dim Pos, MaxRow Dim DataMax, Data Dim X, SpaceX, ShiftX, ColX, ColMax Dim Y, SpaceY Dim MaxX Dim MaxY Dim FrameX, PicFrameX Dim FrameY, PicFrameY Dim BackColor Dim FrameColor, ColFrameColor Dim GraphColor, ColColor, FontColor, LineColor, TitleColor Dim DataTemp Dim p_year, p_oldyear, p_month, p_oldmonth, p_day, p_oldday, p_graph, p_oldgraph, p_now Dim strFMonth(12), strMonth(12), strTitle 'Hónapok beállítása strMonth(0) = "Jan" strMonth(1) = "Feb" strMonth(2) = "Már" strMonth(3) = "Ápr" strMonth(4) = "Máj" strMonth(5) = "Jún" strMonth(6) = "Júl" strMonth(7) = "Aug" strMonth(8) = "Szep" strMonth(9) = "Okt" strMonth(10) = "Nov" strMonth(11) = "Dec" strFMonth(0) = "január" strFMonth(1) = "február" strFMonth(2) = "március" strFMonth(3) = "április" strFMonth(4) = "május" strFMonth(5) = "június" strFMonth(6) = "július" strFMonth(7) = "augusztus" strFMonth(8) = "szeptember" strFMonth(9) = "október" strFMonth(10) = "november" strFMonth(11) = "december" 'Paraméterek beállítása p_now = Now p_oldgraph = Request("oldgraph") If IsEmpty(Request("graph")) Or Request("graph") = "" Then p_graph="year" Else p_graph = Request("graph") End If If Request("year") = "" Then p_year=Year(p_now) Else p_year = Request("year") End If If p_graph = "year" Then If Request("oldyear") = "" Then p_oldyear=p_year-1 Else p_oldyear = Request("oldyear") End If End If If Request("month") = "" Then p_month=Month(p_now) Else p_month = Request("month") End If

5. Mellékletek

61 / 91

If p_graph = "month" Then p_now = p_year & "/" & p_month & "/1" If Request("oldmonth") = "" Then p_oldmonth=Month(DateAdd("m", -1, p_now)) Else p_oldmonth = Request("oldmonth") End If If Request("oldyear") = "" Then p_oldyear=Year(DateAdd("m", -1, p_now)) Else p_oldyear = Request("oldyear") End If End If If Request("day") = "" Then p_day=Day(p_now) Else p_day = Request("day") End If If p_graph = "day" Then p_now = p_year & "/" & p_month & "/" & p_day If Request("oldday") = "" Then p_oldday=Day(DateAdd("d", -1, p_now)) Else p_oldday = Request("oldday") End If If Request("oldmonth") = "" Then p_oldmonth=Month(DateAdd("d", -1, p_now)) Else p_oldmonth = Request("oldmonth") End If If Request("oldyear") = "" Then p_oldyear=Year(DateAdd("d", -1, p_now)) Else p_oldyear = Request("oldyear") End If End If 'Megjelenítéshez szükséges változók beállítása BackColor = RGB(245, 245, 245) FrameColor = RGB(180, 180, 180) GraphColor = RGB(235, 235, 235) ColColor = RGB(255, 250, 220) ColFrameColor = RGB(255, 180, 0) LineColor = RGB(255, 20, 20) FontColor = RGB(10, 120, 10) TitleColor = RGB(15, 15, 255) MaxX = 700 MaxY = 220 FrameX = 50 FrameY = 60 PicFrameX = 70 PicFrameY = 100 MaxRow = 5 Response.ContentType = "image/png" Set Image = Server.CreateObject("AspImage.Image") Image.ImageFormat = 3 ' For PNG dbOpen If p_graph="year" Then strSQL = "SELECT count(*) AS data, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month FROM statuser" & p_id & " WHERE DATEPART(yy, logdate) = '" & p_year & "' OR DATEPART(yy, logdate) ='" & p_oldyear & "' GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate);" If p_graph="month" Then strSQL = "SELECT count(*) AS data, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month FROM statuser" & p_id & " WHERE (DATEPART(yy, logdate) = '" & p_year & "' AND DATEPART(mm, logdate) = '" & p_month & "') OR (DATEPART(yy, logdate) ='" & p_oldyear & "' AND DATEPART(mm, logdate) = '" & p_oldmonth & "') GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate);" If p_graph="day" Then strSQL = "SELECT count(*) AS data, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month, DATEPART(dd, logdate) AS day FROM statuser" & p_id & " WHERE (DATEPART(yy, logdate) = '" & p_year & "' AND DATEPART(mm, logdate) = '" & p_month & "' AND DATEPART(dd, logdate) = '" & p_day & "') OR (DATEPART(yy, logdate) = '" & p_oldyear & "' AND DATEPART(mm, logdate) = '" & p_oldmonth & "' AND DATEPART(dd, logdate) = '" & p_oldday & "') GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate), DATEPART(hh, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate), DATEPART(hh, logdate);" Set rs = dbConn.Execute(strSQL)

'Képméret beállítása Image.FontColor = FontColor Image.Bold = True Image.FontSize=10 Image.Fontname="Ariel" Image.BackgroundColor = BackColor Image.ClearImage Image.MaxX = MaxX + PicFrameX Image.MaxY = MaxY + PicFrameY Image.PenColor= FrameColor Image.BrushColor = GraphColor Image.PenWidth = 1 ' Belső grafikon keret rajzolása Image.Rectangle FrameX, FrameY, MaxX+FrameX, MaxY+FrameY

5. Mellékletek

62 / 91

' Viszintes segédvonalak rajzolása Y = MaxY / MaxRow Pos = 1 Image.X = FrameX Do While Pos < MaxRow Image.Y = FrameY + Pos*Y Image.LineTo Image.X+MaxX, Image.Y Pos = Pos + 1 Loop ' Maximum megállapítása DataMax = 0 ColMax = 0 Do Until rs.EOF If DataMax < rs("data") Then DataMax = rs("data") rs.MoveNext ColMax = ColMax + 1 Loop ' Maximális érték beállítása DataMax = round(DataMax *1.1) If DataMax Mod MaxRow = 0 Then DataMax = DataMax + MaxRow Else DataMax = DataMax + MaxRow - DataMax Mod MaxRow End If ' Viszintes értékek felrajzolása Pos = MaxRow Do While Pos >= 0 DataTemp = DataMax * Pos / MaxRow Image.TextOut DataTemp, FrameX-Image.TextWidth(DataTemp)-6, FrameY-(Image.TextHeight(DataTemp)*2/3) + MaxYMaxY*Pos/MaxRow, false Pos = Pos - 1 Loop Image.FontColor = TitleColor If p_graph = "year" Then strTitle = p_year & ". év látogatottsági statisztikája havi bontásban" if p_graph = "month" Then strTitle = p_year & ". év " & strFMonth(p_month-1) & " hó látogatottsági statisztikája napi bontásban" if p_graph = "day" Then strTitle = p_year & ". év " & strFMonth(p_month-1) & " hó " & p_day & ". nap látogatottsági statisztikája óránkénti bontásban" Image.TextOut strTitle, FrameX+25, 40, false Image.BrushColor=ColColor Image.PenColor=ColFrameCOlor Image.Rectangle FrameX, 40, FrameX+20, 55 If p_oldgraph = "" OR p_oldgraph = "yes" Then If p_graph = "year" Then strTitle = p_oldyear & ". év látogatottsági statisztikája havi bontásban" if p_graph = "month" Then strTitle = p_oldyear & ". év " & strFMonth(p_oldmonth-1) & " hó látogatottsági statisztikája napi bontásban" if p_graph = "day" Then strTitle = p_oldyear & ". év " & strFMonth(p_oldmonth-1) & " hó " & p_oldday & ". nap látogatottsági statisztikája óránkénti bontásban" Image.TextOut strTitle, FrameX+25, 20, false Image.BrushColor=LineColor Image.PenColor=LineCOlor Image.Rectangle FrameX, 27, FrameX+20, 29 End If ' Oszlopok kirajzolása If p_graph = "year" Then ColMax = 13 ColX = 10 End If If p_graph = "month" Then ColMax = 32 ColX = 5 End If If p_graph = "day" Then ColMax = 25 ColX = 7 End If

5. Mellékletek

63 / 91

SpaceX = MaxX / ColMax - ColX Image.BrushColor = ColColor Image.PenColor = ColFrameColor Image.FontColor = FontColor If p_graph = "year" Then Pos = 0 Do Until Pos = 12 Image.TextOut strMonth(pos), FrameX+(SpaceX+ColX)/2+Pos*(SpaceX+ColX)+(SpaceXImage.TextWidth(strMonth(pos)))/2-1, FrameY+MaxY+3+Image.TextHeight(strMonth(pos))/2, false Pos = Pos + 1 Loop End If If p_graph = "month" Then Pos = 0 Do Until Pos = 31 Image.TextOut Pos+1, FrameX+(SpaceX+ColX)/2+Pos*(SpaceX+ColX)+(SpaceX-Image.TextWidth(Pos+1))/2-1, FrameY+MaxY+3+Image.TextHeight(Pos)/2, false Pos = Pos + 1 Loop End If If p_graph = "day" Then Pos = 0 Do Until Pos = 24 Image.TextOut Pos, FrameX+(SpaceX+ColX)/2+Pos*(SpaceX+ColX)+(SpaceX-Image.TextWidth(Pos))/2-1, FrameY+MaxY+3+Image.TextHeight(Pos)/2, false Pos = Pos + 1 Loop End If dbClose dbOpen If p_graph = "year" Then strSQL = "SELECT count(*) AS data, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate)" _ & " AS month FROM statuser" & p_id & " WHERE DATEPART(yy, logdate) = '" & p_year _ & "' GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate) ORDER BY DATEPART(yy, logdate), " _ & "DATEPART(mm, logdate);" If p_graph = "month" Then strSQL="SELECT count(*) AS data, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate)" _ & "AS month, DATEPART(dd, logdate) AS day FROM statuser" & p_id & " WHERE DATEPART(yy, logdate) = '" & p_year _ & "' AND DATEPART(mm, logdate) = '" & p_month & "' GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate), " _ & "DATEPART(dd, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate);" If p_graph = "day" Then strSQL = "SELECT count(*) AS data, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) " _ & "AS month, DATEPART(dd, logdate) AS day, DATEPART(hh, logdate) AS hour FROM statuser" & p_id & " WHERE " _ & "DATEPART(yy, logdate) = '" & p_year & "' AND DATEPART(mm, logdate) = '" & p_month & "' AND " _ & "DATEPART(dd, logdate) = '" & p_day & "' GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate), " _ & "DATEPART(dd, logdate), DATEPART(hh, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate), " _ & "DATEPART(dd, logdate), DATEPART(hh, logdate);" Set rs = dbConn.Execute(strSQL) Pos = 0 Do Until rs.EOF If p_graph = "year" AND pos+1 = rs("month") Then Data = rs("data") Else Data=0 End If If p_graph = "month" Then If pos+1 = rs("day") Then Data = rs("data") Else Data=0 End If End If If p_graph = "day" Then If pos = rs("hour") Then Data = rs("data") Else Data=0 End If End If SpaceY=MaxY-(MaxY*Data/DataMax)-1 Image.PenColor= ColFrameColor Image.BrushColor = ColColor Image.PenColor= ColFrameColor Image.BrushColor = ColColor Image.Rectangle FrameX+(SpaceX+ColX)/2+Pos*(SpaceX+ColX), FrameY+SpaceY, FrameX+(SpaceX+ColX)/2+SpaceX+Pos*(SpaceX+ColX), FrameY+MaxY If p_graph = "year" AND pos+1 = rs("month") Then rs.MoveNext If p_graph = "month" Then If pos+1 = rs("day") Then rs.MoveNext End If If p_graph = "day" Then If pos = rs("hour") Then rs.MoveNext End If Pos = Pos + 1 Loop

5. Mellékletek

64 / 91

dbClose dbOpen If p_graph = "year" Then strSQL = "SELECT count(*) AS data, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month FROM statuser" & p_id & " WHERE DATEPART(yy, logdate) = '" & p_oldyear & "' GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate);" If p_graph = "month" Then strSQL = "SELECT count(*) AS data, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month, DATEPART(dd, logdate) AS day FROM statuser" & p_id & " WHERE DATEPART(yy, logdate) = '" & p_oldyear & "' AND DATEPART(mm, logdate) = '" & p_oldmonth & "' GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate);" If p_graph = "day" Then strSQL = "SELECT count(*) AS data, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month, DATEPART(dd, logdate) AS day, DATEPART(hh, logdate) AS hour FROM statuser" & p_id & " WHERE DATEPART(yy, logdate) = '" & p_oldyear & "' AND DATEPART(mm, logdate) = '" & p_oldmonth & "' AND DATEPART(dd, logdate) = '" & p_oldday & "' GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate), DATEPART(hh, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate), DATEPART(hh, logdate);" Set rs = dbConn.Execute(strSQL) ' Előző évi grafikon rajzolása If p_oldgraph = "" Or p_oldgraph = "yes" Then Pos = 0 Do Until rs.EOF If p_graph = "year" AND pos+1 = rs("month") Then Data = rs("data") Else Data=0 End If If p_graph = "month" Then If pos+1 = rs("day") Then Data = rs("data") Else Data=0 End If End If If p_graph = "day" Then If pos = rs("hour") Then Data = rs("data") Else Data=0 End If End If SpaceY=MaxY-(MaxY*Data/DataMax)-1 Image.PenColor= LineColor Image.BrushColor = LineColor Image.FontColor = LineColor If Pos = 0 Then Image.X = FrameX + (SpaceX+ColX)/2+SpaceX/2 Image.Y = FrameY+SpaceY Else Image.LineTo FrameX+(SpaceX+ColX)/2+Pos*(SpaceX+ColX)+SpaceX/2, FrameY+SpaceY Image.X = FrameX+(SpaceX+ColX)/2+Pos*(SpaceX+ColX)+SpaceX/2 Image.Y = FrameY + SpaceY End If If p_graph = "year" AND pos+1 = rs("month") Then rs.MoveNext If p_graph = "month" Then If pos+1 = rs("day") Then rs.MoveNext End If If p_graph = "day" Then If pos = rs("hour") Then rs.MoveNext End If Pos = Pos + 1 Loop End If dbClose Response.BinaryWrite Image.Image Set Image = nothing %>

Fájl: c:\inetpub\wwwroot\stat\user_login.asp <% TitleName = "Belépés" %>

Fájl: c:\inetpub\wwwroot\stat\user_logout.asp <% TitleName = "Kilépés" %>

5. Mellékletek

65 / 91

Fájl: c:\inetpub\wwwroot\stat\user_menu.asp <% TitleName = "Felhasználói oldal" %>

Fájl: c:\inetpub\wwwroot\stat\user_login.asp <% TitleName = "Látogatottsági oldal" %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\add.inc <% dbOpen strSQL = "SELECT COUNT(id) c FROM "& t_userdb & ";" Set rs = dbConn.Execute(strSQL) Dim numID If rs("c") > 0 Then strSQL = "SELECT MAX(id) max_id FROM " & t_userdb & ";" Set rs = dbConn.Execute(strSQL) numID = rs("max_id") + 1 Else numID = 100000 End If dbInsert t_userdb, "'" & numID & "', '" & p_username & "', '" & p_password1 & "', '" & p_url & "', '" & p_iptimelimit & "', '" & p_b_r & "', '" & p_b_g & "', '" & p_b_b & "', '" & p_f_r & "', '" & p_f_g & "', '" & p_f_b & "', '" & p_transbackground & "', '" & p_fontsize & "', '" & p_fontname & "'" dbCreate "statuser" & numID, "logdate datetime, ipaddress char(15), hostname varchar(200), browser varchar(200)" strSQL = "CREATE INDEX logdate_ndx ON statuser" & numID & " (logdate);" dbConn.Execute(strSQL) dbClose %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\admin_create.inc <% dbOpen dbCreate t_userdb, "id int primary key, username varchar(30) not null, password varchar(8) not null, url varchar(200) not null, iptimelimit int not null default 0, b_r int default 0, b_g int default 0, b_b int default 0, f_r int default 255, f_g int default 255, f_b int default 255, transbackground int default 0, fontsize int default 12, fontname varchar(50) default 'Arial'" dbClose Response.Write "Adatbázis sikeresen létrehozva." %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\admin_delete.inc

5. Mellékletek <% If (IsEmpty(p_do) Or p_do = "list") Then %> <% TitleName = "Felhasználó listázása (törlés)" %> <% dbList %> <% ElseIf p_do = "delete" And Not IsEmpty(p_id) Then dbDelete p_id TitleName = "Felhasználó törlése" %>

Törölve az adatbázisból: <%=p_id%>!

?do=list">Listázás <% Else TitleName = "HIBA" %>

Hiba a törlés közben!

<% End If %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\admin_modify.inc <% If (IsEmpty(p_do) Or p_do = "list") And IsEmpty(p_state) Then %> <% TitleName = "Felhasználó listázása (módosítás)" %> <% dbList %> <% ElseIf p_do = "detail" And Not IsEmpty(p_id) Then %> <% dbRead p_id TitleName = "Felhasználó módosítása" HeadTitle = "Felhasználó adatai" ButtonName = "Módosít" p_state=3 %> <% ElseIf Not IsEmpty(p_state) And p_state = 3 And Not IsEmpty(p_id) And p_password1=p_password2 Then %> <% TitleName = "Felhasználó adat módosítása" %> <% dbUpdate p_id %>

Sikeres módosítás!

?do=list">Listázás <% Else %> <% TitleName = "HIBA" %>

Hiba a módosítás megadásánál! Rossz jelszó?

<% End If %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\admin_newuser.inc <% HeadTitle = "Új felhasználó adatai" ButtonName = "Felvesz" %>

66 / 91

5. Mellékletek <% If IsEmpty(p_state) Or p_state<>2 Then p_id=-1 p_state=2 p_username="Login_name" p_password1="" p_url="http://localhost" p_iptimelimit=3600 p_f_r=255 p_f_g=255 p_f_b=255 p_b_r=0 p_b_g=0 p_b_b=0 p_transbackground=0 p_fontsize=11 p_fontname="Times New Roman" %> <% ElseIf p_state = 2 And p_password1=p_password2 And p_username<>"" And p_password1<>"" Then %> <% Else %> <% End If %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\dbfunc.inc <% Sub dbOpen Set dbConn = Server.CreateObject("ADODB.Connection") dbConn.Open "DSN=WEBSQL;DATABASE=aspdb;UID=msuser;PWD=asp123" End Sub

Sub dbCreate (pName, pType) strSQL = "CREATE TABLE " & pName & "(" & pType & ");" dbConn.Execute (strSQL) End Sub

Sub dbInsert (pName, pLine) strSQL = "INSERT INTO " & pName & " VALUES(" & pLine & ");" dbConn.Execute (strSQL) End Sub

Sub dbClose dbConn.Close End Sub %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\declares.inc <% Option Explicit Dim TitleName

67 / 91

5. Mellékletek Dim HeadTitle Dim ButtonName Dim ASPSELF Dim dbConn Dim strSQL Dim t_userdb Dim rs Dim p_state Dim p_do Dim p_id Dim p_page p_page = Request("page") p_state = Request.Form("state") p_id = Request("id") p_do = Request("do") t_userdb = "statusers" ASPSELF = Request.ServerVariables("SCRIPT_NAME") %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\declarec_form.inc <% Dim p_username Dim p_password1 Dim p_password2 Dim p_url Dim p_iptimelimit Dim p_f_b Dim p_f_r Dim p_f_g Dim p_b_b Dim p_b_r Dim p_b_g Dim p_transbackground Dim p_fontsize Dim p_fontname If Not IsEmpty(p_state) Or Not IsEmpty(p_id) Then p_username = Request.Form("username") p_password1 = Request.Form("password1") p_password2 = Request.Form("password2") p_url = Request.Form("url") p_iptimelimit = Request.Form("iptimelimit") p_f_r = Request.Form("f_r") p_f_g = Request.Form("f_g") p_f_b = Request.Form("f_b") p_b_r = Request.Form("b_r") p_b_g = Request.Form("b_g") p_b_b = Request.Form("b_b") p_transbackground = Request.Form("transbackground") p_fontsize = Request.Form("fontsize") p_fontname = Request.Form("fontname") End IF %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\declares_login.inc <% Dim p_username Dim p_password p_username = Request.Form("username") p_password = Request.Form("password") %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\default.inc <% If p_page = "" Or p_page = "admin" Then %>

68 / 91

5. Mellékletek

69 / 91

Adminisztrációs menü

Leírás	Link
Üres adatbázis létrehozása:	inicializálás!
Új felhasználó hozzáadása:	regisztráció!
Felhasználó adatainak módosítása:	változtatás!
Felhasználó törlése:	törlés!

<% Else %>

Felhasználói menü

Leírás	Link
Felhasználó beléptetése:	belépés!
Felhasználó menü:	menü megjelenítése!
Felhasználó kiléptetése:	kilépés!

<% End If %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\delete.inc <% Sub dbList dbOpen strSQL = "SELECT * FROM "& t_userdb & ";" Set rs = dbConn.Execute(strSQL) Response.Write "

Törlés

" Dim cnt cnt = 1 Do Until rs.EOF Response.Write "" cnt = cnt + 1 rs.MoveNext Loop Response.Write "

Sorszám	Név
" & cnt & ".	" & rs("username") & "

" dbClose End Sub

Sub dbDelete(r_id) dbOpen strSQL = "DELETE FROM " & t_userdb & " WHERE id='" & r_id & "';" dbConn.Execute(strSQL) strSQL = "DROP TABLE statuser" & r_id & ";" dbConn.Execute(strSQL) dbClose End Sub %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\modify.inc <% Sub dbList dbOpen strSQL = "SELECT * FROM "& t_userdb & ";" Set rs = dbConn.Execute(strSQL)

5. Mellékletek

70 / 91

Response.Write "

Módosítás

" Dim cnt cnt = 1 Do Until rs.EOF Response.Write "" cnt = cnt + 1 rs.MoveNext Loop Response.Write "

Sorszám	Név
" & cnt & ".	" & rs("username") & "

" dbClose End Sub

Sub dbRead(r_id) dbOpen strSQL = "SELECT * FROM "& t_userdb & " WHERE id='" & r_id & "';" Set rs = dbConn.Execute(strSQL) p_username = rs("username") p_password1 = rs("password") p_password2 = rs("password") p_iptimelimit = rs("iptimelimit") p_url = rs("url") p_f_r = rs("f_r") p_f_b = rs("f_b") p_f_g = rs("f_g") p_b_r = rs("b_r") p_b_g = rs("b_g") p_b_b = rs("b_b") p_transbackground = rs("transbackground") p_fontsize = rs("fontsize") p_fontname = rs("fontname") dbClose End Sub

Sub dbUpdate(r_id) dbOpen strSQL = "UPDATE "& t_userdb & " SET " & _ "username = '" & p_username & "', " & _ "password = '" & p_password1 & "', " & _ "url = '" & p_url & "', " & _ "iptimelimit = '" & p_iptimelimit & "', " & _ "f_r = '" & p_f_r & "', " & _ "f_b = '" & p_f_b & "', " & _ "f_g = '" & p_f_g & "', " & _ "b_r = '" & p_b_r & "', " & _ "b_b = '" & p_b_b & "', " & _ "b_g = '" & p_b_g & "', " & _ "transbackground = '" & p_transbackground & "', " & _ "fontsize = '" & p_fontsize & "', " & _ "fontname = '" & p_fontname & "' " & _ "WHERE id='" & r_id & "';" dbConn.Execute(strSQL) dbClose End Sub %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\user_login.inc <% If IsEmpty(p_state) Or p_state<>2 Then %>

5. Mellékletek

<% ElseIf p_state=2 And p_username<>"" And p_password<>"" Then dbOpen strSQL = "SELECT username, password, id FROM " & t_userdb & " WHERE username='" & p_username & "' AND password='" & p_password & "';" Set rs = dbConn.Execute(strSQL) If Not rs.EOF Then p_id=rs("id") Response.Cookies("STAT_ID") = p_id Response.Redirect("/stat/user_menu.asp") Else %> <% Response.Write "

Sikertelen belépés!

" Response.Write "Helytelen a felhasználónév / jelszó páros!
" Response.Write "Újra" End IF dbClose Else %> <% Response.Write "

Sikeretelen belépés!

" Response.Write "Újra" End If %>

Fájl: c:\inetpub\wwwroot\stat\inc_asp\user_logout.inc <% Response.Cookies("STAT_ID") = -1 %>

Sikeres kilépés.

Fájl: c:\inetpub\wwwroot\stat\inc_asp\user_menu.inc <% Dim stat_id stat_id = Request.Cookies("STAT_ID") If stat_id = "" Or stat_id = "-1" Then Response.Write "

Hiba

Süti információ nem található, vagy érvénytelen adat. (" & stat_id & ")" Else %>

Statisztikák

Intervallum	Táblázat	Grafikon
Összes:	mutat
Éves:	mutat	mutat
Havi:	mutat	mutat
Heti:	mutat
Napi:	mutat
Óránkénti:	mutat

<% End If %>

71 / 91

5. Mellékletek

72 / 91

Fájl: c:\inetpub\wwwroot\stat\inc_asp\user_stat.inc <% Dim cnt Dim d_show Dim d_data Dim stat_id Dim p_where stat_id = Request.Cookies("STAT_ID") d_show = Request.QueryString("show") d_data = Request.QueryString("data") If d_data = "" Then d_data = "all" If d_show = "" Then d_show = "table" cnt = 1 dbOpen Response.Write "M E N Ü
" p_where = "" If(d_data = "month" And Request("year") <> "") Then p_where = "WHERE DATEPART(yy, logdate) = '" & Request("year") & "'" If(d_data = "day" And Request("year") <> "" And Request("month")<> "" ) Then p_where = "WHERE DATEPART(yy, logdate) = '" & Request("year") & "' AND DATEPART(mm, logdate) = '" & Request("month") & "'" If(d_data = "hour" And Request("year") <> "" And Request("month")<> "" AND Request("day") <> "") Then p_where = "WHERE DATEPART(yy, logdate) = '" & Request("year") & "' AND DATEPART(mm, logdate) = '" & Request("month") & "' AND DATEPART(dd, logdate) = '" & Request("day") & "'" If d_show = "table" Then If(d_data = "all") Then strSQL = "SELECT logdate, ipaddress, hostname, browser FROM statuser" & stat_id & " ORDER BY logdate;" If(d_data = "year") Then strSQL = "SELECT count(*) AS c, DATEPART(yy, logdate) AS year FROM statuser" & stat_id & " " & p_where & " GROUP BY DATEPART(yy, logdate) ORDER BY DATEPART(yy, logdate);" If(d_data = "month") Then strSQL = "SELECT count(*) AS c, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month FROM statuser" & stat_id & " " & p_where & " GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate);" If(d_data = "week") Then strSQL = "SELECT count(*) AS c, DATEPART(yy, logdate) AS year, DATEPART(ww, logdate) AS week FROM statuser" & stat_id & " " & p_where & " GROUP BY DATEPART(yy, logdate), DATEPART(ww, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(ww, logdate);" If(d_data = "day") Then strSQL = "SELECT count(*) AS c, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month, DATEPART(dd, logdate) AS day FROM statuser" & stat_id & " " & p_where & " GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate);" If(d_data = "hour") Then strSQL = "SELECT count(*) AS c, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month, DATEPART(dd, logdate) AS day, DATEPART(hh, logdate) AS hour FROM statuser" & stat_id & " " & p_where & " GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate), DATEPART(hh, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate), DATEPART(dd, logdate), DATEPART(hh, logdate);" Set rs = dbConn.Execute(strSQL) If(d_data = "all") Then Response.Write "

Látogatás, összes adat

" If(d_data = "year") Then Response.Write "

Látogatás, éves összesítés

Sorszám

Dátum, idő

IP

Host

Böngésző

" If(d_data = "month") Then Response.Write "

Látogatás, havi összesítés

Sorszám

Év

Találatok

Táblázat

Gr afikon

" If(d_data = "week") Then Response.Write "

Látogatás, heti összesítés

Sorszám

Év

Hónap

Találatok

Tábl ázat

Grafikon

" If(d_data = "day") Then Response.Write "

Látogatás, napi összesítés

Sorszám

Év

Hét

Találatok

" If(d_data = "hour") Then Response.Write "

Látogatás, óránkénti összesítés

Sorszám

Év

Hónap

Nap

Találatok< /b>

Táblázat

Grafikon

"

5. Mellékletek

73 / 91

Do Until rs.EOF if(d_data = "all") Then Response.Write "" if(d_data = "year") Then Response.Write "" if(d_data = "month") Then Response.Write "" if(d_data = "week") Then Response.Write "" if(d_data = "day") Then Response.Write "" if(d_data = "hour") Then Response.Write "" cnt = cnt + 1 rs.MoveNext Loop Response.Write "

Sorszám	Év	Hónap	Nap	Óra	Találatok
" & cnt & ".	" & rs("logdate") & "	" & rs("ipaddress") & "	" & rs("hostname") & "	" & rs("browser") & "
" & cnt & ".	" & rs("year") & ".	" & rs("c") & "	havi bontás	havi bontás
" & cnt & ".	" & rs("year") & ".	" & rs("month") & ".	" & rs("c") & "	napi bontás	napi bontás
" & cnt & ".	" & rs("year") & ".	" & rs("week") & ".	" & rs("c") & "
" & cnt & ".	" & rs("year") & ".	" & rs("month") & ".	" & rs("day") & ".	" & rs("c") & "	óránkénti bontás	óránkénti bontás
" & cnt & ".	" & rs("year") & ".	" & rs("month") & ".	" & rs("day") & ".	" & rs("hour") & ".	" & rs("c") & "

" Response.Write "
M E N Ü" Else If(d_data = "year") Then strSQL = "SELECT count(*) AS c, DATEPART(yy, logdate) AS year FROM statuser" & stat_id & " GROUP BY DATEPART(yy, logdate) ORDER BY DATEPART(yy, logdate);" If(d_data = "month") Then strSQL = "SELECT count(*) AS c, DATEPART(yy, logdate) AS year, DATEPART(mm, logdate) AS month FROM statuser" & stat_id & " GROUP BY DATEPART(yy, logdate), DATEPART(mm, logdate) ORDER BY DATEPART(yy, logdate), DATEPART(mm, logdate);" Set rs = dbConn.Execute(strSQL) If(d_data = "year") Then Response.Write "

Látogatás, éves összesítés grafikon

" If(d_data = "month") Then Response.Write "

Látogatás, havi összesítés grafikon

" Do Until rs.EOF if(d_data = "year") Then Response.Write "" if(d_data = "month") Then Response.Write "" rs.MoveNext Loop Response.Write "" Response.Write "
M E N Ü" End If dbClose %>

Fájl: c:\inetpub\wwwroot\stat\inc_htm\admin_newuser1.inc

<%=HeadTitle%>

5. Mellékletek

74 / 91

Felhasználó neve:
Jelszó:
Jelszó mégegyszer:
URL:
IP időkorlátozás:	másodperc
Szöveg szine (RGB):
Háttérszín (RGB):
Transzparens háttér:	<select name="transbackground"> >Nem >Igen
Betű mérete:
Betűtípus:	<select name="fontname"> >Arial >Times New Roman >Courier New >Verdana

Fájl: c:\inetpub\wwwroot\stat\inc_htm\admin_newuser2.inc

Sikeresen felvéve az adatbázisba.

Fájl: c:\inetpub\wwwroot\stat\inc_htm\admin_newuser3.inc

Hibás a jelszó vagy a felhasználó neve nem lett megadva!

">újra

Fájl: c:\inetpub\wwwroot\stat\inc_htm\footer.inc

---

WebStat v1.0

Fájl: c:\inetpub\wwwroot\stat\inc_htm\header.inc <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">

Admin oldal | Felhasználói oldal

---

Fájl: c:\inetpub\wwwroot\stat\inc_htm\user_login.inc

Belépés

Felhasználó neve:
Jelszó:

5. Mellékletek

75 / 91

5.6. PHP-ben megvalósított statisztikai rendszer forráskódja

Fájl: /var/www/stat/admin_create.php

Fájl: /var/www/stat/admin_delete.php

Fájl: /var/www/stat/admin_modify.php

Fájl: /var/www/stat/admin_newuser.php

Fájl: /var/www/stat/counter.php
5. Mellékletek

76 / 91

$p_f_r=$rs["f_r"]; $p_f_g=$rs["f_g"]; $p_f_b=$rs["f_b"]; $p_fontsize=$rs["fontsize"]; $p_fontname=$rs["fontname"]; $p_transbackground=$rs["transbackground"]; $p_url=$rs["url"]; if($p_fontname=="Courier New") $fontfile="/var/www/stat/fonts/cour.ttf"; if($p_fontname=="Times New Roman") $fontfile="/var/www/stat/fonts/times.ttf"; if($p_fontname=="Verdana") $fontfile="/var/www/stat/fonts/verdana.ttf"; $SQL_query = "SELECT COUNT(*) AS c FROM statuser".$p_id.";"; $SQL_result = mysql_query($SQL_query, $dbConn); $rs=mysql_fetch_array($SQL_result); $counter=$rs["c"]; $SQL_query = "SELECT iptimelimit FROM ".$t_userdb." WHERE id='".$p_id."';"; $SQL_result = mysql_query($SQL_query, $dbConn); $rs=mysql_fetch_array($SQL_result); $iptimelimit=$rs["iptimelimit"]; $SQL_query = "SELECT logdate FROM statuser" .$p_id." ORDER BY logdate DESC LIMIT 0, 1;"; $SQL_result = mysql_query($SQL_query, $dbConn); $rs=mysql_fetch_array($SQL_result); $OldDate = strtotime($rs["logdate"]); $NewDate = strtotime("-$iptimelimit second"); if ($p_url<>"" && $HTTP_REFERER <> $p_url ) $error=true; if(!$error && $NewDate > $OldDate) { dbInsert("statuser".$p_id, "'".date("Y.m.d H:i:s")."', '".$REMOTE_ADDR."', '".gethostbyaddr($REMOTE_ADDR)."', '".$HTTP_USER_AGENT."'"); $counter++; } } else { $error=true; }

if(!$error) { $message=" ".$counter." "; $TTFBBox = ImageTTFBBox($p_fontsize, 0, $fontfile, $message); $image = ImageCreateTrueColor($TTFBBox[2]-$TTFBBox[6]+20, $TTFBBox[3]-$TTFBBox[7]+20); if ($p_transbackground==1) { $FontColor = ImageColorAllocate($image, $p_f_r, $p_f_g, $p_f_b); $BackgroundColor = ImageColorAllocate($image, $p_b_r, $p_b_g, $p_b_b); ImageColorTransparent($image, $BackgroundColor); ImageFilledRectangle($image, 0, 0, ImageSX($image)-1, ImageSY($image)-1, $BackgroundColor); } else { $FontColor = ImageColorAllocate($image, $p_f_r, $p_f_g, $p_f_b); $BackgroundColor = ImageColorAllocate($image, $p_b_r, $p_b_g, $p_b_b); ImageFilledRectangle($image, 0, 0, ImageSX($image)-1, ImageSY($image)-1, $BackgroundColor); } } else { if ($p_url<>"" && $HTTP_REFERER<>$p_url) $message="Hibás hivatkozás"; else $message="Nincs ilyen számláló"; $p_fontsize=14; $TTFBBox = ImageTTFBBox($p_fontsize, 0, $fontfile, $message); $image = ImageCreate($TTFBBox[2]-$TTFBBox[6]+20, $TTFBBox[3]-$TTFBBox[7]+20);

$FontColor = ImageColorAllocate($image, 255, 255, 255); $BackgroundColor = ImageColorAllocate($image, 0, 0, 0); ImageFilledRectangle($image, 0, 0, ImageSX($image)-1, ImageSY($image)-1, $BackgroundColor); }

ImageTTFText ($image, $p_fontsize, 0, 10, 25, $FontColor, "/var/www/stat/fonts/arial.ttf", $message); ImagePng($image); ImageDestroy($image); ?>

5. Mellékletek

77 / 91

Fájl: /var/www/stat/graph.php
//Kép létrehozása $MaxX = 700; $MaxY = 220; $FrameX = 50; $FrameY = 50; $PicFrameX = 70; $PicFrameY = 90; $MaxRow = 5;

5. Mellékletek

78 / 91

Header("Content-type: image/png"); $image = ImageCreateTrueColor($MaxX + $PicFrameX, $MaxY + $PicFrameY); //Megjelenítéshez szükséges változók beállítása $BackColor = ImageColorAllocate($image, 245, 245, 245); $FrameColor = ImageColorAllocate($image, 180, 180, 180); $GraphColor = ImageColorAllocate($image, 235, 235, 235); $ColColor = ImageColorAllocate($image, 255, 250, 220); $ColFrameColor = ImageColorAllocate($image, 255, 180, 0); $LineColor = ImageColorAllocate($image, 255, 20, 20); $FontColor = ImageColorAllocate($image, 10, 120, 10); $TitleColor = ImageColorAllocate($image, 15, 15, 255); if ($p_graph=="year") $SQL_query = "SELECT count(*) AS data, YEAR(logdate) AS year, MONTH(logdate) AS month FROM statuser$p_id WHERE YEAR(logdate) = '$p_year' OR YEAR(logdate) = '$p_oldyear' GROUP BY YEAR(logdate), MONTH(logdate) ORDER BY logdate;"; if ($p_graph=="month") $SQL_query = "SELECT count(*) AS data, YEAR(logdate) AS year, MONTH(logdate) AS month FROM statuser$p_id WHERE (YEAR(logdate) = '$p_year' AND MONTH(logdate) = '$p_month') OR (YEAR(logdate) ='$p_oldyear' AND MONTH(logdate) = '$p_oldmonth') GROUP BY YEAR(logdate), MONTH(logdate), DAYOFMONTH(logdate) ORDER BY logdate;"; if ($p_graph=="day") $SQL_query = "SELECT count(*) AS data, YEAR(logdate) AS year, MONTH(logdate) AS month, DAYOFMONTH(logdate) AS day FROM statuser$p_id WHERE (YEAR(logdate) = '$p_year' AND MONTH(logdate) = '$p_month' AND DAYOFMONTH(logdate) = '$p_day') OR (YEAR(logdate) = '$p_oldyear' AND MONTH(logdate) = '$p_oldmonth' AND DAYOFMONTH(logdate) = '$p_oldday') GROUP BY YEAR(logdate), MONTH(logdate), DaYOFMONTH(logdate), HOUR(logdate) ORDER BY logdate;"; $SQL_result = mysql_query($SQL_query, $dbConn); //Képméret beállítása $fontsize=10; $fontfile="/var/www/stat/fonts/arialbd.ttf"; // Háttér és belső grafikon keret rajzolása ImageFilledRectangle($image, 0, 0, ImageSX($image)-1, ImageSY($image)-1, $BackColor); ImageFilledRectangle($image, $FrameX, $FrameY, $MaxX+$FrameX, $MaxY+$FrameY, $GraphColor); ImageRectangle($image, $FrameX, $FrameY, $MaxX+$FrameX, $MaxY+$FrameY, $FrameColor);

//Viszintes segédvonalak rajzolása $Y = $MaxY / $MaxRow; $Pos = 1; while ($Pos < $MaxRow) { ImageLine($image, $FrameX, $FrameY + $Pos*$Y, $FrameX+$MaxX, $FrameY + $Pos*$Y, $FrameColor); $Pos++; } // Maximum megállapítása $DataMax = 0; $ColMax = 0; while( ($rs=mysql_fetch_array($SQL_result)) ) { if ($DataMax < $rs["data"]) $DataMax = $rs["data"]; $ColMax++; } // Maximális érték beállítása $DataMax = round($DataMax*1.1); if ($DataMax % $MaxRow == 0) { $DataMax += $MaxRow; } else { $DataMax += $MaxRow-($DataMax%$MaxRow); }

// Viszintes érékek felrajzolása $Pos = $MaxRow; while($Pos >= 0) { $DataTemp = $DataMax * $Pos / $MaxRow; $ttfbbox=ImageTTFBBox($fontsize, 0, $fontfile, $DataTemp); $width=$ttfbbox[4]-$ttfbbox[6]+1; $height=$ttfbbox[3]-$ttfbbox[5]+1; ImageTTFText($image, $fontsize, 0, $FrameX-$width-6, $FrameY+$height/2 + $MaxY-$MaxY*$Pos/$MaxRow, $FontColor, $fontfile, $DataTemp); $Pos--; }

5. Mellékletek

79 / 91

if ($p_graph=="year") $Title="$p_year. év látogatottsági statisztikája havi bontásban"; if ($p_graph=="month") $Title="$p_year. év ".$FMonth[$p_month-1]." hó látogatottsági statisztikája napi bontásban"; if ($p_graph=="day") $Title="$p_year. év ".$FMonth[$p_month-1]." hó $p_day. nap látogatottsági statisztikája óránkénti bontásban"; $ttfbbox=ImageTTFBBox($fontsize, 0, $fontfile, $Title); $height=$ttfbbox[3]-$ttfbbox[5]; ImageTTFText($image, $fontsize, 0, $FrameX+25, $FrameY-5, $TitleColor, $fontfile, $Title); ImageFilledRectangle($image, $FrameX, $FrameY-$height-3, $FrameX+20, $FrameY-3, $ColColor); ImageRectangle($image, $FrameX, $FrameY-$height-5, $FrameX+20, $FrameY-5, $ColFrameColor); if ($p_oldgraph=="" || $p_oldgraph=="yes") { if ($p_graph=="year") $Title = "$p_oldyear. év látogatottsági statisztikája havi bontásban"; if ($p_graph=="month") $Title = "$p_oldyear. év ".$FMonth[$p_oldmonth-1]." hó látogatottsági statisztikája napi bontásban"; if ($p_graph=="day") $Title = "$p_oldyear. év ".$FMonth[$p_oldmonth-1]." hó $p_oldday. nap látogatottsági statisztikája óránkénti bontásban"; ImageTTFText($image, $fontsize, 0, $FrameX+25, $FrameY-$height-10, $TitleColor, $fontfile, $Title); ImageFilledRectangle($image, $FrameX, $FrameY-$height-17, $FrameX+20, $FrameY-$height-16, $LineColor); } // Oszlopok kirajzolása if ($p_graph=="year") { $ColMax = 13; $ColX = 10; } if ($p_graph=="month") { $ColMax = 32; $ColX = 5; } if ($p_graph=="day") { $ColMax = 25; $ColX = 7; } $SpaceX = $MaxX / $ColMax - $ColX; if ($p_graph=="year") { $Pos = 0; while($Pos < 12) { $ttfbbox=ImageTTFBBox($fontsize, 0, $fontfile, $Month[$Pos]); $width=$ttfbbox[4]-$ttfbbox[6]+1; ImageTTFText($image, $fontsize, 0, $FrameX+($SpaceX+$ColX)/2+$Pos*($SpaceX+$ColX)+($SpaceX-$width)/2-1, $FrameY+$MaxY+10+$fontsize, $FontColor, $fontfile, $Month[$Pos]); $Pos++; } } if ($p_graph=="month") { $Pos = 0; while($Pos < 31) { $ttfbbox=ImageTTFBBox($fontsize, 0, $fontfile, $Pos+1); $width=$ttfbbox[4]-$ttfbbox[6]+1; ImageTTFText($image, $fontsize, 0, $FrameX+($SpaceX+$ColX)/2+$Pos*($SpaceX+$ColX)+($SpaceX-$width)/2-1, $FrameY+$MaxY+10+$fontsize, $FontColor, $fontfile, $Pos+1); $Pos++; } } if ($p_graph=="day") { $Pos = 0; while($Pos < 24 ) { $ttfbbox=ImageTTFBBox($fontsize, 0, $fontfile, $Pos); $width=$ttfbbox[4]-$ttfbbox[6]+1; ImageTTFText($image, $fontsize, 0, $FrameX+($SpaceX+$ColX)/2+$Pos*($SpaceX+$ColX)+($SpaceX-$width)/2-1, $FrameY+$MaxY+10+$fontsize, $FontColor, $fontfile, $Pos); $Pos++; } } // Aktuális grafikon adatainak lekérdezése és kirajzolása if ($p_graph=="year") $SQL_query = "SELECT count(*) AS data, YEAR(logdate) AS year, MONTH(logdate) AS month FROM statuser$p_id WHERE YEAR(logdate) = '$p_year' GROUP BY YEAR(logdate), MONTH(logdate) ORDER BY logdate;"; if ($p_graph=="month") $SQL_query = "SELECT count(*) AS data, YEAR(logdate) AS year, MONTH(logdate) AS month, DAYOFMONTH(logdate) AS day FROM statuser$p_id WHERE YEAR(logdate) = '$p_year' AND MONTH(logdate) = '$p_month' GROUP BY YEAR(logdate), MONTH(logdate), DAYOFMONTH(logdate) ORDER BY logdate;"; if ($p_graph=="day") $SQL_query = "SELECT count(*) AS data, YEAR(logdate) AS year, MONTH(logdate) AS month, DAYOFMONTH(logdate) AS day, HOUR(logdate) AS hour FROM statuser$p_id WHERE YEAR(logdate) = '$p_year' AND MONTH(logdate) = '$p_month' AND DAYOFMONTH(logdate) = '$p_day' GROUP BY YEAR(logdate), MONTH(logdate), DAYOFMONTH(logdate), HOUR(logdate) ORDER BY logdate;";

5. Mellékletek

80 / 91

$SQL_result = mysql_query($SQL_query, $dbConn); $Pos = 0; $rs=mysql_fetch_array($SQL_result); while ( $rs) { if ($p_graph=="year" && $Pos+1==$rs["month"]) $Data=$rs["data"]; else $Data=0; if ($p_graph=="month") { if ($Pos+1==$rs["day"]) $Data=$rs["data"]; else $Data=0; } if ($p_graph=="day") { if ($Pos==$rs["hour"]) $Data=$rs["data"]; else $Data=0; } $SpaceY=$MaxY-($MaxY*$Data/$DataMax)-1; if($Data>0) { ImageFilledRectangle ($image, $FrameX+($SpaceX+$ColX)/2+$Pos*($SpaceX+$ColX), $FrameY+$SpaceY, $FrameX+($SpaceX+$ColX)/2+$SpaceX+$Pos*($SpaceX+$ColX), $FrameY+$MaxY, $ColColor); ImageRectangle ($image, $FrameX+($SpaceX+$ColX)/2+$Pos*($SpaceX+$ColX), $FrameY+$SpaceY, $FrameX+($SpaceX+$ColX)/2+$SpaceX+$Pos*($SpaceX+$ColX), $FrameY+$MaxY, $ColFrameColor); } if ($p_graph=="year" && $Pos+1==$rs["month"]) $rs=mysql_fetch_array($SQL_result); if ($p_graph=="month") { if ($Pos+1==$rs["day"]) $rs=mysql_fetch_array($SQL_result); } if ($p_graph=="day") { if ($Pos==$rs["hour"]) $rs=mysql_fetch_array($SQL_result); } $Pos++; }

// Előző évi grafikon adatainak lekérdezése és kirajzolása if ($p_graph=="year") $SQL_query = "SELECT count(*) AS data, YEAR(logdate) AS year, MONTH(logdate) AS month FROM statuser$p_id WHERE YEAR(logdate) = '$p_oldyear' GROUP BY YEAR(logdate), MONTH(logdate) ORDER BY logdate;"; if ($p_graph=="month") $SQL_query = "SELECT count(*) AS data, YEAR(logdate) AS year, MONTH(logdate) AS month, DAYOFMONTH(logdate) AS day FROM statuser$p_id WHERE YEAR(logdate) = '$p_oldyear' AND MONTH(logdate) = '$p_oldmonth' GROUP BY YEAR(logdate), MONTH(logdate), DAYOFMONTH(logdate) ORDER BY logdate;"; if ($p_graph=="day") $SQL_query = "SELECT count(*) AS data, YEAR(logdate) AS year, MONTH(logdate) AS month, DAYOFMONTH(logdate) AS day, HOUR(logdate) AS hour FROM statuser$p_id WHERE YEAR(logdate) = '$p_oldyear' AND MONTH(logdate) = '$p_oldmonth' AND DAYOFMONTH(logdate) = '$p_oldday' GROUP BY YEAR(logdate), MONTH(logdate), DAYOFMONTH(logdate), HOUR(logdate) ORDER BY logdate;"; $SQL_result = mysql_query($SQL_query, $dbConn); if ($p_oldgraph=="" || $p_oldgraph=="yes") { $Pos = 0; $rs=mysql_fetch_array($SQL_result); while ( $rs) { if($p_graph=="year" && $Pos+1==$rs["month"]) $Data=$rs["data"]; else $Data=0; if($p_graph=="month") { if($Pos+1==$rs["day"]) $Data=$rs["data"]; else $Data=0; } if($p_graph=="day") { if ($Pos==$rs["hour"]) $Data=$rs["data"]; else $Data=0; } $SpaceY=$MaxY-($MaxY*$Data/$DataMax)-1; if ($Pos==0) { $from_x=$FrameX+($SpaceX+ColX)/2+SpaceX/2; $from_y=$FrameY+$SpaceY; } else { $to_x = $FrameX+($SpaceX+$ColX)/2+$Pos*($SpaceX+$ColX)+$SpaceX/2; $to_y = $FrameY + $SpaceY; ImageLine($image, $from_x, $from_y, $to_x, $to_y, $LineColor); $from_x = $to_x; $from_y = $to_y; } if ($p_graph=="year" && $Pos+1==$rs["month"]) $rs=mysql_fetch_array($SQL_result); if ($p_graph=="month") { if ($Pos+1==$rs["day"]) $rs=mysql_fetch_array($SQL_result); }

5. Mellékletek if ($p_graph=="day") { if ($Pos==$rs["hour"]) $rs=mysql_fetch_array($SQL_result); } $Pos++; } } ImagePng($image); ImageDestroy($image); ?>

Fájl: /var/www/stat/index.php

Fájl: /var/www/stat/user_login.php

Fájl: /var/www/stat/user_logout.php

Fájl: /var/www/stat/user_menu.php

Fájl: /var/www/stat/user_stat.php

Fájl: /var/www/stat/inc_php/add.inc
81 / 91

5. Mellékletek

82 / 91

If ($rs["c"] > 0) { $SQL_query = "SELECT MAX(id) max_id FROM ".$t_userdb.";"; $SQL_result = mysql_query($SQL_query, $dbConn); $rs = mysql_fetch_array($SQL_result); $numID = $rs["max_id"] + 1; } else { $numID = 100000; } dbInsert($t_userdb, "'".$numID."', '".$p_username."', '".$p_password1."', '".$p_url."', '".$p_iptimelimit."', '".$p_b_r."', '".$p_b_g."', '".$p_b_b."', '".$p_f_r."', '".$p_f_g."', '".$p_f_b."', '".$p_transbackground."', '".$p_fontsize."', '".$p_fontname."'"); dbCreate("statuser".$numID, "logdate datetime, ipaddress char(15), hostname varchar(200), browser varchar(200)"); $SQL_query = "CREATE INDEX logdate_ndx ON statuser".$numID." (logdate);"; mysql_query($SQL_query, $dbConn); ?>

Fájl: /var/www/stat/inc_php/admin_create.inc

Fájl: /var/www/stat/inc_php/admin_delete.inc "") { dbDelete($p_id); $TitleName = "Felhasználó törlése" ; Include("/var/www/stat/inc_htm/header.inc"); ?>

Törölve az adatbázisból: !

?do=list">Listázás

Hiba a törlés közben!

Fájl: /var/www/stat/inc_php/admin_modify.inc
5. Mellékletek Include("modify.inc"); Include("declares_form.inc"); If (($p_do=="" || $p_do == "list") && $p_state=="") { $TitleName = "Felhasználó listázása (módosítás)"; Include("/var/www/stat/inc_htm/header.inc"); dbList(); } elseif ($p_do == "detail" && $p_id<>"") { dbRead($p_id); $TitleName = "Felhasználó módosítása"; $HeadTitle = "Felhasználó adatai"; $ButtonName = "Módosít"; $p_state=3; Include("/var/www/stat/inc_htm/header.inc"); Include("/var/www/stat/inc_htm/admin_newuser1.inc"); } elseIf ($p_state<>"" && $p_state == 3 && $p_id<>"" && $p_password1==$p_password2) { $TitleName = "Felhasználó adat módosítása"; Include("/var/www/stat/inc_htm/header.inc"); dbUpdate($p_id); ?>

Sikeres módosítás!

?do=list">Listázás

Hiba a módosítás megadásánál! Rossz jelszó?

Fájl: /var/www/stat/inc_php/admin_newuser.inc 2) { $p_id=-1; $p_state=2; $p_username="Login_name"; $p_password1=""; $p_url="http://localhost"; $p_iptimelimit=3600; $p_f_r=255; $p_f_g=255; $p_f_b=255; $p_b_r=0; $p_b_g=0; $p_b_b=0; $p_transbackground=0; $p_fontsize=11; $p_fontname="Times New Roman"; Include("/var/www/stat/inc_htm/admin_newuser1.inc"); } elseif ($p_state == 2 && $p_password1==$p_password2 && $p_username<>"" && $p_password1<>"") { Include("add.inc"); Include("/var/www/stat/inc_htm/admin_newuser2.inc"); } else { Include("/var/www/stat/inc_htm/admin_newuser3.inc"); } ?>

83 / 91

5. Mellékletek

84 / 91

Fájl: /var/www/stat/inc_php/dbfunc.inc
Function dbCreate($pName, $pType) { global $dbConn; $SQL_query = "CREATE TABLE ".$pName."(".$pType.");"; mysql_query($SQL_query, $dbConn); }

Function dbInsert($pName, $pLine) { global $dbConn; $SQL_query = "INSERT INTO ".$pName." VALUES(".$pLine.");"; mysql_query($SQL_query, $dbConn); } ?>

Fájl: /var/www/stat/inc_php/declares.inc

Fájl: /var/www/stat/inc_php/declares_form.inc "" || $p_id<>"" ) { $p_username = $username; $p_password1 = $password1; $p_password2 = $password2; $p_url = $url; $p_iptimelimit = $iptimelimit; $p_f_r = $f_r; $p_f_g = $f_g; $p_f_b = $f_b; $p_b_r = $b_r; $p_b_g = $b_g; $p_b_b = $b_b; $p_transbackground = $transbackground; $p_fontsize = $fontsize; $p_fontname = $fontname; } ?>

Fájl: /var/www/stat/inc_php/declares_login.inc
5. Mellékletek

85 / 91

$p_username = $username; $p_password = $password; ?>

Fájl: /var/www/stat/inc_php/delete.inc Törlés"; $cnt = 1; while ( ($rs=mysql_fetch_array($SQL_result)) ) { echo ""; $cnt++; } echo "

Sorszám	Név
".$cnt.".	".$rs["username"]."

"; } function dbDelete($r_id) { global $dbConn, $t_userdb; $SQL_query = "DELETE FROM ".$t_userdb." WHERE id='".$r_id."';"; mysql_query($SQL_query, $dbConn); $SQL_query = "DROP TABLE statuser".$r_id.";"; mysql_query($SQL_query, $dbConn); } ?>

Fájl: /var/www/stat/inc_php/index.inc

Adminisztrációs menü

Leírás	Link
Üres adatbázis létrehozása:	inicializálás!
Új felhasználó hozzáadása:	regisztráció!
Felhasználó adatainak módosítása:	változtatás!
Felhasználó törlése:	törlés!

Felhasználói menü

Leírás	Link
Felhasználó beléptetése:	belépés!
Felhasználó menü:	menü megjelenítése!
Felhasználó kiléptetése:	kilépés!

Fájl: /var/www/stat/inc_php/modify.inc
5. Mellékletek

86 / 91

$SQL_query = "SELECT id, username FROM ".$t_userdb.";"; $SQL_result = mysql_query($SQL_query, $dbConn); echo "

Módosítás

"; $cnt = 1; while( ($rs = mysql_fetch_array($SQL_result, $dbConn)) ) { echo ""; $cnt++; } echo "

Sorszám	Név
".$cnt.".	".$rs["username"]."

"; } function dbRead($r_id) { global $dbConn, $t_userdb, $p_username, $p_password1, $p_password2, $p_iptimelimit, $p_url, $p_f_r, $p_f_b, $p_f_g, $p_b_r, $p_b_b, $p_b_g, $p_transbackground, $p_fontsize, $p_fontname; $SQL_query = "SELECT username, password, iptimelimit, url, f_r, f_b, f_g, b_r, b_g, b_b, transbackground, fontsize, fontname FROM ".$t_userdb." WHERE id='".$r_id."';"; $SQL_result = mysql_query($SQL_query, $dbConn); $rs = mysql_fetch_array($SQL_result); $p_username = $rs["username"]; $p_password1 = $rs["password"]; $p_password2 = $rs["password"]; $p_iptimelimit = $rs["iptimelimit"]; $p_url = $rs["url"]; $p_f_r = $rs["f_r"]; $p_f_b = $rs["f_b"]; $p_f_g = $rs["f_g"]; $p_b_r = $rs["b_r"]; $p_b_g = $rs["b_g"]; $p_b_b = $rs["b_b"]; $p_transbackground = $rs["transbackground"]; $p_fontsize = $rs["fontsize"]; $p_fontname = $rs["fontname"]; } function dbUpdate($r_id) { global $dbConn, $t_userdb, $p_username, $p_password1, $p_password2, $p_iptimelimit, $p_url, $p_f_r, $p_f_b, $p_f_g, $p_b_r, $p_b_b, $p_b_g, $p_transbackground, $p_fontsize, $p_fontname; $SQL_query = "UPDATE ".$t_userdb." SET ". "username = '".$p_username."', ". "password = '".$p_password1."', ". "url = '".$p_url."', ". "iptimelimit = '".$p_iptimelimit."', ". "f_r = '".$p_f_r."', ". "f_b = '".$p_f_b."', ". "f_g = '".$p_f_g."', ". "b_r = '".$p_b_r."', ". "b_b = '".$p_b_b."', ". "b_g = '".$p_b_g."', ". "transbackground = '".$p_transbackground."', ". "fontsize = '".$p_fontsize."', ". "fontname = '".$p_fontname."' ". "WHERE id='".$r_id."';"; mysql_query($SQL_query, $dbConn); } ?>

Fájl: /var/www/stat/inc_php/user_login.inc 2) { Include("/var/www/stat/inc_htm/header.inc");

5. Mellékletek Include("/var/www/stat/inc_htm/user_login.inc"); } elseIf ($p_state==2 && $p_username<>"" && $p_password<>"") { $SQL_query = "SELECT username, password, id FROM ".$t_userdb." WHERE username='".$p_username."' AND password='".$p_password."';"; $SQL_result = mysql_query($SQL_query, $dbConn); If ($rs=mysql_fetch_array($SQL_result)) { $p_id=$rs["id"]; SetCookie("STAT_ID", $p_id, time()+3600); header("Location: /stat/user_menu.php"); exit; } else { echo "

Sikertelen belépés!

"; echo "Helytelen a felhasználónév / jelszó páros!
"; echo "Újra"; } } else { Include("/var/www/stat/inc_htm/header.inc"); echo "

Sikeretelen belépés!

"; echo "Újra"; } ?>

Fájl: /var/www/stat/inc_php/user_logout.inc

Sikeres kilépés.

Fájl: /var/www/stat/inc_php/user_menu.inc HibaSüti információ nem található, vagy érvénytelen adat. ($stat_id)"; } else { ?>

Statisztikák

Intervallum	Táblázat	Grafikon
Összes:	mutat
Éves:	mutat	mutat
Havi:	mutat	mutat
Heti:	mutat
Napi:	mutat
Óránkénti:	mutat

87 / 91

5. Mellékletek

88 / 91

Fájl: /var/www/stat/inc_php/user_stat.inc M E N Ü
"; $p_where = ""; if($d_data=="month" && $year<>"") $p_where = "WHERE YEAR(logdate) = '$year'"; if($d_data=="day" && $year<>"" && $month<> "") $p_where = "WHERE YEAR(logdate) = '$year' AND MONTH(logdate) = '$month'"; if($d_data=="hour" && $year<>"" && $month<>"" && $day<>"") $p_where = "WHERE YEAR(logdate) = '$year' AND MONTH(logdate) = '$month' AND DAYOFMONTH(logdate) = '$day'"; If ($d_show == "table") { if($d_data=="all") $SQL_query = "SELECT logdate, ipaddress, hostname, browser FROM statuser$stat_id ORDER BY logdate;"; if($d_data=="year") $SQL_query = "SELECT count(*) AS c, YEAR(logdate) AS year FROM statuser$stat_id $p_where GROUP BY YEAR(logdate) ORDER BY logdate;"; if($d_data=="month") $SQL_query = "SELECT count(*) AS c, YEAR(logdate) AS year, MONTH(logdate) AS month FROM statuser$stat_id $p_where GROUP BY YEAR(logdate), MONTH(logdate) ORDER BY logdate;"; if($d_data=="week") $SQL_query = "SELECT count(*) AS c, YEAR(logdate) AS year, WEEK(logdate, 1) AS week FROM statuser$stat_id $p_where GROUP BY YEAR(logdate), WEEK(logdate, 1) ORDER BY logdate;"; if($d_data=="day") $SQL_query = "SELECT count(*) AS c, YEAR(logdate) AS year, MONTH(logdate) AS month, DAYOFMONTH(logdate) AS day FROM statuser$stat_id $p_where GROUP BY YEAR(logdate), MONTH(logdate), DAYOFMONTH(logdate) ORDER BY logdate;"; if($d_data=="hour") $SQL_query = "SELECT count(*) AS c, YEAR(logdate) AS year, MONTH(logdate) AS month, DAYOFMONTH(logdate) AS day, HOUR(logdate) AS hour FROM statuser$stat_id $p_where GROUP BY YEAR(logdate), MONTH(logdate), DAYOFMONTH(logdate), HOUR(logdate) ORDER BY logdate;"; $SQL_result = mysql_query($SQL_query, $dbConn); if($d_data=="all") echo "

Látogatás, összes adat

"; if($d_data=="year") echo "

Látogatás, éves összesítés

Sorszám

Dátum, idő

IP

Host

Böngésző

"; if($d_data=="month") echo "

Látogatás, havi összesítés

Sorszám

Év

Találatok

Táblázat

Gr afikon

"; if($d_data=="week") echo "

Látogatás, heti összesítés

Sorszám

Év

Hónap

Találatok

Tábl ázat

Grafikon

"; if($d_data=="day") echo "

Látogatás, napi összesítés

Sorszám

Év

Hét

Találatok

"; if($d_data=="hour") echo "

Látogatás, óránkénti összesítés

Sorszám

Év

Hónap

Nap

Találatok< /b>

Táblázat

Grafikon

"; while( ($rs=mysql_fetch_array($SQL_result)) ) { if($d_data=="all") echo ""; if($d_data=="year") echo ""; if($d_data=="month") echo ""; if($d_data=="week") echo ""; if($d_data=="day") echo ""; if($d_data=="hour") echo ""; $cnt++; } echo "

Sorszám	Év	Hónap	Nap	Óra	Találatok
$cnt.	".$rs["logdate"]."	".$rs["ipaddress"]."	".$rs["hostname"]."	".$rs["browser"]."
$cnt.	".$rs["year"].".	".$rs["c"]."	havi bontás	havi bontás
$cnt.	".$rs["year"].".	".$rs["month"].".	".$rs["c"]."	napi bontás	napi bontás
$cnt.	".$rs["year"].".	".$rs["week"].".	".$rs["c"]."
$cnt.	".$rs["year"].".	".$rs["month"].".	".$rs["day"].".	".$rs["c"]."	óránkénti 5. Mellékletek 89 / 91 bontás	óránkénti bontás
$cnt.	".$rs["year"].".	".$rs["month"].".	".$rs["day"].".	".$rs["hour"].".	".$rs["c"]."

\n"; echo "
M E N Ü"; } else { if($d_data=="year") $SQL_query = "SELECT count(*) AS c, YEAR(logdate) AS year FROM statuser$stat_id GROUP BY YEAR(logdate) ORDER BY YEAR(logdate);"; if($d_data=="month") $SQL_query = "SELECT count(*) AS c, YEAR(logdate) AS year, MONTH(logdate) AS month FROM statuser$stat_id GROUP BY YEAR(logdate), MONTH(logdate) ORDER BY YEAR(logdate), MONTH(logdate);"; $SQL_result = mysql_query($SQL_query, $dbConn); if($d_data=="year") echo "

Látogatás, éves összesítés grafikon

"; if($d_data=="month") echo "

Látogatás, havi összesítés grafikon

"; while(($rs=mysql_fetch_array($SQL_result)) ) { if($d_data=="year") echo ""; if($d_data=="month") echo ""; } echo ""; echo "
M E N Ü"; } ?>

Fájl: /var/www/stat/inc_htm/admin_newuser1.inc

Felhasználó neve:
Jelszó:
Jelszó mégegyszer:
URL:
IP időkorlátozás:	másodperc
Szöveg szine (RGB):
Háttérszín (RGB):
Transzparens háttér:	<select name="transbackground"> >Nem >Igen
Betű mérete:
Betűtípus:	<select name="fontname"> >Arial >Times New Roman >Courier New >Verdana

5. Mellékletek

90 / 91

Fájl: /var/www/stat/inc_htm/admin_newuser2.inc

Sikeresen felvéve az adatbázisba.

Fájl: /var/www/stat/inc_htm/admin_newuser3.inc

Hibás a jelszó vagy a felhasználó neve nem lett megadva!

">újra

Fájl: /var/www/stat/inc_htm/footer.inc

---

WebStat v1.0

Fájl: /var/www/stat/inc_htm/header.inc <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">

Admin oldal | Felhasználói oldal

---

Fájl: /var/www/stat/inc_htm/user_login.inc

Belépés

Felhasználó neve:
Jelszó:

6. Irodalomjegyzék

91 / 91

6. Irodalomjegyzék

- Apache dokumentáció: http://www.apache.org

- MySQL dokumentáció: http://www.mysql.com

- PHP dokumentáció: http://www.php.net

- IIS dokumentáció, ASP útmutató: http://localhost/iishelp [WinXP alatt, ha telepítve van az IIS 5.1 a helyi számítógépen.] http://msdn.microsoft.com/library/default.asp?url=/nhp/default.asp?contentid=28000522

- VBScript dokumentáció: http://msdn.microsoft.com/library/default.asp?url=/library/en-us/script56/html/vtorifunctions.asp

- Miscrosoft SQL 2000 Server dokumentáció: http://www.microsoft.com/sql

- Hasznos ASP oldalak: http://www.activeserverpages.com http://www.asphole.com http://www.15seconds.com

- HTML 4.01 specifikáció: http://www.w3.org/TR/html4/

- ServerObject Inc. honlapja: http://www.serverobject.com

- Microsoft Internet Information Server Resource Kit Technical Information And Tools for Building Better Web Site Microsoft Press, 1998