|
|
| version 1.30, 2004/03/10 10:04:30 | version 1.48, 2004/06/18 15:55:47 |
|---|---|
| Line 1 | Line 1 |
| @main[] | ^connect[oracle://mts_imprimatur2:imp2@mts]{ |
| $request:charset[windows-1251] | # ^void:sql{create table paf(a clob)} |
| $response:charset[windows-1251] | # ^void:sql{insert into paf (a) values (/**a**/'a')} |
| $response:content-type[text/html] | # ^void:sql{insert into paf (a) values (:unk)} |
| ^void:sql{delete from pif} | |
| ^void:sql{call paf(:a)}[ | |
| $.bind[ | |
| $.a[2] | |
| ] | |
| ] | |
| ^int:sql{select count(*) from pif} | |
| "^string:sql{select a from pif}" | |
| $xdoc[^xdoc::load[_bug.xml]] | |
| #^xdoc.string[] | |
| $nodes[^xdoc.select[//x:second][ | |
| $.x[http://pif.design.ru/] | |
| ]] | |
| ^nodes._count[] | |
| # ^string:sql{select a from paf} | |
| OK | |
| } |