JavaScript örnekleri 22

JavaScript ÖRNEKLERİ

Örnek 22

Arama İşlemleri için panel;

Dizinler	Arama Motorları		Meta Arama
Yok Yahoo Magellan Point	Yok Alta Vista Open Text Lycos Excite	WebCrawler InfoSeek DejaNews Inktomi	Yok MetaCrawler SavySearch
Aranacak Kelimeyi Yazınız

Bu script yardımıyla, 3 ayrı kategori altında arama yaptırtabilirsiniz. Yoboseyo tarafından yazılan bu script oldukça kullanışlı...

<HEAD>....</HEAD> tagları arasına yerleştireceğiniz kodlar aşağıda... Bu kodlar üzerinde herhangi bir değişiklik yapmayacaksınız...

 <script language="javascript"> function doit(frm) { var tail=new Array(); // store the end of the search string in an array tail[0]=""; // dirs none tail[1]=""; // yahoo tail[2]=""; // Magellan tail[3]=""; // Point tail[4]=""; // engine none tail[5]="&mode=and"; // Alta Vista tail[6]="&mode=and"; // Open Text tail[7]="&backlink=217&maxhits=25"; // Lycos tail[8]="&category=default&mode=relevance&showqbe=1&display=html3,hb"; // Excite tail[9]="&maxHits=25"; // Web Crawler tail[10]="&col=WW"; // Info Seek tail[11]="&defaultOp=AND&svcclass=dncurrent&maxhits=25"; // Deja News tail[12]="&hits=25&disp=Text+Only"; // Inktomi tail[13]=""; // meta none tail[14]="&method=0&target=®ion=0&rpp=20&timeout=5&hpe=10"; // Meta Crawler tail[15]="&classic=on&t1=x&Boolean=AND&Hits=10&Mode=MakePlan&df=normal&AutoStep=on&AutoInt=on&lb=1"; // SavySearch // lets do it cnt=0; out=new Array(); var ary=new Array(0,4,13,16); // start nums for sections for (i=0;i<3;i++) for (j=ary[i];j<ary[i+1];j++) // loop length=size of sections if (frm.elements[j].checked && frm.elements[j].value!="") { out[cnt]=j; cnt++; }; // store form element number in array and inc if (cnt>0 && frm.text.value.length>0) // if there is something selected { row=""; var fr=new Array(); // frame text array for (i=0;i<cnt;i++) { row+=Math.floor(100/cnt)+"%,"; // rows=x% string t=frm.text.value; t2=""; // get text to search with for (j=0;j<t.length;j++) t2+=(t.charAt(j)==" ")?"+":t.charAt(j); // change ' ' to '+' txt=(out[i]==2)? t2:escape(t); // if magellan use '+' string url=frm.elements[out[i]].value+txt+tail[out[i]]; // complete url fr[i]='<frame name="frame'+i+'" src="//'+url+'">'; }; if (cnt==1) row+="*,"; srch=window.open(); srch.document.write('<html><frameset rows='+row.substring(0,row.length-1)+'>'); for (i=0;i<fr.length;i++) srch.document.write(fr[i]); srch.document.write('</frameset></html>'); srch.document.close(); }; }; </script>

<BODY>....</BODY> tagları arasına ise aşağıdaki kodları yerleştirmelisiniz...

<table border=1><tr> <th>Directories</th> <th colspan=2>Search Engines</th> <th>Meta Searches</th></tr> <tr><form name="choose"> <td valign="top"><input type="radio" checked name="dirs" value="">None<br> <input type="radio" name="dirs" value="search.yahoo.com/bin/search?p=">Yahoo<br> <input type="radio" name="dirs" value="www.mckinley.com/searcher.cgi?query=">Magellan<br> <input type="radio" name="dirs" value="point.lycos.com/cgi-bin/pursuit?query=">Point</td> <td valign="top"><input type="radio" checked name="engine" value="">None<br> <input type="radio" name="engine" value="www.altavista.digital.com/cgi-bin/query?pg=q&what=web&q=">Alta Vista<br> <input type="radio" name="engine" value="search.opentext.com/omw/simplesearch?SearchFor=">Open Text<br> <input type="radio" name="engine" value="www.lycos.com/cgi-bin/pursuit?query=">Lycos<br> <input type="radio" name="engine" value="www.excite.com/search.gw?searchType=Concept&search=">Excite</td> <td valign="top"><input type="radio" name="engine" value="www.webcrawler.com/cgi-bin/WebQuery?searchText=">WebCrawler<br> <input type="radio" name="engine" value="guide-p.infoseek.com/Titles?qt=">InfoSeek<br> <input type="radio" name="engine" value="search.dejanews.com/nph-dnquery.xp?query=">DejaNews<br> <input type="radio" name="engine" value="204.161.74.8:1234/query/?query=">Inktomi</td> <td valign="top"><input type="radio" checked name="meta" value="">None<br> <input type="radio" name="meta" value="search.go2net.com/crawler?general=">MetaCrawler<br> <input type="radio" name="meta" value="guaraldi.cs.colostate.edu:2000/search?KW=">SavySearch</td></tr> <tr><td colspan=4 align="center">Enter Text To Search For<br> <input type="text" name="text" size=30><input type="button" value="Search" onclick="doit(this.form);"></td></form></tr> </table>

      Ziyaretçilerinizin kolayca arama yapabilmesi için kullanılabilecek güzel bir panel...



Tasarım & Grafik: © Bülent Boz,    1999, ANKARA

Sayfa İndeksi

Script İndeksi

[ Appletler - JavaScriptler - ÇeşitliKonular - Oyunlar - Download - Linkler ]