LINUXSOFT.cz Přeskoč levou lištu
Uživatel: Heslo:  
   CZUKPL

> Chat

Edituj záznam
Kategorie: PHP
Programovací jazyk: PHP
Domovská stránka:
Download:
Tvůrce:
Popis skriptu: Jednoduchy chat bez SQL
Nároky na klienta:
Nároky na server:
Kód s komentáři:
<-- index.php --> 

<? 
require "./const.php"

ClearStatCache(); // vymaz vyrovnavaciu pamet 

if(!File_Exists($subor)) // ak subor neexistuje - vytvor ho 
    
FClose(FOpen($subor,"w")); 
?> 
<html> 
<head> 
    <title>Jednoduchý "chat"</title> 
</head> 

<frameset rows="100,*,20"> 
    <frameset cols="34%,*"> 
        <frame src="head.php?oldSize=<?ClearStatCache(); echo FileSize($subor)?>" name="head"> 
        <frame src="form.php?name=&sprava=" name="form"> 
    </frameset> 
    <frame src="show.php" name="show"> 
</frameset> 

</html> 


<-- show.php --> 

<? 
Header
("Pragma: no-cache"); 
Header("Cache-control: no-cache"); 
Header("Expires: ".GMDate("D, d m Y H:i:s")." GMT"); 
?> 
<html> 
<head> 
    <title>Zobrazenie odkazov</title> 
</head> 
<body bgcolor="#cccccc"> 
<p style="font-family: 'ARIAL CE', 'HELVETICA CE','ARIAL','HELVETICA'; font-size: 12px;"> 
<? 
require "./const.php"// nacitaj "konstanty" 

$fp FOpen($subor,"r"); // otvor subor na citanie 

ClearStatCache(); // vymaz vyrovnavaciu pamet 
$velkostSuboru FileSize($subor); // zisti velkost suboru 

if($velkostSuboru $maxOdkazByte// uz mam v datovom subore viac sprav ako maxPocetOdkaz ? 
    
FSeek($fp,$velkostSuboru $maxOdkazByte); // zmen poziciu na poslednych maxPocetOdkaz 

FPassThru($fp); // vypis suboru od aktualnej pozicie & zatvor subor 
?> 
</p> 
</body> 
</html> 

<-- form --> 

<html> 
<!-- Ak nie je vyplnene meno - zameraj nan kurzor. Inak zameraj na spravu. --> 
<body bgcolor="#666666" onLoad="if(document.f.meno.value.length) document.f.sprava.focus(); else document.f.meno.focus();"> 
<? 
require "./const.php"

if(
$sprava != ""): // ak sprava nieco obsahuje 

    
if($meno == ""
        
$meno "anonym"// ak uzivatel nezadal meno bude "anonym" 
    
else 
        
$meno StripSlashes(StrTr($meno,"<>&","***")); // odstran lomitka spred citlivych znakov a nahradi niektore nebezpecne znaky 

    
$sprava StripSlashes(StrTr($sprava,"<>&","***")); // odstran lomitka spred citlivych znakov a nahradi niektore nebezpecne znaky 

    
$fp fopen($subor,"a"); // otvor subor pre doplnenie 
    
fputs($fp,sprintf($format,$meno,$sprava)); // naformatuj odkaz a zapis ho do suboru 
    
fclose($fp); // zatvor subor 
    
?> 
        <script language="JavaScript"> 
        parent.frames["show"].location = "show.php" // bola pridana sprava, obnov zobrazenie odkazov 
        </script> 
    <? 
    
endif; 
?> 
<form method=post name="f"> 
<table border="0" align="center"> 
    <tr align="center"> 
        <td>meno</td> 
        <td>správa</td> 
    </tr> 
    <tr align="center" valign="baseline"> 
        <td><input type="text" name="meno" size="8" maxlength="<?echo $maxDlzkaMeno?>" value="<?echo $meno?>"></td> 
        <td><input type="text" name="sprava" size="40" maxlength="<?echo $maxDlzkaSprava?>"> <input type=submit value=" Ok "></td> 
    </tr> 
</table> 
</form> 
</body> 
</html> 


<-- head.php --> 

<? 
Header
("Pragma: no-cache"); 
Header("Cache-control: no-cache"); 
Header("Expires: ".GMDate("D, d m Y H:i:s")." GMT"); 
?> 
<html> 
<head> 
    <title>Kontrola nových odkazov</title> 
    <style type="text/css"> 
        input { 
            background-color: #666666; 
            color: #000000; 
            border-left: 0px; 
            border-right: 0px; 
            border-top: 0px; 
            border-bottom: 0px; 
        } 
    </style> 
</head> 
<body bgcolor="#666666"> 
<? 
require "./const.php"

ClearStatCache(); // vymaz vyrovnavaciu pamet 
$newSize FileSize($subor); // zisti velkost suboru 

if($newSize != $oldSize): // pribudol novy odkaz ? 
?> 
    <script language="JavaScript"> 
    parent.frames["show"].location = "show.php" // obnov ramec "show" 
    </script> 
<? 
endif; 
?> 
<form name="form"> 
Kontrola nastane za <input type="text" name="timer" size="3" readonly> s 
</form> 

<script language="JavaScript"> 
var t = 10 // konstanta v sekundach znovunacitania stranky 

function Timer(){ 
    document.form.timer.value = t // vypis do formulara 
    if(!t) // uplynula doba casovaca 
        parent.frames["head"].location = "head.php?oldSize=<?echo $newSize?>
    else{ 
        t-- 
        setTimeout("Timer()",999) // spusti opat o 1 sekundu 
        } 
    } 
Timer() // spustenie odpocitavania 
</script> 

</body> 
</html> 

<-- const.php --> 

<? 
$subor 
"./data.txt"// cesta k suboru, kde sa budu ukladat spravy 

$maxDlzkaMeno 8// maximalna dlzka retazca "meno" 
$maxDlzkaSprava 80// maximalna dlzka retazca "sprava" 

$maxPocetOdkaz 15// kolko poslednych odkazov sa ma zobrazovat ? 

// format zobrazenia spravy 
$format sprintf("%s <b>%%%d.%ds: </b>%%-%d.%ds<br>",Date("d.m.Y H:i:s"),$maxDlzkaMeno,$maxDlzkaMeno,$maxDlzkaSprava,$maxDlzkaSprava); 

// kolko bajtov obsahuje maxPocetOdkaz ? 
$maxOdkazByte StrLen(sprintf($format,"","")) * $maxPocetOdkaz
?>
Zadal/a: Propernex


pridej.cz

> Vyhledávání software
> Vyhledávání článků

13.9.2017 8:00 /František Kučera

Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt – tentokrát netradičně v pondělí: 18. září od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).


Přidat komentář

3.9.2017 20:45 /Redakce Linuxsoft.cz
PR: Dne 21. září 2017 proběhne v Praze konference "Mobilní řešení pro business". Hlavní tématy konference budou: nejnovější trendy v oblasti mobilních řešení pro firmy, efektivní využití mobilních zařízení, bezpečnostní rizika a řešení pro jejich omezení, správa mobilních zařízení ve firmách a další.
Přidat komentář

15.5.2017 23:50 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě DIY, CNC, SDR nebo morseovka? Přijď na sraz spolku OpenAlt, který se bude konat ve čtvrtek 18. května od 18:00 v Radegastovně Perón (Stroupežnického 20, Praha 5).
Přidat komentář

12.5.2017 16:42 /Honza Javorek
PyCon CZ, česká konference o programovacím jazyce Python, se po dvou úspěšných ročnících v Brně bude letos konat v Praze, a to 8. až 10. června. Na konferenci letos zavítá např. i Armin Ronacher, známý především jako autor frameworku Flask, šablon Jinja2/Twig, a dalších projektů. Těšit se můžete na přednášky o datové analytice, tvorbě webu, testování, tvorbě API, učení a mentorování programování, přednášky o rozvoji komunity, o použití Pythonu ve vědě nebo k ovládání nejrůznějších zařízení (MicroPython). Na vlastní prsty si můžete na workshopech vyzkoušet postavit Pythonem ovládaného robota, naučit se učit šestileté děti programovat, efektivně testovat nebo si v Pythonu pohrát s kartografickým materiálem. Kupujte lístky, dokud jsou.
Přidat komentář

2.5.2017 9:20 /Eva Rázgová
Putovní konference československé Drupal komunity "DrupalCamp Československo" se tentokrát koná 27. 5.2017 na VUT FIT v Brně. Můžete načerpat a vyměnit si zkušenosti z oblasti Drupalu 7 a 8, UX, SEO, managementu týmového vývoje, využití Dockeru pro Drupal a dalších. Vítáni jsou nováčci i experti. Akci pořádají Slovenská Drupal Asociácia a česká Asociace pro Drupal. Registrace na webu .
Přidat komentář

1.5.2017 20:31 /Pavel `Goldenfish' Kysilka
PR: 25.5.2017 proběhne v Praze konference na téma Firemní informační systémy. Hlavními tématy jsou: Informační systémy s vlastní inteligencí, efektivní práce s dokumenty, mobilní přístup k datům nebo využívání cloudu.
Přidat komentář

15.4.2017 15:20 /František Kučera
Máš rád svobodný software a hardware nebo se o nich chceš něco dozvědět? Zajímá tě IoT a radiokomunikace? Přijď na sraz spolku OpenAlt, který se bude konat ve středu 19. dubna od 18:30 v Šenkovně (Sokolská 60, Praha 2).
Přidat komentář

5.3.2017 19:12 /Redakce Linuxsoft.cz
PR: 23. března proběhne v Praze konferenci na téma Cloud computing v praxi. Hlavními tématy jsou: Nejžhavější trendy v oblasti cloudu a cloudových řešení, Moderní cloudové služby, Infrastruktura současných cloudů, Efektivní využití cloudu, Nástrahy cloudových řešení a jak se jim vyhnout.
Přidat komentář

   Více ...   Přidat zprávičku

> Poslední diskuze

18.9.2017 14:37 / Rojas
high security vault

15.9.2017 7:33 / Wilson
new zealand childcare jobs

31.8.2017 12:11 / Jaromir Obr
Re: ukůládání dat ze souboru

30.7.2017 11:12 / Jaromir Obr
Národní znaky

27.7.2017 12:24 / Jaromir Obr
Cteni/zapis

Více ...

ISSN 1801-3805 | Provozovatel: Pavel Kysilka, IČ: 72868490 (2003-2017) | mail at linuxsoft dot cz | Design: www.megadesign.cz | Textová verze