Форум по 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)
Подскажите пожалуйста что делать?
Ответить с цитированием
  #2  
Старый 04.05.2009, 21:58
Аватар для march
march march вне форума
Начинающий
 
Регистрация: 04.05.2009
Сообщения: 110
Репутация: 18
По умолчанию

на сколькоя я понимаю у тебя было так
Код:
1
2
3
4
5
writeln('<script type="text/javascript">');
writeln('<!--');
writeln('var newYear = new Date().getTime()+45000;');
 
writeln('function newYearIn()');
а должно быть
Код:
1
2
3
4
5
6
writeln('<script type="text/javascript">');
writeln('');
writeln('<!--');
writeln('var newYear = new Date().getTime()+45000;');
 
writeln('function newYearIn()');
почти везде требуетсяпустая строка между "тип'ом" и остальным кодом
-----------------
либо пытаешься запустить CGI на *NIX системах(не поддерхивающих win32)
----------------
если причины не в этом, то звиняй за "вторжение" в твою тему
Ответить с цитированием
Ответ


Delphi Sources

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

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

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

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


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


 

Сайт

Форум

FAQ

Соглашения

Прочее

 

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