|
Скрипт ПР и ТИЦОбсуждение темы Скрипт ПР и ТИЦ в разделе ASP, Perl, PHP и MySQL, часть категории ВЕБ-ПРОГРАММИРОВАНИЕ; И нафиг мне туда мой УРЛ ставить???? урл должен вписывать в форму посетитель сайта. И каждый раз он будет разным!... |
|
Опции темы |
16.04.2008, 14:44 | #11 |
|
И нафиг мне туда мой УРЛ ставить???? урл должен вписывать в форму посетитель сайта. И каждый раз он будет разным!
Последний раз редактировалось deMone; 16.04.2008 в 16:27.. Причина: Добавлено сообщение |
|
16.04.2008, 15:11 | #12 |
|
Приношу свои извинения. Неправ.
Создайте обыкновенную форму, в которой сделайте поле ввода, например, <input type="text" name="domain" />. Дальше используйте переменную $_GET['domain'], которую поместите в вызов функций тИЦ и PR: Код:
echo 'тИЦ: ' . getBarCY($_GET['domain']); echo '<br />'; echo 'PR: ' . getPageRank($_GET['domain']); Последний раз редактировалось deMone; 16.04.2008 в 15:19.. |
|
Этот пользователь сказал спасибо deMone за это полезное сообщение: | Мерлин (16.04.2008) |
16.04.2008, 17:13 | #13 |
|
Большое спасибо! Всё доходчиво и просто, как оказалось!
Добавлено через 1 час 49 минут вот.. создал форму.. Код:
<form action="zhilinsky.php" method="post"> <input type="text" name="domain" /><input type="submit"> </form> Код:
<?php define('GMAG', 0xE6359A60); function nooverflow($a) { while ($a<-2147483648) $a+=2147483648+2147483648; while ($a>2147483647) $a-=2147483648+2147483648; return $a; } function zeroFill ($x, $bits) { if ($bits==0) return $x; if ($bits==32) return 0; $y = ($x & 0x7FFFFFFF) >> $bits; if (0x80000000 & $x) { $y |= (1<<(31-$bits)); } return $y; } function mix($a,$b,$c) { $a=(int)$a; $b=(int)$b; $c=(int)$c; $a -= $b; $a -= $c; $a=nooverflow($a); $a ^= (zeroFill($c,13)); $b -= $c; $b -= $a; $b=nooverflow($b); $b ^= ($a<<8); $c -= $a; $c -= $b; $c=nooverflow($c); $c ^= (zeroFill($b,13)); $a -= $b; $a -= $c; $a=nooverflow($a); $a ^= (zeroFill($c,12)); $b -= $c; $b -= $a; $b=nooverflow($b); $b ^= ($a<<16); $c -= $a; $c -= $b; $c=nooverflow($c); $c ^= (zeroFill($b,5)); $a -= $b; $a -= $c; $a=nooverflow($a); $a ^= (zeroFill($c,3)); $b -= $c; $b -= $a; $b=nooverflow($b); $b ^= ($a<<10); $c -= $a; $c -= $b; $c=nooverflow($c); $c ^= (zeroFill($b,15)); return array($a,$b,$c); } function GCH($url, $length=null, $init=GMAG) { if(is_null($length)) { $length = sizeof($url); } $a = $b = 0x9E3779B9; $c = $init; $k = 0; $len = $length; while($len >= 12) { $a += ($url[$k+0] +($url[$k+1]<<8) +($url[$k+2]<<16) +($url[$k+3]<<24)); $b += ($url[$k+4] +($url[$k+5]<<8) +($url[$k+6]<<16) +($url[$k+7]<<24)); $c += ($url[$k+8] +($url[$k+9]<<8) +($url[$k+10]<<16)+($url[$k+11]<<24)); $mix = mix($a,$b,$c); $a = $mix[0]; $b = $mix[1]; $c = $mix[2]; $k += 12; $len -= 12; } $c += $length; switch($len) { case 11: $c+=($url[$k+10]<<24); case 10: $c+=($url[$k+9]<<16); case 9 : $c+=($url[$k+8]<<8); case 8 : $b+=($url[$k+7]<<24); case 7 : $b+=($url[$k+6]<<16); case 6 : $b+=($url[$k+5]<<8); case 5 : $b+=($url[$k+4]); case 4 : $a+=($url[$k+3]<<24); case 3 : $a+=($url[$k+2]<<16); case 2 : $a+=($url[$k+1]<<8); case 1 : $a+=($url[$k+0]); } $mix = mix($a,$b,$c); return $mix[2]; } function strord($string) { for($i=0;$i<strlen($string);$i++) { $result[$i] = ord($string{$i}); } return $result; } function getPageRank($aUrl) { $url = 'info:'.$aUrl; $ch = GCH(strord($url)); $url='info:'.urlencode($aUrl); $pr = @file("http://www.google.com/search?client=navclient-auto&ch=6$ch&ie=UTF-8&oe=UTF-8&features=Rank&q=$url"); $pr_str = @implode("", $pr); return substr($pr_str,strrpos($pr_str, ":")+1); } echo 'тИЦ: ' . getBarCY($_GET['domain']); echo '<br />'; echo 'PR: ' . getPageRank($_GET['domain']); ?> ввожу сайт - нажмаю кнопку - белый экран... Последний раз редактировалось Мерлин; 16.04.2008 в 17:13.. Причина: Добавлено сообщение |
|
16.04.2008, 17:57 | #14 |
|
Подключите файл, в котором расположены функции для тИЦ (через include).
|
|
16.04.2008, 22:29 | #15 |
|
на всякий: 2-я строка (перед function будет)
include "имя файла"; |
|
17.04.2008, 16:40 | #16 |
|
эмм.. не совсем понял.. что нужно сделать?
Добавлено через 1 минуту ага.. понял.. сейчас попробую... Добавлено через 10 минут вот блин.. всё сделал как вы говорили... ввоожу ссылку на Яндекс: ТИЦ: 0 PR: пусто может у кого-то есть минутка, что бы мне это всё собрать помочь? оч. нужно.. Добавлено через 16 часов 54 минуты =( редиски вы все))) пришлось заказывать за деньньги... Последний раз редактировалось Мерлин; 17.04.2008 в 16:40.. Причина: Добавлено сообщение |
|
18.04.2008, 10:05 | #17 |
|
|
|
18.04.2008, 10:34 | #18 |
|
Надо было у меня и заказывать...
|
|
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
скрипт FAQ | barashek | ASP, Perl, PHP и MySQL | 2 | 26.09.2008 05:48 |
Скрипт с ИЕ | BleSSeD | HTML, CSS, JavaScript | 12 | 30.08.2008 13:05 |
Скрипт | Мерлин | ASP, Perl, PHP и MySQL | 7 | 27.09.2007 01:13 |
Что это за скрипт? | Vladimiroff | ASP, Perl, PHP и MySQL | 6 | 12.12.2006 01:28 |
Ищу скрипт | GLUK | ASP, Perl, PHP и MySQL | 17 | 17.02.2006 01:17 |
Реклама на форуме
Условия размещения рекламы
Биржа ссылок
Заработай на сайте!
|