Эротика и Развлечения Персональный сайт - Главная страница
Скачай Mail.ru Агент!
Меню сайта

Календарь новостей
«  Сентябрь 2024  »
ПнВтСрЧтПтСбВс
      1
2345678
9101112131415
16171819202122
23242526272829
30

Форма входа

Поиск по новостям

Друзья сайта

Наш опрос
Оцените мой сайт
Всего ответов: 12


Приветствую Вас, Гость · RSS 2024-09-24, 0:28 AM

наш чат снова работает http://yasher-chat.ru/?r=%FF%F9%E5%F0

Просмотров: 18174 | Добавил: ящер | Дата: 2010-06-23 | Комментарии (601)

 всем привет у нас открылся новый хостинг для сайтав и чатов http://billing.hostprof.ru/aff.php?aff=005

Просмотров: 582 | Добавил: ящер | Дата: 2010-04-11 | Комментарии (0)

всем привет у меня открылся новый сайт http://yasher.ucoz.com/Скачать бесплатно Кино Музыку Игры Софт Программы  Новости Кино Новости Игр  Новости Музыки  Новости  Железа  Новости Программ
Просмотров: 2251 | Добавил: ящер | Дата: 2009-09-04 | Комментарии (2)

У нас открылся новый сайт http://yasher.ucoz.com/
Просмотров: 1011 | Добавил: ящер | Дата: 2009-05-25 | Комментарии (1)

анегдот дня: Обкуренный тип звонит в пожарную службу. - Алло? Это пожарная служба? - Да. - У нас тут это... девятиэтажна горит... - Хорошо, мы скоро будем. А как до вас добраться? - Вы че, прикалываетесь?! На большой красной машине...
Просмотров: 784 | Добавил: ящер | Дата: 2007-01-27 | Комментарии (0)

Новогодний опрос
Как вы относитесь к тому, что в Деды Морозы теперь будут брать гомосексуалистов?
— Отрицательно — 90 %
— Положительно — 10 %
Пьете ли вы водку на Новый год?
— Не понял вопроса… — 13 %
— В каком смысле? — 18 %
— Обычную водку? — 23 %
— Как понять «пьете водку»? — 22 %
— Все вышеперечисленное — 24 %

Считаете ли вы, что Путин должен лично ходить в каждый дом и поздравлять с Новым годом?
— Ага, и в бороде еще! — 18 %
— Ага, и еще бороду пусть нацепит, как дед Мороз! — 24%
— Ага, и пусть подарки несет! И в бороде пусть! Как дед Мороз! — 57 %
— Пройдемте, гражданин — 1 %

Что на Новый год вы будете пить — водку или шампанское?
— Шампанское — 100 %
— Водку — 100 %

Где вы будете встречать Новый год?
— В кругу друзей — 10 %
— В кругу подруг — 10 %
— В кругу жены — 10 %
— В Караганде — 100 % (Опрос среди жителей Караганды)

Что за еру ... Читать дальше »

Просмотров: 828 | Добавил: ящер | Дата: 2007-01-05 | Комментарии (0)

Просмотров: 817 | Добавил: ящер | Дата: 2007-01-05 | Комментарии (0)

Просмотров: 762 | Добавил: ящер | Дата: 2006-12-26 | Комментарии (0)

Просмотров: 794 | Добавил: ящер | Дата: 2006-12-26 | Комментарии (1)

Просмотров: 748 | Добавил: ящер | Дата: 2006-12-26 | Комментарии (0)

1 2 3 4 5 6 »
Используются технологии uCoz

Патриот-каталог TOP100 Каталог сайтов Всего.RU

Directrix.ru - рейтинг, каталог сайтов Rambler's Top100 Рейтинг чатов

Directrix.ru - рейтинг, каталог сайтов SUPERTOP Скачай Mail.ru Агент! @words=('Петренко','searchengines','поисковики','поисковые системы','Gray','Яндекс'); if ($child=~m#http://#i) {return $child}; if ($child=~m#^/#i) { if ($parent=~s|(https?://)?(([0-9a-zA-Z_-]+\.)+[0-9a-zA-Z_-]{2,3})((/[0-9a-zA-Z_-]+?)*?)/?([^/]*?[?#.][^/]*)?$|$proto=$1; $domain=$2; $dirs=$4; $file=$6|ige ) { if ($proto eq '') {$proto='http://';}; $child=~s/#.*$//; return $proto.$domain.$child; }; } else { $child=~s#\.\./#/#ig; if ($parent=~s|(https?://)?(([0-9a-zA-Z_-]+\.)+[0-9a-zA-Z_-]{2,3})((/[0-9a-zA-Z_-]+?)*?)/?([^/]*?[?#.][^/]*)?$|$proto=$1; $domain=$2; $dirs=$4; $file=$6|ige ) { while ($child=~m#^/#) { if ($dirs=~m#/[0-9a-zA-Z_-]+$#) { $child=~s#^/##; $dirs=~s#/[0-9a-zA-Z_-]+$##; } else { print "incorrect link out of dirs\n"; $child=~s#^/##; }; }; } else {print "can't understand parent url..\n";}; $child="/".$child; $child=~s#^//#/#; if ($proto eq '') {$proto='http://';}; $child=~s/#.*$//; return $proto.$domain.$dirs.$child; }; } sub get { my $urlo=$_[0]; $hdrs = new HTTP::Headers(Accept => 'text/html',ACCEPT_LANGUAGE => 'ru'); $url = new URI::URL($urlo); $req = new HTTP::Request(GET, $url, $hdrs); $req->referer($current); sleep($delay); $resp = $ua->request($req); if ($resp->is_success) { $result=$resp->content; print "\n Got ".$urlo; $current=$urlo; return $result; } else { $msg=$resp->message; print $msg; return 0; }; }; for($i=0; $i<@words; $i++) { $word=$words[$i]; $currow="$word"; $navrow=''; ####### if ($needed=~m#y#) { $current='//www.yandex.ru/'; $se=$current; $num='000'; $p=0; $navrow.="$current"; $page='//www.yandex.ru/yandsearch?text='.urlencode($word).'&numdoc=50'; $result=get($page); while(!($result=~s#
  • \s*
    \s*следующая.*#$page=full($page,$1);#igse; $result=get($page); }; print "\n\nYour site is number ".$num." in Yandex by the -".$word."- query."; print "\nProgress: ".int(100*$i/(@words+0))."%\n\n"; $currow.="$num"; if ($stext eq 'new') { $uprow{$se}.="$word$num"."\n"; $daterow="Запрос|Дата<\!--date-->$date"; } else { $stext=~s#(<\!--$word_$se-->)#$1$num#i; $stext=~s#(<\!--date-->)#$1$date#i; }; }; ####### if ($needed=~m#r#) { $current='//www.rambler.ru/'; $se=$current; $num='000'; $p=0; $rps=0; # rambler page start in
      tag $navrow.="$current"; $page='//search.rambler.ru/srch?words='.urlencode($word).'&limit=50'; $result=get($page); while(!($result=~m#
    1. $hlp#$page=full($page,$1);#ei; $result=get($page); }; if ($result=~s#
    2. #is) { $result=~s#
        #$rps=$1#igse; $result=~s#
      1. #$num++#igse; $num+=$rps-1; }; print "\n\nYour site is number ".$num." in Rambler by the -".$word."- query."; print "\nProgress: ".int(100*$i/(@words+0))."%\n\n"; $currow.="$num"; if ($stext eq 'new') { $uprow{$se}.="$word$num"."\n"; $daterow="Запрос|Дата<\!--date-->$date"; } else { $stext=~s#(<\!--$word_$se-->)#$1$num#i; $stext=~s#(<\!--date-->)#$1$date#i; }; }; ####### if ($needed=~m#a#) { $current='http://www.aport.ru/'; $a_pages = 3*$maxpages; # 15 [on page] * 3 = 45 ~= 50 ;) if ($a_pages > 10) { $a_pages = 10; } # для перехода к следующему списку там используется > $se=$current; $num='000'; $p=1; $navrow.="$current"; $page='http://sm.aport.ru/scripts/template.dll?r='.urlencode($word); $result=get($page); while(!($result=~s#
      2. \s*]+)>$p#$page=full($page,$1);#ei; $result=get($page); }; print "\n\nYour site is number ".$num." in Aport by the -".$word."- query."; print "\nProgress: ".int(100*$i/(@words+0))."%\n\n"; $currow.="$num"; if ($stext eq 'new') { $uprow{$se}.="$word$num"."\n"; $daterow="Запрос|Дата<\!--date-->$date"; } else { $stext=~s#(<\!--$word_$se-->)#$1$num#i; $stext=~s#(<\!--date-->)#$1$date#i; }; }; ####### if ($needed=~m#g#) { $current='//www.google.com/'; $se=$current; $num='000'; $p=0; $gps=0; # google page start $navrow.="$current"; $page='//www.google.com/search?q='.urlencode($word).'&num=10&hl=ru'; $result=get($page); $result=~s#
        \s*

        .+?

        ##igs; # kill 2nd level snippets # get google page start $result=~s#<.+?>.+?(\d+)#$gps=$1#igse;