Создание Web-приложений в среде Delphi
| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: реферат життя, реферат скачать без регистрации
| Добавил(а) на сайт: Jashvili.
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
writeln;
writeln ('');
writeln ('Cgidate');
writeln ('>');
writeln ('Пример передачи параметров');
writeln ('');
writeln ('
if ParamCount >0 then
begin
if ParamStr (1) = 'date' then
writeln (FormatDateTime('"Сегодня " dddd, mmmm d, yyyy', Now))
else if ParamStr (1) = 'time' then
writeln (FormatDateTime('"Время" hh:mm:ss AM/PM', Now))
else if ParamStr (1) = 'both' then
writeln (FormatDateTime('"Сегодня " dddd, mmmm d, yyyy,'
+ '"
и время" hh:mm:ss AM/PM', Now))
else
writeln ('Ошибка! Неверный параметр: ' + ParamStr (1) + '.')
end
else
writeln ('Параметр отсутствует.');
writeln ('');
end.
Не правда ли просто? Теперь, если в адресной строке броузера вы наберете, например http://localhost/cgidate/exe?time, будет сгенерирована страница, отображающая текущее время, http://localhost/cgidate/exe?date - соответственно дата, а при передаче параметра both - текущая дата и время. В случае если никакой из параметров передан не был или он был ошибочен - возникнет сообщение об этом.
Рекомендуем скачать другие рефераты по теме: скачать доклад, доклад.
Категории:
Предыдущая страница реферата | 1 2 3 4 5 | Следующая страница реферата
Главная