Последние сообщения

Код: [Выделить]

<?php

session_start();

$data_dir="data";
$users_file="$data_dir/users.txt";
$polls_file="$data_dir/polls.txt";
$votes_dir="$data_dir/votes";

if(!file_exists($data_dir)) mkdir($data_dir);
if(!file_exists($votes_dir)) mkdir($votes_dir);
if(!file_exists($users_file)) file_put_contents($users_file,"");
if(!file_exists($polls_file)) file_put_contents($polls_file,"");

$a=isset($_GET["a"])?$_GET["a"]:"";

function head($title){
echo "<html><head><title>$title</title></head><body>";
echo "<table border=1 width=700 align=center><tr><td>";
}

function foot(){
echo "</td></tr></table></body></html>";
}

function check_login($u,$p){
$lines=file("data/users.txt");
foreach($lines as $l){
list($lu,$lp)=explode("|",trim($l));
if($u==$lu && $p==$lp) return 1;
}
return 0;
}

function user_exists($u){
$lines=file("data/users.txt");
foreach($lines as $l){
list($lu,$lp)=explode("|",trim($l));
if($u==$lu) return 1;
}
return 0;
}

function get_polls(){
return file("data/polls.txt");
}

function save_poll($title,$opts){
$id=time();
$str=$id."|".$title."|".implode(",",$opts)."\n";
file_put_contents("data/polls.txt",$str,FILE_APPEND);
}

function vote($poll,$opt){

$file="data/votes/".$poll.".txt";

$data=array();

if(file_exists($file)){
$lines=file($file);
foreach($lines as $l){
list($o,$c)=explode("|",$l);
$data[$o]=$c;
}
}

if(!isset($data[$opt])) $data[$opt]=0;
$data[$opt]++;

$f=fopen($file,"w");

foreach($data as $o=>$c){
fwrite($f,$o."|".$c."\n");
}

fclose($f);
}

if($a=="register" && $_POST){

$u=$_POST["user"];
$p=$_POST["pass"];

if(!user_exists($u)){
file_put_contents("data/users.txt",$u."|".$p."\n",FILE_APPEND);
$msg="Registered. Now login.";
}else{
$msg="User exists";
}

}

if($a=="login" && $_POST){

if(check_login($_POST["user"],$_POST["pass"])){
$_SESSION["user"]=$_POST["user"];
header("Location: index.php");
exit;
}else{
$msg="Wrong login";
}

}

if($a=="logout"){
session_destroy();
header("Location: index.php");
exit;
}

if($a=="create" && $_POST){

if($_SESSION["user"]){

$title=$_POST["title"];

$opts=array(
$_POST["o1"],
$_POST["o2"],
$_POST["o3"],
$_POST["o4"]
);

save_poll($title,$opts);

header("Location: index.php");
exit;

}

}

if($a=="vote" && $_POST){

vote($_GET["id"],$_POST["option"]);

head("Vote");
echo "Thanks for voting";
foot();
exit;

}

if($a=="vote"){

$id=$_GET["id"];

$polls=get_polls();

foreach($polls as $p){

list($pid,$title,$opts)=explode("|",$p);

if($pid==$id){
$options=explode(",",$opts);
}

}

head("Vote");

echo "<b>$title</b><br><br>";

echo "<form method=post>";

foreach($options as $o){
echo "<input type=radio name=option value=&#39;$o&#39;> $o<br>";
}

echo "<br><input type=submit value=Vote>";
echo "</form>";

foot();
exit;

}

if($a=="results"){

$id=$_GET["id"];

head("Results");

$file="data/votes/".$id.".txt";

if(file_exists($file)){

echo "<table border=1 width=400>";

$lines=file($file);

foreach($lines as $l){

list($o,$c)=explode("|",$l);

echo "<tr><td>$o</td><td>$c</td></tr>";

}

echo "</table>";

}else{
echo "No votes yet";
}

foot();
exit;

}

if($a=="create"){

if(!$_SESSION["user"]){
header("Location: index.php");
exit;
}

head("Create poll");

echo "<form method=post>";

echo "Title<br>";
echo "<input name=title><br><br>";

echo "Option 1<br>";
echo "<input name=o1><br>";

echo "Option 2<br>";
echo "<input name=o2><br>";

echo "Option 3<br>";
echo "<input name=o3><br>";

echo "Option 4<br>";
echo "<input name=o4><br><br>";

echo "<input type=submit value=&#39;Create&#39;>";

echo "</form>";

foot();
exit;

}

head("Polls");

if($_SESSION["user"]){

echo "Logged as ".$_SESSION["user"]." | ";
echo "<a href=?a=create>Create poll</a> | ";
echo "<a href=?a=logout>Logout</a>";

}else{

echo "<table width=100%><tr><td width=50%>";

echo "<b>Login</b><br>";
echo "<form method=post action=?a=login>";
echo "User<br><input name=user><br>";
echo "Pass<br><input type=password name=pass><br>";
echo "<input type=submit value=Login>";
echo "</form>";

echo "</td><td>";

echo "<b>Register</b><br>";
echo "<form method=post action=?a=register>";
echo "User<br><input name=user><br>";
echo "Pass<br><input type=password name=pass><br>";
echo "<input type=submit value=Register>";
echo "</form>";

echo "</td></tr></table>";

}

if(isset($msg)) echo "<br>$msg<br>";

echo "<hr>";

$polls=get_polls();

echo "<table border=1 width=600>";
echo "<tr><td>Poll</td><td>Links</td></tr>";

foreach($polls as $p){

list($id,$title,$opts)=explode("|",$p);

echo "<tr>";
echo "<td>$title</td>";
echo "<td>";
echo "<a href=?a=vote&id=$id>Vote</a> ";
echo "<a href=?a=results&id=$id>Results</a>";
echo "</td>";
echo "</tr>";

}

echo "</table>";

foot();

?>

Просто копируете, создаёте php файл и загружаете на свой сервак.

BitByByte's Forum.

Новости:

41 Обсуждение работы сайта bitbybyte.w10.site. / Книга жалоб и предложений. / Перенесено: Welcome to SMF! : Марта 10, 2026, 23:40:51
Автор BitByByte - Последний ответ от BitByByte
Тема перенесена в Флудильня. . http://gmogw.hoho.ws/index.php?topic=1.0

42 Обсуждение работы сайта bitbybyte.w10.site. / Обсуждение обновлений тут! / 11.03.2026: добавлена статья про зависание OS/2. : Марта 10, 2026, 23:39:23
Автор BitByByte - Последний ответ от BitByByte
Добавлена статья про то, как "повесить" OS/2 Warp.

43 Даунгрейд. / Зона обмена своими (и не только) современными Web 1.0 сайтами. / Re: Мой скрипт-опросник : Марта 10, 2026, 22:23:30
Автор dsalin - Последний ответ от BitByByte
Весьма полезный скрипт!

44 Даунгрейд. / Зона обмена своими (и не только) современными Web 1.0 сайтами. / Мой скрипт-опросник : Марта 10, 2026, 22:22:46
Автор dsalin - Последний ответ от dsalin
Код: [Выделить] <?php session_start(); $data_dir="data"; $users_file="$data_dir/users.txt"; $polls_file="$data_dir/polls.txt"; $votes_dir="$data_dir/votes"; if(!file_exists($data_dir)) mkdir($data_dir); if(!file_exists($votes_dir)) mkdir($votes_dir); if(!file_exists($users_file)) file_put_contents($users_file,""); if(!file_exists($polls_file)) file_put_contents($polls_file,""); $a=isset($_GET["a"])?$_GET["a"]:""; function head($title){ echo "<html><head><title>$title</title></head><body>"; echo "<table border=1 width=700 align=center><tr><td>"; } function foot(){ echo "</td></tr></table></body></html>"; } function check_login($u,$p){ $lines=file("data/users.txt"); foreach($lines as $l){ list($lu,$lp)=explode("\|",trim($l)); if($u==$lu && $p==$lp) return 1; } return 0; } function user_exists($u){ $lines=file("data/users.txt"); foreach($lines as $l){ list($lu,$lp)=explode("\|",trim($l)); if($u==$lu) return 1; } return 0; } function get_polls(){ return file("data/polls.txt"); } function save_poll($title,$opts){ $id=time(); $str=$id."\|".$title."\|".implode(",",$opts)."\n"; file_put_contents("data/polls.txt",$str,FILE_APPEND); } function vote($poll,$opt){ $file="data/votes/".$poll.".txt"; $data=array(); if(file_exists($file)){ $lines=file($file); foreach($lines as $l){ list($o,$c)=explode("\|",$l); $data[$o]=$c; } } if(!isset($data[$opt])) $data[$opt]=0; $data[$opt]++; $f=fopen($file,"w"); foreach($data as $o=>$c){ fwrite($f,$o."\|".$c."\n"); } fclose($f); } if($a=="register" && $_POST){ $u=$_POST["user"]; $p=$_POST["pass"]; if(!user_exists($u)){ file_put_contents("data/users.txt",$u."\|".$p."\n",FILE_APPEND); $msg="Registered. Now login."; }else{ $msg="User exists"; } } if($a=="login" && $_POST){ if(check_login($_POST["user"],$_POST["pass"])){ $_SESSION["user"]=$_POST["user"]; header("Location: index.php"); exit; }else{ $msg="Wrong login"; } } if($a=="logout"){ session_destroy(); header("Location: index.php"); exit; } if($a=="create" && $_POST){ if($_SESSION["user"]){ $title=$_POST["title"]; $opts=array( $_POST["o1"], $_POST["o2"], $_POST["o3"], $_POST["o4"] ); save_poll($title,$opts); header("Location: index.php"); exit; } } if($a=="vote" && $_POST){ vote($_GET["id"],$_POST["option"]); head("Vote"); echo "Thanks for voting"; foot(); exit; } if($a=="vote"){ $id=$_GET["id"]; $polls=get_polls(); foreach($polls as $p){ list($pid,$title,$opts)=explode("\|",$p); if($pid==$id){ $options=explode(",",$opts); } } head("Vote"); echo "<b>$title</b><br><br>"; echo "<form method=post>"; foreach($options as $o){ echo "<input type=radio name=option value='$o'> $o<br>"; } echo "<br><input type=submit value=Vote>"; echo "</form>"; foot(); exit; } if($a=="results"){ $id=$_GET["id"]; head("Results"); $file="data/votes/".$id.".txt"; if(file_exists($file)){ echo "<table border=1 width=400>"; $lines=file($file); foreach($lines as $l){ list($o,$c)=explode("\|",$l); echo "<tr><td>$o</td><td>$c</td></tr>"; } echo "</table>"; }else{ echo "No votes yet"; } foot(); exit; } if($a=="create"){ if(!$_SESSION["user"]){ header("Location: index.php"); exit; } head("Create poll"); echo "<form method=post>"; echo "Title<br>"; echo "<input name=title><br><br>"; echo "Option 1<br>"; echo "<input name=o1><br>"; echo "Option 2<br>"; echo "<input name=o2><br>"; echo "Option 3<br>"; echo "<input name=o3><br>"; echo "Option 4<br>"; echo "<input name=o4><br><br>"; echo "<input type=submit value='Create'>"; echo "</form>"; foot(); exit; } head("Polls"); if($_SESSION["user"]){ echo "Logged as ".$_SESSION["user"]." \| "; echo "<a href=?a=create>Create poll</a> \| "; echo "<a href=?a=logout>Logout</a>"; }else{ echo "<table width=100%><tr><td width=50%>"; echo "<b>Login</b><br>"; echo "<form method=post action=?a=login>"; echo "User<br><input name=user><br>"; echo "Pass<br><input type=password name=pass><br>"; echo "<input type=submit value=Login>"; echo "</form>"; echo "</td><td>"; echo "<b>Register</b><br>"; echo "<form method=post action=?a=register>"; echo "User<br><input name=user><br>"; echo "Pass<br><input type=password name=pass><br>"; echo "<input type=submit value=Register>"; echo "</form>"; echo "</td></tr></table>"; } if(isset($msg)) echo "<br>$msg<br>"; echo "<hr>"; $polls=get_polls(); echo "<table border=1 width=600>"; echo "<tr><td>Poll</td><td>Links</td></tr>"; foreach($polls as $p){ list($id,$title,$opts)=explode("\|",$p); echo "<tr>"; echo "<td>$title</td>"; echo "<td>"; echo "<a href=?a=vote&id=$id>Vote</a> "; echo "<a href=?a=results&id=$id>Results</a>"; echo "</td>"; echo "</tr>"; } echo "</table>"; foot(); ?>Просто копируете, создаёте php файл и загружаете на свой сервак.

45 Обсуждение работы сайта bitbybyte.w10.site. / Прочее про сайт. / Re: Хочу, чтобы... : Марта 10, 2026, 22:10:04
Автор BitByByte - Последний ответ от BitByByte
Цитата: mak от Марта 10, 2026, 22:01:58 Давайте добавим раздел "Программирование для старых ОС и устройств"? Честно говоря, я не хотел бы создавать разделы, отличные от тех, что были на форуме Gamma World осенью 2024-го. Пока вы можете писать подобное в этот раздел.

46 Обсуждение работы сайта bitbybyte.w10.site. / Прочее про сайт. / Re: Хочу, чтобы... : Марта 10, 2026, 22:01:58
Автор BitByByte - Последний ответ от mak
Давайте добавим раздел "Программирование для старых ОС и устройств"?

47 Даунгрейд. / Старые компьютеры и артефакты. / Re: Кто-то паял covox? : Марта 10, 2026, 21:58:28
Автор mak - Последний ответ от BitByByte
http://old-dos.ru/index.php?page=files&mode=files&do=show&id=5343 - нашёл плеер MP3-файлов для Covox, работает на DOS, но выпущен в 2007-м.

48 Даунгрейд. / Старые компьютеры и артефакты. / Кто-то паял covox? : Марта 10, 2026, 21:54:51
Автор mak - Последний ответ от mak
Интересует, паял ли кто-то Covox, или может быть имел уже готовый и слушал музыку. Какие программы для прослушивания музыки на нём знаете? Есть ли у вас такая музыка?

49 Старый Интернет. / Обмен сообщениями. / Re: По вашему являлись ли юзенет ноды прародителями форумов? : Марта 10, 2026, 21:53:29
Автор dsalin - Последний ответ от BitByByte
Были же ещё эхо-конференции в FidoNet. Хотя они, вроде, существовали паралелльно с UseNet - FidoNet был популярным у нас, а UseNet - в западных странах (ну понятное дело, что всё это стоит принимать с исключениями, но в основном так).

50 Старый Интернет. / Соединение прервано! / Re: DOCSIS подключение- было ли оно популярным у вас? : Марта 10, 2026, 21:53:17
Автор dsalin - Последний ответ от dsalin
Цитата: mak от Марта 10, 2026, 21:46:41 А что в нём интересного? Интернет по антенне кабельного ТВ. Тот же самый DSL, только не по телефонной линии Если честно, мне немного и dsl интересен, так-как его я тоже не застал, да и не знаю был ли он популярен в Болгарии вообще. По рассказам современников событий, в нашем домохозяйстве все резко перешагнули из dial up к витой паре.