|
version 1.201, 2001/05/24 09:13:23
|
version 1.211, 2001/06/29 08:35:26
|
|
Line 1
|
Line 1
|
| |
@auto[] |
| |
$form_id[19] |
| |
$branch_id[] |
| |
|
| @main[] |
@main[] |
| ^rem{ |
$SQL.connect-string[mysql://intranet:pwd@moko/intranet/cp1251_koi8] |
| ^mail:send[ |
^connect[$SQL.connect-string]{ |
| $from[paf@design.ru] |
^content[] |
| $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[] |
|
| #^use[$form:file] |
|
| |
|
| $строка[вася ЗдЕсЬ] |
|
| ^^строка.upper[]=^строка.upper[]<br> |
|
| ^^строка.lower[]=^строка.lower[]<br> |
|
| <hr> |
|
| |
|
| |
|
| $a[12] |
@heading[] |
| ^a.int[] |
^if(def $form_id){Изменение}{Добавление} документа |
| <hr> |
|
| |
|
| |
|
| $t[^table:set{key value |
|
| 1 v1 |
|
| 2 v2}] |
|
| $h[^t.hash[key]] |
|
| |
|
| ^sql_test[$SQL.connect-string] |
|
| #^sql_test[mysql://test:test@localhost/test/cp1251_koi8] |
|
| |
|
| <HR> |
|
| $abc{} |
|
| $tn[^table:set[nameless]{a1 b1 |
|
| a2 b2 |
|
| }] |
|
| $x[^tn.locate[0;a2]] |
|
| ^$tn.1=$tn.1 |
|
| <hr> |
|
| $t0[^table:set{key a b |
|
| 1 a1 |
|
| 2 a2 b2 |
|
| }] |
|
| ^if(^t0.locate[key;2] && "a" ne "b"){y;n} |
|
| <hr> |
|
| $currentFolder[/a/b] |
|
| $path[^currentFolder.lsplit[/]] |
|
| ^path.flip[] |
|
| $path{ |
|
| ^menu{$0}{,} |
|
| } |
|
| <hr> |
|
| $t1[^table:set{key value |
|
| 1 v1 |
|
| 2 v2}] |
|
| $h1[^t1.hash[key]] |
|
| ^h1.default[$value[nothing]] |
|
| ^$h1.2.value=$h1.2.value<br> |
|
| ^$h1.2x.value=$h1.2x.value<br> |
|
| <hr> |
|
| $t2[^table:set{key a b |
|
| 1 a1 |
|
| 2 a2 b2 |
|
| }] |
|
| t2 ^if(^t2.empty[]){empty}{not empty}<br> |
|
| ^t2.offset(1) |
|
| $t2.b |
|
| $r[^t2.record[]] |
|
| <hr> |
|
| $th[^t2.hash[b]] |
|
| ^$th.b2.a=$th.b2.a<br> |
|
| <hr> |
|
| $th[^t2.hash[key;a]] |
|
| ^$th.2.a=$th.2.a<br> |
|
| <hr> |
|
| #^OP:eval(1<2) |
|
| |
|
| $filelist[^table:dir[.]] |
@help[] |
| <hr> |
article_help.html |
| $path[/news/tululu/] |
|
| #^path.flip[] |
|
| <hr> |
|
| $branches[^table:set{name val |
|
| index.cgihtml 123 |
|
| }] |
|
| $splitURI[^request:uri.lsplit[/]] |
|
| name ^if(^branches.locate[name;$splitURI.1]){found;not found}: |
|
| $branches.name |
|
| <HR> |
|
| $splitURI[^request:uri.lsplit[/]] |
|
| $splitURI.0!$splitURI.1 |
|
| <HR> |
|
| |
|
| $t2[^table:set{dir title |
@content[] |
| /here Here |
$branches[^table:sql{select id, name from kb_branches}] |
| }] |
^if(def $form_id){ |
| $t2{^menu{${dir}-$title}[,]} |
$article[^table:sql{select id, name, txt, keywords, kb_branches_id from kb_documents where id='$form_id'}] |
| <HR> |
$branch_id[$:article.kb_branches_id] |
| $dir[news] |
}{ |
| $list[^table:dir[$dir]] |
$branch_id[$branch_id] |
| ^list.menu{ |
|
| $subdir[$dir/$list.name] |
|
| $sublist[^table:dir[$subdir]] |
|
| ${list.name}/ $sublist{^menu{$name}[,]}<br> |
|
| } |
} |
| <HR> |
|
| ^if(in "/otherdeeper"){y;n} |
|
| <HR> |
|
| |
|
| ^^table:dir[/]:<BR> |
<form method=post action=article_save.html> |
| $d[^table:dir[/]] |
<p />Рубрика:<br> |
| $d{^menu{$name  ^; ^; ^; ^;^if(-f $name){-f} ^if(-d $name){-d};<BR>}} |
<select name="kb_branches_id" style="width:100%"> |
| <HR> |
$branches{ |
| |
^menu{ |
| $files[^table:set{name}] |
<option value="$id" ^if($id eq $:branch_id){selected}>^if($id eq $:branch_id){•^;}{ ^;}$name</option> |
| $d{^menu{ |
} |
| ^if(-d "$name"){ |
} |
| ^:files.append{$name} |
</select> |
| } |
|
| }} |
<p />Название:<br> |
| |
<input type=text name=name style="width:100%" value="$:article.name"> |
| $files{^menu{$name}[,]} |
|
| <HR> |
<p />Текст:<br> |
| |
<textarea name=text style="width:100%" cols=80 rows=30>^untaint[html]{$:article.txt}</textarea> |
| @exception[origin;source;comment;type;code][i;j] |
|
| <body bgcolor=black> |
<p />Ключевые слова:<br> |
| <font color=white> |
<input type=text name=keywords style="width:100%" value="$:article.keywords"> |
| ERROR: |
<input type=hidden name=id value="$form_id"> |
| ^if(def $source){$origin '$source'} |
|
| ${comment}. |
<p /> |
| ^if(def $type){type=$type} |
<table cellspacing=0 cellpadding=0 border=0 width=100%> |
| ^if(def $code){code=$code} |
# <td>^submit[save]</td> |
| |
# ^if(def $form_id){<td align=right>^submit[delete]</td>} |
| @auto_test[] |
|
| ^BASE.auto_test[] |
|
| <li>${request:uri}! |
|
| @end |
|
| |
|
| |
|
| @sql_test[connect-string] |
|
| #^rem{ |
|
| #^for[i](1;2){ |
|
| ^connect[$connect-string]{ |
|
| $shit[^taint[our's]] |
|
| # $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{ |
|
| ^if(^empty[]){query result is empty}{ |
|
| <table border=1> |
|
| <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> |
| }} |
</form> |
| ^^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}] |
|
![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to index.html CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [parser3project] / parser3 / src / www / htdocs