محركات بحث جميله متعددة

محركات بحث جميله متعددة

واليكم الكود

<br><script language="JavaScript"><!--<br>// START HIDE<br>var MAX_ENGINES = 35;<br>var tp='';<br>var tpp='';<br>var find = 'hunt';<br>var hold=0;<br>var hold2=0;<br>var gog=0;<br>var ap='';<br>function MakeArray(n) {<br>for (var i = 1; i <= n; i++) {<br>this[i] = 0;<br>}<br>this.maxlen = n;<br>this.len = 0;<br>return this;<br>}<br>var engs = new MakeArray(MAX_ENGINES);<br>function find_substring(needle, haystack) {<br>var i, needlen = needle.length, haylen = haystack.length;<br>for (i=0; i<=haylen-needlen; i++) {<br>if (needle == haystack.substring(i,i+needlen))<br>return i;<br>}<br>return false;<br>}<br>function Engine(name, opts, home, search) {<br>var gotcha = find_substring(find, search);<br>this.name = name;<br>this.opts = opts;<br>this.home = home;<br>this.pre_gotcha = search.substring(0,gotcha);<br>this.post_gotcha= search.substring(gotcha+find.length, search.length);<br>}<br>function Add(name, opts, home, search) {<br>engs.len++;<br>if (engs.len <= engs.maxlen) {<br>engs[engs.len] = new Engine(name, opts, home, search)<br>}<br>else {<br>alert ('Better increase MAX_ENGINES: ' + engs.Len + '>' + engs.maxlen)<br>}<br>}<br>function DisplayForm() {<br>document.writeln('<FORM Name=Gotchaform OnSubmit="HandleForm(this); return false">');<br>document.writeln('<strong></strong>&nbsp;<INPUT size=15 name="query">');<br>document.writeln('<strong></strong>&nbsp;<SELECT name="service">');<br>for (i=1; i <= engs.len; i++) {<br>document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name);<br>}<br>document.writeln('</SELECT> &nbsp;<input type=submit value="Search"><br>');<br>document.writeln('</FORM>');<br>document.Gotchaform.query.focus()<br>}<br>function HandleForm(form){<br>var i, newq="", oldq=form.query.value;<br>for (i=0; i<oldq.length; i++) {&nbsp; // compress [ ]+ into \+<br>var thischar = oldq.charAt(i);<br>if (thischar =="+")newq += "%2B";<br>else<br>if (thischar != ' ')<br>newq += thischar;<br>else if (lastchar != ' ')<br>newq += '+';<br>lastchar = thischar;<br>}<br>var eng = engs[1+form.service.selectedIndex];<br>// Window<br>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%'");<br>}<br>Add("Alta Vista","SELECTED","http://altavista.digital.com/","http://altavista.digital.com/cgi-bin/query?pg=q&amp;what=web&amp;fmt=d&amp;q=hunt");<br>Add("Yahoo!","","http://www.yahoo.com/","http://search.yahoo.com/bin/search?p=hunt" );<br>Add("DejaNews","","http://www.dejanews.com/","http://search.dejanews.com/nph-dnquery.xp?query=hunt&amp;defaultOp=AND&amp;svcclass=dncurrent&amp;maxhits=25");<br>Add("HotBot","","http://www.search.hotbot.com","http://www.search.hotbot.com/search.html?MT=hunt&amp;DC=25");<br>Add("Infoseek","","http://www.infoseek.com/Home?pg=Home.html&amp;sv=A2","http://www.infoseek.com/Titles?qt=hunt&amp;col=WW&amp;sv=A2");<br>Add("Excite","","http://www.excite.com/","http://www.excite.com/search.gw?searchType=Concept&amp;search=hunt&amp;category=default");<br>Add("Lycos","","http://www.lycos.com/","http://www.lycos.com/cgi-bin/pursuit?query=hunt&amp;backlink=639");<br>Add("Magellan","","http://www.mckinley.com/","http://www.mckinley.com/extsearch.cgi?query=hunt");<br>Add("OpenText","","http://search.opentext.com","http://search.opentext.com/omw/simplesearch?SearchFor=hunt&amp;mode=and");<br>Add("WebCrawler","","http://webcrawler.com/","http://webcrawler.com/cgi-bin/WebQuery?searchText=hunt&amp;maxHits=25");<br>// Software<br>Add("ZDNet Files","","http://www.zdnet.com/","http://www6.zdnet.com/cgi-bin/texis/swlib/hotfiles/search.html?Usrt=rel&amp;Usrchtype=simple&amp;Utext=hunt");<br>Add("Filez","","http://www.filez.com/","http://filez.com/cgi/filez.cgi?query=hunt&amp;type=All+Files&amp;hits=50&amp;domain=World&amp;doit=Search/");<br>Add("Shareware.com","","http://www.shareware.com/","http://search.shareware.com/code/engine/Find?logop=and&amp;cfrom=quick&amp;orfile=True&amp;hits=25&amp;search=hunt&amp;category=All-Categories");<br>Add("PC Gamer","","http://www.pcgame.com/","http://www.pcgame.com/finder/search.cgi?key=hunt");<br>// Denmark<br>DisplayForm();<br>// STOP HIDE <br>// --></script><br>

ويمكنك تحميل الكود من هنا




سنرحل جمعيا ونترك كل شيء خلفنا
سوى العمل الصالح
أذكرني بالخير ولو في قلبك .... ولا تحرمني أجر دعائك