Anketa

Nama niekto skript na nejaku sikovnu anketu na 5-6 poloziek. Jednu mam a su tam len 3 polozky (skusal som dorobit aj 4 ale, uz to nefunguvalo, pridavalo to hlas stale do jednej polozky) diky

Takze
-----------------------
<?
//pro pripad ze jeste nebyl odeslan formular
if (File_Exists ("anketa.dat")):
$fp = FOpen("anketa.dat", "r");
$data_anketa = FRead ($fp, FileSize("anketa.dat"));
List($ano,$ne,$nevim,$aaa) = Explode("#", $data_anketa);
endif;

//formular jiz byl odeslan a bylo hlasovano ano , ne nebo nevím
//soubory jeste neexistuji
if ($send=="ano" && ($anketa == "ano" || $anketa == "ne" || $anketa="nevim" || $anketa="aaa")):
if (!File_Exists ("anketa.dat")):
$ano = "0";
$ne = "0";
$nevim = "0";
$aaa = "0";
//zapis do anketa.dat
$fp = FOpen("anketa.dat", "w");
FWrite ($fp, $ano ."#" . $ne . "#" . $nevim . "#" . $aaa );
FClose($fp);
endif;

//precte IP adresy
if (File_Exists("ip.dat")):
$fp = FOpen("ip.dat", "r");
$data_ip = FRead ($fp, FileSize("ip.dat"));
$IP = Explode("#", $data_ip); //ziska prozatimni vysledky hlasovani
FClose ($fp);
endif;

//zjisti zda je hlasovano podruhe z jednoho compu
for ($i=0;$i<Count($IP);$i++):
if ($REMOTE_ADDR == $IP[$i]):
$zapis = "ne";
endif;
endfor;

//je hlasovano podruhe
if ($zapis != "ne"):

if ($anketa == "ano"):
$ano += 1;
$data_anketa = $ano. "#" . $ne . "#" . $nevim . "#" . $aaa;

elseif ($anketa == "ne"):
$ne += 1;
$data_anketa = $ano. "#" . $ne . "#" . $nevim . "#" . $aaa;

else:
$nevim += 1;
$data_anketa = $ano. "#" . $ne . "#" . $nevim . "#" . $aaa;

endif;

$fp = FOpen ("anketa.dat", "w");
FWrite ($fp, $data_anketa);
FClose ($fp);

$fp = FOpen("ip.dat", "a");
FWrite ($fp, "#" . $REMOTE_ADDR);
FClose ($fp);
endif;

endif;
?>
<TABLE bordercolor="red" border="1" height="300">
<TR>
<TD colspan='3' bgcolor='#ADA4F4'>
Páči sa Vám stránka ?
</TD>
</TR>

<form method="post">
<TR>
<TD>
Ano
</TD>


<TD><input type="radio" name="anketa" value="ano"></TD>
<?echo "<TD align='right'>$ano</TD>";?>
</TR>

<TR>
<TD>
Nie
</TD>
<TD><input type="radio" name="anketa" value="ne"></TD>
<?echo "<TD align='right'>$ne</TD>";?>

</TR>


<TR>
<TD>
Bez kom.
</TD>
<TD><input type="radio" name="anketa" value="nevim"></TD>
<?echo "<TD align='right'>$nevim</TD>";?>

</TR>

<TR>
<TD>
aaa
</TD>
<TD><input type="radio" name="anketa" value="aaa"></TD>
<?echo "<TD align='right'>$aaa</TD>";?>

</TR>

<?
if (File_Exists ("anketa.dat")):
$soucet = $ano + $ne + $nevim + $aaa;
$width1 = 115/$soucet*$ano;
$width2 = 115/$soucet*$ne;
$width3 = 115/$soucet*$nevim;
$width4 = 115/$soucet*$aaa;

echo "
<TR>
<TD colspan='3'>
<CENTER>hlasovalo už &nbsp;$soucet</CENTER>
</TD>
</TR>
";

?>

<?
endif;
//precte IP adresy
if (File_Exists("ip.dat")):
$fp = FOpen("ip.dat", "r");
$data_ip = FRead ($fp, FileSize("ip.dat"));
$IP = Explode("#", $data_ip); //ziska prozatimni vysledky hlasovani
FClose ($fp);

//zjisti zda je hlasovano podruhe z jednoho compu
for ($i=0;$i<Count($IP);$i++):
if ($REMOTE_ADDR == $IP[$i]):
$zapis = "ne";
endif;
endfor;

if ($zapis == "ne"):
echo " <TR><TD colspan='3' bgcolor='#ADA4F4'>

<CENTER>Už Ste hlasovali.</CENTER></TR></TD>";
else:
echo '<TR><TD colspan="3" bgcolor="#ADA4F4"><CENTER><input type="submit" value="Hlasovat"></CENTER></TD></TR>';
endif;
else:
echo '<CENTER><input type="submit" value="Hlasovat"></CENTER></TD></TR>';
endif;
?>
<input type="hidden" name="send" value="ano">
</form>
</TABLE>

---------------------------------------------------
Trochu som to upravoval, pridal som tam na skusku to $aaa, ale nefungovalo to, ako pisem vyssie.

Tak som na nete nasiel dalsi kod pre anketu, zase som si ho trocha upravil (este nie je celkom upraveny v css). Problem je teraz ten, ze ked v ankete zahlasujem, tak prida aj hlasy, aj upravy % vsetko OK, ale hodi ma to na index, pretoze link ktory je v tej ankete tak vyzera asi takto
<a href=index.php?odpoved=$pismeno[$i]>$odp[$i]</a> Ako mam dosiahnut, ked si napr. citam polozku my Theatre a zahlasujem aby ma to nehodilo na index, ale aby som ostal v my Theatre.

odkaz na web anketa je dole v pravo

diky moc vsetkym za rady, asi mi bolo zbytocne tento prispevok pisat

no este si aj robte srandy