Просмотр сообщений

В этом разделе можно просмотреть все сообщения, сделанные этим пользователем.


Темы - Biggelow

Страницы: [1] 2 3
1
JavaScript & JScript / Попытка сделать анимацию
« : 28 Октября 2010, 15:22:27 »
Пытаюсь сделать следующее:
При наведении на png картинку она начинает с периодичностью изменяться получается типа gif\'a.

В чем ошибка?

img=new Array();
img[1]=new Image();
img[2]=new Image();
img[3]=new Image();

img[4]=new Image();
img[5]=new Image();
img[6]=new Image();

img[1].src="images/logo_1.png";
img[2].src="images/logo_2.png";
img[3].src="images/logo_3.png";

img[4].src="images/afisha_1.png";
img[5].src="images/afisha_2.png";
img[6].src="images/afisha_3.png";

function start_animation_image(mynumber,l,t){
   ShowContent(\'element\',l,t);   
   change_image(mynumber,0);
}

function stop_animation_image(){
   HideContent(\'element\');
   clearInterval(timerID);
}
   
function change_image(p,i){
   document.getElementById(\'pic\').src=img[p+i].src;
   y=i+1;
   if(y > 1){
      y=-2;
   }
   
   //timerID=window.setInterval(change_image(p,y),500)
   timerID=window.setInterval(change_image(p,y),2000)
   
   //setTimeout("document.getElementById(\'pic\').src=img[i-1].src",100);
   //setTimeout("",100);
   //setTimeout("document.getElementById(\'pic\').src=img[i+1].src",100);
   
   return 0;
}
   
function HideContent(d) {
if(d.length < 1) { return; }
document.getElementById(d).style.display = "none";
}
function ShowContent(d,l,t) {
if(d.length < 1) { return; }
document.getElementById(d).style.display = "block";
document.getElementById(d).style.left = l;
document.getElementById(d).style.top = t;
}

2
Есть список ip. Надо посчитать кол-во уникальных ip и отсортировать по их сумме одним запросом. Кто встречался.

3
Perl / Информация о пользователе
« : 21 Сентября 2010, 04:55:44 »
Хочу сделать статистику на сайте.
Есть ли какие-нибудь готовые решения?

Или как узнать в скрипте ос пользователя, браузер(HTTP_USER_AGENT фигню какую-то пишет), разрешение экрана(ну это я понимаю только яваскрипт способен узнать)?

4
Perl / и снова кодировка
« : 12 Мая 2009, 14:19:53 »
Проблема вот в чем:
скрипт отправляет браузеру методом get русские буквы в виде %D1%D2 и т.д. Если пересылать обратно скрипту строчку типа:
print("Location: sript.pl?переменная=значение"), то в строке она уже обозначается не %D1%D2, а именно значение и скрипт ругается.

Как перекодировать строчку с русскими буквами обратно в вид %D1%D2?

5
Perl / Perl и rtf
« : 29 Декабря 2008, 13:49:11 »
Всем привет!

Есть rtf файл в котором есть следующие строчки ###name###, ###adress### и т.д. Надо его открыть и вместо этих строчек вписать данные и выдать пользователю.

Кто-нибудь с этим сталкивался?

6
Perl / Spreadsheet::ParseExcel шрифт!
« : 08 Августа 2007, 11:38:33 »
$oWkS->{Cells}[0][1]->{Val} у меня считывается значение в колонке, а как в этой колонке узнать размер шрифта?

7
Perl / Spreadsheet::ParseExcel
« : 05 Июля 2007, 10:37:47 »
Столкнулся с такой проблемой, если не находит ячейки то цикл завершает, как это предотвартить, чтлб он дальше продолжал.

Пишет такую ошибку: Can\'t call method "Value" on an undefined value

for(my $iSheet=0; $iSheet < $oBook->{SheetCount} ; $iSheet++)
{
   my $oWkS = $oBook->{Worksheet}[$oBook->{SheetCount}];
   
   $q = "insert into `$CatalogTable` (`title`) ";
   $q.= "values (\'".$oWkS->{Name}."\')";
   &mysql_query($q, $dbh);
   
   
   my $q = "select * from `$CatalogTable` where `title` = \'".$oWkS->{Name}."\' ";
   my $r = mysql_query($q, $dbh);
   @data = $r->fetchrow_array;
   $path=@data[0];
   $r->finish();
   
      
   $oWkS->{MaxRow} ||= $oWkS->{MinRow};
   foreach my $iR ($oWkS->{MinRow}+3 .. $oWkS->{MaxRow}) {
         my $title=$oWkS->{Cells}[$iR][1]->Value;
         my $nomer=$oWkS->{Cells}[$iR][0]->Value;
         if($title ne "" && $title ne "Наименование" && $nomer){
            my $q = "insert into `$RecordsTable` (`title`,`path`) ";
            $q.= "values (\'".$title."\',\'".$path."\')";
            &mysql_query($q, $dbh);
         }
   }
   
}

8
Perl / Ругается!
« : 23 Апреля 2007, 16:56:21 »
не подскажите чего он ругается?
http://order2.jas.ru/home/

9
Perl / Перевод
« : 26 Декабря 2006, 05:57:28 »
Здравствуйте,

Вот столкнулся с такой проблемой нужно налету перводить сайт с японского на английский, а затем с английского на русский. Может подскажите существуют ли способы перевода(наиболее интересует английский в русский)?

10
Perl / Проблема с архивирование
« : 08 Декабря 2006, 10:09:52 »
Здравствуйте,

Архивирую:
#!/usr/bin/perl
use Archive::Tar;
my $tar = Archive::Tar->new();
$tar->add_files("price.html");#Список файлов
$tar->write("price.tar",1);

В итоге в архиве теряется название price.html, а становится просто price и ко всему прочему добавлет эту фигную в начале текста:

price.html                                                                                          000666  000000  000000        52420 10536207317  13567  0                                                                                                    ustar 00unknown                         unknown                         000000  000000                                                                                                                                                                    

Чего делать знает кто-нибудь?

11
Perl / Архив ссылки
« : 04 Декабря 2006, 05:46:43 »
Здравствуйте,

мне нужно архивация ссылки. Т.е. есть http://www.url.ru/cgi-bin/script.pl этот скрипт формирует html. Мне нужно чтобы он был в архивом формате zip или rar.

Как это сделать? Я видел только архивировние конкретных файлов....

12
Perl / удаление старых файлов
« : 04 Сентября 2006, 12:11:58 »
Всем привет!

Такая проблема: есть папка tmp в которой постоянно появляются файлы. Она переполняется и сайт загибается. Как мне узнать те файлы которые старше часа и удалять их?

13
Perl / работа со сканером
« : 16 Августа 2006, 08:16:10 »
Есть ли способ получения из perl изображения со сканера?

14
Perl / UTF8
« : 16 Июля 2006, 16:47:26 »
Пытаюсь кодировать из win1251 в utf8:
use Encode;
use utf8;

utf8::encode(@mybanner[1]);

на выходе получаю какую то хрень:

Èíòåðåñíûå íîâîñòè

явно что-то не то...

15
Веб Сервера / RewriteRule
« : 17 Апреля 2006, 10:30:51 »
пишу:
RewriteRule ^(.*)$ /cgi-bin/index.pl?url=$1 [QSA,L]
чтобы в папке www передавалось в cgi-bin на index.pl.
Но из-всего этого мне нужно исключить папку editor и images. Чтобы пр наборе http://www.mysite.ru/editor/ он меня не в http://www.mysite.ru/cgi-bin/index.pl?url=editor кидал.
Подскажите как сделать?

Страницы: [1] 2 3