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