Geniş Arama Motoru Kodu

[Ripbyrustavi]

Forumunuza Düzenli bir search eklemek istemezmisiniz ? ozaman bu kodu deneyin içinde birden çok arama motoru bulunduran harika kod...

Portal'a eklemek isteyenler için
admin kp - şablon stil - şablonlar - portal şablonlar - portal en alta veya en üste yapıştırın.


Anasayfaya eklemek isteyenler için

admin kp - şablon stil - şablonlar - anasayfa şablonlar - index en alta yapıştırın
Kod:

Kod: Tümünü Seç Tümünü Kopyala

<SCRIPT>
            <!-- hide this script from non-JavaScript browsers
            // All code in this script is Copyright(C) 2007, yalçın, famistex( at )mynet.com
            // For documentation and more info, see:  http://www.cs.cmu.edu/~jab/snark/
            // This is SNARK Version 1.0, 18 May 1996
            var MAX_ENGINES = 30;
            var SNARK_STRING = "hunting+the+snark";
            function MakeArray(n) {
            for (var i = 1; i <= n; i++) {
            this[i] = 0;
            }
            this.maxlen = n;
            this.len = 0;
            return this;
            }
            var engs = new MakeArray(MAX_ENGINES);
            function find_substring(needle, haystack) {
            var i, needlen = needle.length, haylen = haystack.length;
            for (i=0; i<=haylen-needlen; i++) {
            if (needle == haystack.substring(i,i+needlen))
            return i;
            }
            return false;
            }
            function Engine(name, opts, home, search) {
            var snark = find_substring(SNARK_STRING, search);
            this.name = name;
            this.opts = opts;
            this.home = home;
            this.pre_snark = search.substring(0,snark);
            this.post_snark= search.substring(snark+SNARK_STRING.length, search.length);
            }
            function Add(name, opts, home, search) {
            engs.len++;
            if (engs.len <= engs.maxlen) {
            engs[engs.len] = new Engine(name, opts, home, search)
            }
            else {
            alert("Better increase MAX_ENGINES: " + engs.len + ">" + engs.maxlen)
            }
            }
            // ADD YOUR OWN SEARCH ENGINES BELOW.  (See http://www.cs.cmu.edu/~jab/snark/ )
            Add("Netnews: AltaVista", "",
            "http://altavista.digital.com/",
            "http://altavista.digital.com/cgi-bin/query?pg=q&what=news&fmt=d&q=hunting+the+snark" );
            Add("Shareware/Windows", "",
            "http://vsl.cnet.com/",
            "http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=MS-Windows%28all%29&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" );
            Add("Shareware/Unix", "",
            "http://vsl.cnet.com/",
            "http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=UNIX&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" );
            Add("the Web: AltaVista", "SELECTED",
            "http://altavista.digital.com/",
            "http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunting+the+snark" );
            Add("the Web: Lycos", "",
            "http://www.lycos.com/",
            "http://twelve.srv.lycos.com/cgi-bin/pursuit?query=hunting+the+snark" );
            Add("the Web: Yahoo!", "",
            "http://www.yahoo.com/",
            "http://search.yahoo.com/bin/search?p=hunting+the+snark" );
            Add("Weather (City, ST)", "",
            "http://www.nnic.noaa.gov/cgi-bin/page?pg=netcast",
            "http://www.nnic.noaa.gov/cgi-bin/netcast.do-it?state=hunting+the+snark&area=Local+Forecast&html=yes&match=strong");
            // ADD YOUR OWN SEARCH ENGINES ABOVE.  (See http://www.cs.cmu.edu/~jab/snark/ )
            function HandleForm(form) {
            form.submit();  // This fixes a mysterious Netscape bug.  Without this line,
            // you can't use <enter> to start the search the first time.
            var i, oldq=form.query.value, newq="";
            for (i=0; i<oldq.length; i++) {  // compress [ ]+ into +
            var thischar = oldq.charAt(i);
            if (thischar != ' ')
            newq += thischar;
            else if (lastchar != ' ')
            newq += '+';
            lastchar = thischar;
            }
            var eng = engs[1+form.service.selectedIndex];
            location.href = newq ? eng.pre_snark + newq + eng.post_snark : eng.home;
            }
            function DisplayForm() {
            document.writeln('<CENTER><FORM OnSubmit="HandleForm(this); return false">');
            document.writeln('Search <SELECT name="service">');
            for (i=1; i <= engs.len; i++) {
            document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name);
            }
            document.writeln('</SELECT> for <INPUT size=26 name="query">');
            document.writeln('<input type=submit value=" GO!">');
            document.writeln('</FORM> </CENTER>');
            }
            DisplayForm();
            // done hiding from old browsers -->
            </SCRIPT>

Demo:

Kod Alıntıdır Demo ve anlatım bana aittir

[Secilmis42]

Teşekkürler :)

[Ripbyrustavi]

Teşekkürler :)

Rica ederim :)

[Novruz]

Teşekkürler :)

[Ripbyrustavi]

Teşekkürler :)

Rica ederim :)

[SizinForum.10tl.net]

Teşekkürler :)

[Batuhann]

Teşekkürler.

[Ciri]

Güzel ve Yararlı..