Programalama > JAVA SCRIPT

Etiketler: arama, motoru......

Ort. 0
Puan ver:
<script>

<!-- START HIDE

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(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 gotcha = find_substring(find, search);

this.name = name;

this.opts = opts;

this.home = home;

this.pre_gotcha = search.substring(0,gotcha);

this.post_gotcha= search.substring(gotcha+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=Gotchaform OnSubmit="HandleForm(this); return false">');

document.writeln('<table border=0 bordercolor=black width=325 bgcolor=#99CCCC><tr><td width="125"><b><font size=2 face="arial">Aranacak Kelime:</b></td> <td width="200"><INPUT size=25 name="query"></td></tr></table>');

document.writeln(' <b><font size=2 face="arial">Nerede aranacak?</b> <SELECT name="service">');

for (i=1; i <= engs.len; i++) {

document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name);

}

document.writeln('</SELECT> <br><input type=submit value="Ara ve Bul">');

document.writeln('</FORM> </CENTER>');

document.Gotchaform.query.focus()

}

function HandleForm(form){

var i, newq="", oldq=form.query.value;

for (i=0; i<oldq.length; i++) {  // compress [ ]+ into \+

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];

// Window

search=window.open(newq ? eng.pre_gotcha + newq + eng.post_gotcha : eng.home,"SmartSearch","scrollbars=yes,toolbar=yes,location=yes,directories=yes,status=yes,menubar=yes,resizable=yes,width='100%',hight='100%'");

}

Add("Dünya - AltaVista","SELECTED","http://altavista.digital.com/",

"http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunt");

Add("Dünya - AltaVista (UseNet)","","http://altavista.digital.com/",

"http://altavista.digital.com/cgi-bin/query?pg=q&what=news&fmt=d&q=hunt" );

Add("Dünya - Yahoo!","","http://www.yahoo.com/",

"http://search.yahoo.com/bin/search?p=hunt" );

Add("Dünya - DejaNews","","http://www.dejanews.com/",

"http://search.dejanews.com/nph-dnquery.xp?query=hunt&defaultOp=AND&svcclass=dncurrent&maxhits=25");

Add("Dünya - HotBot","","http://www.search.hotbot.com",

"http://www.search.hotbot.com/search.html?MT=hunt&DC=25");

Add("Dünya - Infoseek UltraSmart","","http://www.infoseek.com/Home?pg=Home.html&sv=A2",

"http://www.infoseek.com/Titles?qt=hunt&col=WW&sv=A2");

Add("Dünya - Excite","","http://www.excite.com/",

"http://www.excite.com/search.gw?searchType=Concept&search=hunt&category=default");

Add("Dünya - Infoseek (Usenet)","","http://www.infoseek.com",

"http://www.infoseek.com/Titles?qt=hunt&col=NN&sv=A2");

Add("Dünya - Lycos","","http://www.lycos.com/",

"http://www.lycos.com/cgi-bin/pursuit?query=hunt&backlink=639");

Add("Dünya - Magellan","","http://www.mckinley.com/",

"http://www.mckinley.com/extsearch.cgi?query=hunt");

Add("Dünya - OpenText","","http://search.opentext.com",

"http://search.opentext.com/omw/simplesearch?SearchFor=hunt&mode=and");

Add("Dünya - WebCrawler","","http://webcrawler.com/",

"http://webcrawler.com/cgi-bin/WebQuery?searchText=hunt&maxHits=25");

Add("Dünya - Yahoo (PixSearch)","","http://ipix.yahoo.com/",

"http://ipix.yahoo.com/cgi-bin/y-new/keyword_search.cgi?db=%2Fdata%2Fglobal_keyword&q=hunt");

// Software

Add("Yazılım - ZDNet","","http://www.zdnet.com/",

"http://www6.zdnet.com/cgi-bin/texis/swlib/hotfiles/search.html?Usrt=rel&Usrchtype=simple&Utext=hunt");

Add("Yazılım - DaveCentral","","http://www.davecentral.com/",

"http://www.davecentral.com/cgi-bin/search.pl?query=hunt");

Add("Yazılım - Filez","","http://www.filez.com/",

"http://filez.com/cgi/filez.cgi?query=hunt&type=All+Files&hits=50&domain=World&doit=Search/");

Add("Yazılım - Shareware.com","","http://www.shareware.com/",

"http://search.shareware.com/code/engine/Find?logop=and&cfrom=quick&orfile=True&hits=25&search=hunt&category=All-Categories");

Add("Yazılım - PC game finder","","http://www.pcgame.com/","http://www.pcgame.com/finder/search.cgi?key=hunt");

// Denmark

Add("Danimarka - AltaVista (DK)","","http://altavista.telia.com/cgi-bin/telia","http://www.danielsen.com/cgi/thornew.cgi?country=danmark&cnt=50&q=hunt");

Add("Danimarka - Jubii","","http://www.jubii.dk/","http://soeg.jubii.dk/resultat.asp?startnummer=1&antalresultater=30&soegeord=hunt");

Add("Danimarka - Thor","","http://www.danielsen.com/thor/",

"http://www.danielsen.com/cgi/thornew.cgi?country=danmark&cnt=50&q=hunt");

DisplayForm();

// STOP HIDE -->

</script>


Yorumlar                 Yorum Yaz
Bu hazır kod'a ilk yorumu siz yapın!
KATEGORİLER
ASP - 240
ASP.NET - 24
C# - 75
C++ - 174
CGI - 8
DELPHI - 247
FLASH - 49
HTML - 536
PASCAL - 246
PERL - 11
PHP - 160
WML - 9
XML - 2
Copyright © 2002 - 2024 Hazır Kod - Tüm Hakları Saklıdır.
Siteden yararlanırken gizlilik ilkelerini okumanızı tavsiye ederiz.
hazirkod.com bir İSOBİL projesidir.