iren K

Рейтинг

222

Регистрация

28.12.2008

Тема: скрипт проверки PR

20 августа 2009, 11:38

andrey22:

Посоветуйте актуальный работающий вариант. Желательно на PHP.

попробуйие это:

<?php

$website = 'http://site.ru/';

//GOOGLE PR START

function StrToNum($Str, $Check, $Magic)

{

    $Int32Unit = 4294967296;



    $length = strlen($Str);

    for ($i = 0; $i < $length; $i++) {

        $Check *= $Magic;



        if ($Check >= $Int32Unit) {

            $Check = ($Check - $Int32Unit * (int) ($Check / $Int32Unit));



            $Check = ($Check < -2147483648) ? ($Check + $Int32Unit) : $Check;

        }

        $Check += ord($Str{$i});

    }

    return $Check;

}

function HashURL($String)

{

    $Check1 = StrToNum($String, 0x1505, 0x21);

    $Check2 = StrToNum($String, 0, 0x1003F);



    $Check1 >>= 2;

    $Check1 = (($Check1 >> 4) & 0x3FFFFC0 ) | ($Check1 & 0x3F);

    $Check1 = (($Check1 >> 4) & 0x3FFC00 ) | ($Check1 & 0x3FF);

    $Check1 = (($Check1 >> 4) & 0x3C000 ) | ($Check1 & 0x3FFF);



    $T1 = (((($Check1 & 0x3C0) << 4) | ($Check1 & 0x3C)) <<2 ) | ($Check2 &

0xF0F );

    $T2 = (((($Check1 & 0xFFFFC000) << 4) | ($Check1 & 0x3C00)) << 0xA) |

($Check2 & 0xF0F0000 );



    return ($T1 | $T2);

}

function CheckHash($Hashnum)

{

    $CheckByte = 0;

    $Flag = 0;



    $HashStr = sprintf('%u', $Hashnum) ;

    $length = strlen($HashStr);



    for ($i = $length - 1;  $i >= 0;  $i --) {

        $Re = $HashStr{$i};

        if (1 === ($Flag % 2)) {

            $Re += $Re;

            $Re = (int)($Re / 10) + ($Re % 10);

        }

        $CheckByte += $Re;

        $Flag ++;

    }



    $CheckByte %= 10;

    if (0 !== $CheckByte) {

        $CheckByte = 10 - $CheckByte;

        if (1 === ($Flag % 2) ) {

            if (1 === ($CheckByte % 2)) {

                $CheckByte += 9;

            }

            $CheckByte >>= 1;

        }

    }



    return '7'.$CheckByte.$HashStr;

}

function getpagerank($url) {



$fp = fsockopen("toolbarqueries.google.com", 80, $errno, $errstr, 30);

if (!$fp) {



} else {

 $out = "GET /search?client=navclient-auto&ch=".CheckHash(HashURL($url))

 ."&features=Rank&q=info:".$url."&num=100&filter=0 HTTP/1.1\r\n";

$out .= "Host: toolbarqueries.google.com\r\n";

$out .= "User-Agent: Mozilla/4.0 (compatible; GoogleToolbar 2.0.114-big;

 Windows XP 5.1)\r\n";

$out .= "Connection: Close\r\n\r\n";



   fwrite($fp, $out);





   while (!feof($fp)) {

$data = fgets($fp, 128);

$pos = strpos($data, "Rank_");

if($pos === false){} else{

$pagerank = substr($data, $pos + 9);



}

   }

   fclose($fp);



   }

return $pagerank;

}

$pr=getpagerank($website);

////GOOGLE PR END

?>

Как определить ВЧ и СЧ?

20 августа 2009, 11:12

wladvlad:
iren K, а ссылка?

ссылку щас не найти, ибо давно - но как наткнусь, выложу

Как определить ВЧ и СЧ?

20 августа 2009, 10:51

Ашмановым в своё время было предложено такое деление:

НЧ (низкочастотный запрос) – до 500 запросов в месяц;

СЧ (среднечастотный запрос) – от 500 до 5000 тысяч запросов в месяц;

ВЧ (высокочастотный запрос) – от 5000 до 10 тысяч запросов в месяц.

или

20 августа 2009, 08:31

тэг < strong > - это тэг логического форматирования. а тэг < b > - это тэг физического форматирования

вообще то, спецификация HTML рекомендует тэг strong, так как он выделяет именно логически самую важную часть текста (тэг b просто делает текст жирным)

больший вес для поисковиков видимо имеет тэг Strong, чем тэг b..

В какой программе сделали?

19 августа 2009, 22:01

Кубинец:
да классная аватарка тоже бы хотел узнать в какой проге можно сделать такую!
в юлиде(gif animator) например

кстати гифка не сильно оптимизированна - 319kb и 34 фрейма не айс

Домены .info за 70 центов! Скидываемся!

19 августа 2009, 19:09

iron felix:
ExclusiveDomains, а вот такой вот вопрос: выбираю Protection - Hide data in WHOIS, но всё равно хуиз-сервисы показывают контакты владельца. Отсюда вопрос - как скрыть данные, сделать private person?
для зоны .info "private person" не работает

Как правильно перевести на другой домен

19 августа 2009, 08:41

RewriteEngine on

RewriteCond %{HTTP_HOST} ^www\.старый_домен\.com$ [R=301,1]

RewriteRule ^(.*)$ http://www.новый_домен.com/$1

Помощь с импортом БД

18 августа 2009, 20:29

бекап прежней сделайте, залейте новую - посмотрите, а так сложно сказать что там может "вылезти"

Как создать безотказный сайт?

18 августа 2009, 19:40

mazzick:

я хочу попробовать на домашнем канале корбины сервер поставить! сэкономить для начала и решить проблему :)
Вы только корбину сначала предупредите..)

Перемещение страниц в другую папку и индексирование

17 августа 2009, 19:48

kalim:
Как перенаправить все в новую?
используйте простой редирект:

Redirect /старая_папка http://www.site.ua/новая_папка/

kalim:

PS. как узнать PR и тИЦ не всего домена а папки?
возьмите этот код:

<?php
$website = 'http://site.ru/';
//YANDEX CY START
function getTCY($urly)
{
$xml = file_get_contents('http://bar-navig.yandex.ru/u?ver=2&show=32&url='
.$urly);
return $xml ? (int) substr(strstr($xml, 'value='), 7) : false;
}
$tcy = getTCY($website);
//YANDEX CY END

//GOOGLE PR START
function StrToNum($Str, $Check, $Magic)
{
$Int32Unit = 4294967296;

$length = strlen($Str);
for ($i = 0; $i < $length; $i++) {
$Check *= $Magic;

if ($Check >= $Int32Unit) {
$Check = ($Check - $Int32Unit * (int) ($Check / $Int32Unit));

$Check = ($Check < -2147483648) ? ($Check + $Int32Unit) : $Check;
}
$Check += ord($Str{$i});
}
return $Check;
}
function HashURL($String)
{
$Check1 = StrToNum($String, 0x1505, 0x21);
$Check2 = StrToNum($String, 0, 0x1003F);

$Check1 >>= 2;
$Check1 = (($Check1 >> 4) & 0x3FFFFC0 ) | ($Check1 & 0x3F);
$Check1 = (($Check1 >> 4) & 0x3FFC00 ) | ($Check1 & 0x3FF);
$Check1 = (($Check1 >> 4) & 0x3C000 ) | ($Check1 & 0x3FFF);

$T1 = (((($Check1 & 0x3C0) << 4) | ($Check1 & 0x3C)) <<2 ) | ($Check2 &
0xF0F );
$T2 = (((($Check1 & 0xFFFFC000) << 4) | ($Check1 & 0x3C00)) << 0xA) |
($Check2 & 0xF0F0000 );

return ($T1 | $T2);
}
function CheckHash($Hashnum)
{
$CheckByte = 0;
$Flag = 0;

$HashStr = sprintf('%u', $Hashnum) ;
$length = strlen($HashStr);

for ($i = $length - 1; $i >= 0; $i --) {
$Re = $HashStr{$i};
if (1 === ($Flag % 2)) {
$Re += $Re;
$Re = (int)($Re / 10) + ($Re % 10);
}
$CheckByte += $Re;
$Flag ++;
}

$CheckByte %= 10;
if (0 !== $CheckByte) {
$CheckByte = 10 - $CheckByte;
if (1 === ($Flag % 2) ) {
if (1 === ($CheckByte % 2)) {
$CheckByte += 9;
}
$CheckByte >>= 1;
}
}

return '7'.$CheckByte.$HashStr;
}
function getpagerank($url) {

$fp = fsockopen("toolbarqueries.google.com", 80, $errno, $errstr, 30);
if (!$fp) {

} else {
$out = "GET /search?client=navclient-auto&ch=".CheckHash(HashURL($url))
."&features=Rank&q=info:".$url."&num=100&filter=0 HTTP/1.1\r\n";
$out .= "Host: toolbarqueries.google.com\r\n";
$out .= "User-Agent: Mozilla/4.0 (compatible; GoogleToolbar 2.0.114-big;
Windows XP 5.1)\r\n";
$out .= "Connection: Close\r\n\r\n";

fwrite($fp, $out);

while (!feof($fp)) {
$data = fgets($fp, 128);
$pos = strpos($data, "Rank_");
if($pos === false){} else{
$pagerank = substr($data, $pos + 9);

}
}
fclose($fp);

}
return $pagerank;
}
$pr=getpagerank($website);
////GOOGLE PR END
?>

1 ... 278 279 280 281 282 283 284 285 286 ...375

Всего: 3750

Тренды маркетинга в 2024 году: мобильные продажи, углубленная аналитика и ИИ

Курс биткоина превысил $50 тысяч

iren K