Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Прочее";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];

Вниз

CGI. Генерация html странички. велосипед или самокат?   Найти похожие ветки 

 
Vlad Oshin ©   (2007-03-14 19:08) [0]

Вообщем, есть шаблон, по нему генирирую странички. Например,

function AnyInput(name:string; sel:word=0):string;
begin
if sel=0 then result:="<INPUT TYPE=text NAME="+name+">"
        else result:="<INPUT TYPE=text NAME="+name+" value = "+inttostr(sel)+">";
end;

предполагается по шаблону застроить всяческими элементами страничку, получить по кнопке значения,  построить новую. И т.д.

почему так делаю: в конце-концов будет простой writeln на std, чтоб программа не дулась

написал кучу заготовок для всяких элементов, дошел до таблиц и подумал: А ведь есть поди уже механизм/средства вспомогательные..

Знаете такие?


 
Kerk ©   (2007-03-14 19:09) [1]

В перле юзаю CGI::FastTemplate


 
Плохиш ©   (2007-03-14 19:10) [2]


> написал кучу заготовок для всяких элементов, дошел до таблиц
> и подумал: А ведь есть поди уже механизм/средства вспомогательные.

WebSnap, к примеру...


 
Чапаев ©   (2007-03-14 20:47) [3]

> [0] Vlad Oshin ©   (14.03.07 19:08)
Раздобудь Тейксейру и Пачеко по Д5, там ВСЁ написано.


 
Vlad Oshin ©   (2007-03-15 13:06) [4]


> Раздобудь Тейксейру и Пачеко по Д5, там ВСЁ написано.

давно хочу, по моему с Королевства скачивал - но с экрана трудно читать, наверное, все же придется купить.

а так чем плохо? мне нравится идея:
  sa1:= VarArrayCreate([0,5], varVariant);
  sa1[0]:=AnyInput("aac2cgh");
  sa1[1]:=AnyString("qqqqqq",true,2,"");
  sa1[2]:=AnyInput("aac2cgh",300)+CountrSelect("asasasa",2);
  sa1[3]:=AnyInput("aac2cgh",400);
  sa1[4]:=AnyString("qqqqqq",true,0,"")+AnyInput("aac2cgh",500);
  sa1[5]:=AnyInput("aac2cgh",600);
writeln(NewTable("NewTable",1,3,2,sa1)));


и в результате

<TABLE BORDER=1><CAPTION ALIGN="top">NewTable</CAPTION><TR><TD><INPUT TYPE=text NAME=aac2cgh value = 100></TD><TD><H2>qqqqqq</H2><BR></TD><TD><INPUT TYPE=text NAME=aac2cgh value = 300><SELECT size=1 name=asasasa><OPTION value=1>Египет<OPTION value=2 selected>Тунис<OPTION value=3>ОАЭ<OPTION value=4>Тайланд<OPTION value=5>Шарм</SELECT></TD></TR><TR><TD><INPUT TYPE=text NAME=aac2cgh value = 300><SELECT size=1 name=asasasa><OPTION value=1>Египет<OPTION value=2 selected>Тунис<OPTION value=3>ОАЭ<OPTION value=4>Тайланд<OPTION value=5>Шарм</SELECT></TD><TD><INPUT TYPE=text NAME=aac2cgh value = 400></TD><TD>qqqqqq<BR><INPUT TYPE=text NAME=aac2cgh value = 500></TD></TR></TABLE>


 
Чапаев ©   (2007-03-15 14:38) [5]

> а так чем плохо?
Изобретательством велосипеда. ;-) А Т&П хороши... Ни разу не пожалел о тех бешеных (для студента) деньгах, что на них потратил. :о)



Страницы: 1 вся ветка

Форум: "Прочее";
Текущий архив: 2007.04.08;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 4.626 c
15-1174154907
ProgRAMmer Dimonych
2007-03-17 21:08
2007.04.08
В очередной раз попытался научиться 3D-программированию...


2-1174118231
Boker
2007-03-17 10:57
2007.04.08
TImage - невозможна загрузка ...??


15-1174142840
Ringo
2007-03-17 17:47
2007.04.08
Легальный способ потерять Российскую Сибирь и отдаться Китаю.


6-1161374305
DillerXX
2006-10-20 23:58
2007.04.08
Помогите с WinINet ом... :(


15-1173609003
oxffff
2007-03-11 13:30
2007.04.08
Встречаем Record Helper





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский