Занимљив код који користи ПХП и увијте да ПагеРанк сајта. Не заборавите да имате инсталиран и омогућен либцурл библиотеку.
цурл функција ($ урл, $ заглавља, $ цоокие $ П)
(
$ ЦХ = цурл_инит ();
цурл_сетопт ($ цх, ЦУРЛОПТ_ХЕАДЕР, $ заглавља);
цурл_сетопт ($ цх, ЦУРЛОПТ_НОБОДЫ, $ заглавља);
цурл_сетопт ($ цх, ЦУРЛОПТ_УРЛ, $ УРЛ);
цурл_сетопт ($ цх, ЦУРЛОПТ_ССЛ_ВЕРИФЫХОСТ, 0);
цурл_сетопт ($ цх, ЦУРЛОПТ_ЦООКИЕ, $ Цоокие);
цурл_сетопт ($ цх, ЦУРЛОПТ_РЕТУРНТРАНСФЕР, 1);
ако ($ П) (
цурл_сетопт ($ цх, ЦУРЛОПТ_ЦУСТОМРЕКУЕСТ, "Пост");
цурл_сетопт ($ цх, ЦУРЛОПТ_ПОСТ, 1);
цурл_сетопт ($ цх, ЦУРЛОПТ_ПОСТФИЕЛДС, $ П);
)
;
$ Резултат = цурл_ексец ($ цх);
цурл_цлосе ($ цх);
ако ($ резултат) (
врати $ резултат;
) Есле (
цурл_еррор повратак ($ цх);
)
;
)
;
иф (иссет ($ _ГЕТ [ 'УРЛ']))
(
$ Цурл = ранг ( "хттп://дллс.инфо/ресултс.пхп?урл =".$_ програм ГЕТ [ 'УРЛ'], 0,0, НУЛЛ);
ехо $ ранга;
ехо "
<форм метход=гет таргет=ранк.пхп>
УРЛ адреса: <инпут тыпе=текст наме=урл> <инпут тыпе=субмит валуе=Субмит>
";
)
иначе
(
>?
<форм метход=гет таргет=ранк.пхп>
УРЛ адреса: <инпут тыпе=текст наме=урл>
<инпут тыпе=субмит валуе=Субмит>
<?
)
>?
