• Кодови 03/06/2009

    Занимљив код који користи ПХП и увијте да ПагеРанк сајта. Не заборавите да имате инсталиран и омогућен либцурл библиотеку.

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

    Повезани постови са сличицама
    Поделите овај чланак:
    • Digg
    • Sphinn
    • del.icio.us
    • Facebook
    • Mixx
    • Google Bookmarks
    • BarraPunto
    • Meneame
    • Bitacoras.com
    • Technorati
    • Blogosphere News
    • Live
    • Yahoo! Bookmarks

    Среда, 3. јуна 2009

  • Оставите коментар

    Напомињемо: Примедба умереност је омогућен и мај кашњење свој коментар. Нема потребе да поново свој коментар.

Преводилац

Наши посетиоци

  • 258.595 посетилаца

Посетиоци

    бесплатно бројила

Заједнице


Адвертисемент


**************************************** ******** Паге Ранк **************************************-->