Написал голосование. Можно ли как-то подругому?

yes 15.03.2003 10:17 / 15.03.2003 10:19

Здравствуйте, я Вас недавно вопросами мучал, Вы меня постоянно в доки отсылали. Помните? Попробовал написать простенькое голосование - вроде бы получилось. Хотелось бы получить Вашу оценку. Можно ли здесь что-нибудь подправить, упростить и т.д.? Вот код:

<table width="100%" cellspacing="0" border="0" bgcolor="#ffffff">
<tr><td align="center"><br>
<b>Наш&nbsp;вопрос:</b>
</td></tr>
<tr><td>
<p align="center">Как Вам наш новый дизайн?</p>
$variant[^table::load[/variant.txt]]
<form method="post">
<input type="radio" name="ok" value="super"> <font color="#cc0000"><b>&bull;&bull;&bull;</b></font> $variant.variant1<br>
<input type="radio" name="ok" value="normal"> <font color="#00cc00"><b>&bull;&bull;&bull;</b></font> $variant.variant2<br>
<input type="radio" name="ok" value="sucks"> <font color="#0000cc"><b>&bull;&bull;&bull;</b></font> $variant.variant3<br><br>
<div align="center">
<input type="submit" value="Голосовать" name="posted">
</div>
</form>
<div align="center"><b>Результаты:</b></div>
$results[^table::load[/results.txt]]
  $supergif[^image::load[/img/supergif.gif]]
  $normalgif[^image::load[/img/normalgif.gif]]
  $sucksgif[^image::load[/img/sucksgif.gif]]
^if(def $form:ok){
 ^if($form:ok eq super){
$super[$results.super]
$super[^eval($super+1)]
$newresults[^table::create{super	normal	sucks
$super	$results.normal	$results.sucks}]
^newresults.save[/results.txt]
$results[^table::load[/results.txt]]
 }{
  ^if($form:ok eq normal){
$normal[$results.normal]
$normal[^eval($normal+1)]
$newresults[^table::create{super	normal	sucks
$results.super	$normal	$results.sucks}]
^newresults.save[/results.txt]
$results[^table::load[/results.txt]]  
  }{
$sucks[$results.sucks]
$sucks[^eval($sucks+1)]
$newresults[^table::create{super	normal	sucks
$results.super	$results.normal	$sucks}]
^newresults.save[/results.txt]
$results[^table::load[/results.txt]]
 }
 }
}{}
$100percent[^eval($results.super+$results.normal+$results.sucks)]
$superpercent[^eval(($results.super*100)/$100percent)[%.1f]]
$normalpercent[^eval(($results.normal*100)/$100percent)[%.1f]]
$suckspercent[^eval(($results.sucks*100)/$100percent)[%.1f]]
 $suppercimg[^eval(($results.super*100)/$100percent)[%.u]]
 $norpercimg[^eval(($results.normal*100)/$100percent)[%.u]]
 $sucpercimg[^eval(($results.sucks*100)/$100percent)[%.u]]
$results[^table::load[/results.txt]]
$superimg[^image::create(100;10)]
$normalimg[^image::create(100;10)]
$sucksimg[^image::create(100;10)]
 ^superimg.bar(0;0;$suppercimg;10;0xcc0000)
 ^normalimg.bar(0;0;$norpercimg;10;0x00cc00)
 ^sucksimg.bar(0;0;$sucpercimg;10;0x0000cc)
  $suptogif[^superimg.gif[]]
  ^suptogif.save[binary;/img/supergif.gif]

  $nortogif[^normalimg.gif[]]
  ^nortogif.save[binary;/img/normalgif.gif]

  $suctogif[^sucksimg.gif[]]
  ^suctogif.save[binary;/img/sucksgif.gif]

   &nbsp^;^supergif.html[]<font size="-2">$superpercent%</font><br>
   &nbsp^;^normalgif.html[]<font size="-2">$normalpercent%</font><br>
   &nbsp^;^sucksgif.html[]<font size="-2">$suckspercent%</font>
#&nbsp^;Голосов:&nbsp^;<font size="-1">$100percent</font><br>
<br>
</td></tr>
</table>

---