WebTechnologie - ukázkové skripty PHP, XHTML, JavaScript, CSS... (c) Scorpions.cz

HOME SKRIPTY
Prvek WEBu - Vyhledávače
Normální položka
Zobrazeno: 6673

Popis: Umožní rychlé vyhledání výrazu ve vyhledávačích
Funkčnost: Funkční v IE 5.5 a vyšší
Hodnocení: ***
Ukázka
<SCRIPT type="text/javascript">
<!-- hide javascript
        var MAX_ENGINES = 35;
        var tp='';
        var tpp='';
        var find = 'hunt';
        var hold=0;
        var hold2=0;
        var gog=0;
        var ap='';
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(SAwhat, SAwhere)
        {
        var i, SAwhatLen = SAwhat.length, SAwhereLen = SAwhere.length;
        for (i=0; i<=SAwhereLen-SAwhatLen; i++)
                {
                if (SAwhat == SAwhere.substring(i,i+SAwhatLen))
                return i;
                }
        return false;
        }
function Engine(name, opts, home, search)
        {
        var SAfound = find_substring(find, search);
        this.name = name;
        this.opts = opts;
        this.home = home;
        this.pre_SAfound = search.substring(0,SAfound);
        this.post_SAfound= search.substring(SAfound+find.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)
                }
        }
function DisplayForm()
        {
        document.writeln('<CENTER><FORM name=SAfoundForm onsubmit="HandleForm(this); return false">');
        document.writeln('<STRONG>Search for</STRONG> <INPUT size=30 name="query">');
        document.writeln(' <STRONG>with</STRONG> <SELECT name="service">');
        for (i=1; i <= engs.len; i++)
                {
                document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name);
                }
        document.writeln('</SELECT> <INPUT type=submit value="Search"><BR>');
        document.writeln('</FORM> </CENTER>');
        document.SAfoundForm.query.focus()
        }
function HandleForm(form)
        {
        var i, newq="", oldq=form.query.value;
        for (i=0; i<oldq.length; i++)
                {
                var thischar = oldq.charAt(i);
                if (thischar =="+")newq += "%2B";
                else
                if (thischar != ' ')
                        newq += thischar;
                else if (lastchar != ' ')
                        newq += '+';
                        lastchar = thischar;
                }
        var eng = engs[1+form.service.selectedIndex];

        parent.location.href=newq ? eng.pre_SAfound + newq + eng.post_SAfound : eng.home;
        }
        Add("AltaVista","","http://altavista.digital.com/","http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunt");
        Add("Yahoo","","http://www.yahoo.com/","http://search.yahoo.com/bin/search?p=hunt");
        Add("DejaNews","","http://www.dejanews.com/","http://search.dejanews.com/dnquery.xp?query=hunt&defaultOp=AND&svcclass=dncurrent&maxhits=25");
        Add("Excite","","http://www.excite.com/","http://www.excite.com/search.gw?searchType=Concept&search=hunt&category=default");
        Add("HotBot","","http://www.search.hotbot.com","http://www.search.hotbot.com/search.html?MT=hunt&DC=25");
        Add("Infoseek","","http://www.infoseek.com/Home?pg=Home.html&sv=A2","http://www.infoseek.com/Titles?qt=hunt&col=WW&sv=A2");
        Add("Lycos","","http://www.lycos.com/","http://www.lycos.com/cgi-bin/pursuit?query=hunt&backlink=639");
        Add("Magellan","","http://www.mckinley.com/","http://www.mckinley.com/extsearch.cgi?query=hunt");
        Add("WebCrawler","","http://webcrawler.com/","http://webcrawler.com/cgi-bin/WebQuery?searchText=hunt&maxHits=25");

DisplayForm();
// done hiding -->
</SCRIPT>