Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Интернет и сети
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

 
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 04.05.2009, 21:44
PavluxaF PavluxaF вне форума
Прохожий
 
Регистрация: 04.05.2009
Сообщения: 9
Репутация: 10
По умолчанию Проектирование Cgi-приложений

Я создаю CGI приложение для тестирования (пишу на delphi)
как следующий скрипт поместить на выводимую страницу?

<script type="text/javascript">
<!--
var newYear = new Date().getTime()+45000;

function newYearIn()
{
var now = new Date();
var totalRemains = (newYear-now.getTime());
if (totalRemains>1)
{
var RemainsSec=(parseInt(totalRemains/1000));
var RemainsFullDays=(parseInt(RemainsSec/(24*60*60)));
var secInLastDay=RemainsSec-RemainsFullDays*24*3600;
var RemainsFullHours=(parseInt(secInLastDay/3600));
if (RemainsFullHours<10){RemainsFullHours="0"+Remains FullHours};
var secInLastHour=secInLastDay-RemainsFullHours*3600;
var RemainsMinutes=(parseInt(secInLastHour/60));
if (RemainsMinutes<10){RemainsMinutes="0"+RemainsMinu tes};
var lastSec=secInLastHour-RemainsMinutes*60;
if (lastSec<10){lastSec="0"+lastSec};
var mcend = Date.parse("Jan 1, 2010, 00:00:00");
var mcnow = now.getTime();
var mc = ((mcend-mcnow)/10).toFixed(0).substr(8);
document.getElementById('newyear').innerHTML = "До события осталось: "+RemainsFullDays+" дней "+RemainsFullHours+":"+RemainsMinutes+":"+lastSec+ "."+mc; setTimeout("newYearIn()",10);
}
else
{
document.getElementById("newyear").innerHTML = "Событие!";
document.form1.submit();
}
}
//-->
</script>

Пробую через response.content:= ...и т.д., но данный метод записывает весь текст страницы в одну строку, а для javascript-а для успешной работы необходимо чтобы такие строки как
<!--
или
// -->
находились отдельно иначе он не работает!
Пробую через Writeln(''), записываю отдельно каждую строку, но apache выдает ошибку 500 (сервер не поддерживает данную возможность cgi)
Подскажите пожалуйста что делать?
Ответить с цитированием
 


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 19:23.


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2025