parser

Написать ответ на текущее сообщение

 

 
   команды управления поиском

А Вы нет :)

egr 01.03.2003 20:37

файл index.html должен выглядеть так:
@USE
/classes/gbook.p 

@body_main[] 
Гостевая книга тестового сайта<br> 
<hr>

$gb[^gbook::load[]] 
^gb.show_messages[] 
^gb.show_form[] 
^gb.test_and_post_message[] 

# и конечно же не забываем про остальные части  
@greeting[] 
Оставьте свой след: 

@body_additional[] 
Нам пишут: 
Заметьте там (в index.html) не должно быть никакого @CLASS это должно быть в
gbook.p
который выглядит так:
@CLASS 
gbook 

@load[] 
^MAIN:dbconnect{ 
   $messages[^table::sql{select author, email, date, body from gbook}] 
} 

@show_messages[] 
^if($messages){ 
   ^messages.menu{ 
      <table width="100%"> 
         <tr> 
         <td align="left"><b>$messages.author 
            ^if(def $messages.email){ 
               $messages.email 
            }{ 
               Нет электронного адреса 
            }</b> 
         </td> 
         <td align="right">$messages.date</td> 
         </tr> 
      </table> 
      <table width="100%"> 
      <tr> 
         <td>$messages.body</td> 
      </tr> 
      </table> 
   }[<table width="100%" border="0" bgcolor="000000" cellspacing="0">  
        <tr><td>&nbsp^;</td></tr> 
   </table>] 
}{ 
   Гостевая книга пуста. 
} 

@show_form[] 
<hr> 
<br> 

$date[^date::now[]] 
<center> 
<form method="POST"> 
<p> 
Author<sup>*</sup><input name="author"><br> 
E-mail&nbsp;&nbsp;<input name="email"> 
<br>text<br><textarea cols="50" name="text" rows="5"></textarea> 
</p> 
<p> 
<input type="submit" value="Send" name="post">&nbsp;&nbsp;&nbsp; 
<input type="reset" value="Cancel"> 
</p> 
</form> 
</center> 

@test_and_post_message[] 
^if(def $form:post){ 
   ^if(def $form:author){ 
      ^MAIN:dbconnect{ 
         ^void:sql{insert into gbook 
            (author, email, date, body) 
         values ( 
            '$form:author', 
            '$form:email', 
            '${date.year}-${date.month}-${date.day}', 
            '$form:text' 
         )} 
      } 
      $response:location[$request:uri] 
   }{ 
      <center>Поле автор обязательно для заполнения</center> 
   } 
} 
Understand?