|
|
| version 1.188, 2001/05/17 18:36:33 | version 1.201, 2001/05/24 09:13:23 |
|---|---|
| Line 1 | Line 1 |
| @main[] | @main[] |
| ^rem{ | |
| ^mail:send[ | |
| $from[paf@design.ru] | |
| $to[paf@design.ru] | |
| $subject[test] | |
| $body[here] | |
| ] | |
| <hr> | |
| } | |
| -^eol[]- | |
| <hr> | |
| ^if(1<2){$a[1]} | |
| ^$a=$a | |
| <hr> | |
| <form method=post> | |
| <input type=hidden name=a value=123> | |
| <table border=1 width=250><tr><td>$form:name</td></tr></table> | |
| <textarea name=name rows=5 cols=40>^untaint[html]{^default[$form:name;Пробный текст: А.Ф._Петросян <<Жизнь в Аду>> | |
| нажми Submit]}</textarea><BR> | |
| <input type=submit> | |
| </form> | |
| <hr> | |
| #^main[] | #^main[] |
| #^use[$form:file] | #^use[$form:file] |
| Line 19 $t[^table:set{key value | Line 43 $t[^table:set{key value |
| $h[^t.hash[key]] | $h[^t.hash[key]] |
| ^sql_test[$SQL.connect-string] | ^sql_test[$SQL.connect-string] |
| ^sql_test[mysql://test:test@localhost/test/cp1251_koi8] | #^sql_test[mysql://test:test@localhost/test/cp1251_koi8] |
| <HR> | <HR> |
| $abc{} | $abc{} |
| Line 98 $list[^table:dir[$dir]] | Line 122 $list[^table:dir[$dir]] |
| <HR> | <HR> |
| ^if(in "/otherdeeper"){y;n} | ^if(in "/otherdeeper"){y;n} |
| <HR> | <HR> |
| ^$form:проверка_имя=$form:проверка_имя<BR> | |
| <form method=post action=index.html> | |
| <input name=проверка_имя value=проверка_значение> | |
| <input type=submit> | |
| </form> | |
| <HR> | |
| ^^table:dir[/]:<BR> | ^^table:dir[/]:<BR> |
| $d[^table:dir[/]] | $d[^table:dir[/]] |
| Line 137 ${comment}. | Line 155 ${comment}. |
| @sql_test[connect-string] | @sql_test[connect-string] |
| #^rem{ | #^rem{ |
| ^for[i](1;2){ | #^for[i](1;2){ |
| ^connect[$connect-string]{ | ^connect[$connect-string]{ |
| $shit[^taint[our's]] | $shit[^taint[our's]] |
| # $paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}] | # $paf[^table:sql{insert into paf (name, age) values ('$shit', ^random:generate(10000))}] |
| ^nothing:sql{update paf set age=age+1} | |
| $paf[^table:sql{select * from paf order by id desc}(5)] | $paf[^table:sql{select * from paf order by id desc}(5)] |
| $paf{ | $paf{ |
| ^if(^empty[]){query result is empty}{ | ^if(^empty[]){query result is empty}{ |
| Line 149 ${comment}. | Line 168 ${comment}. |
| ^menu{<tr><td>$id</td><td>$name</td><td>$age</td></tr>} | ^menu{<tr><td>$id</td><td>$name</td><td>$age</td></tr>} |
| </table> | </table> |
| }} | }} |
| } | ^^string:sql{select name from paf where id=1}=^string:sql{select name from paf where id=1}<br> |
| ^^int:sql{select age from paf where id=1}=^int:sql{select age from paf where id=1}<br> | |
| ^^double:sql{select age from paf where id=1}=^double:sql{select age from paf where id=1}<br> | |
| $paf[^hash:sql{select id,age from paf}] | |
| ^$paf.2.age=$paf.2.age<br> | |
| } | } |
| #} | #} |
| #} | |
| @eol[] | |
| eol | |
| @default[test;def] | |
| $result[^if(^test.length[]){$test}{$def}] |