İPUCU

Java Object Oriented Programming temeline dayanan, çok işlevli, step by step işleyen dilin dökümanlarının paylaşım alanı.

Seçenekler

Arama Motoru-1

30-05-2011 21:46
#1
Virtual Root - ait Kullanıcı Resmi (Avatar)
E-Mail onayı yapılmamış üye
Üyelik tarihi:
06/2008
Mesajlar:
3.490
Teşekkür (Etti):
37
Teşekkür (Aldı):
295
Konular:
2099
Ticaret:
(0) %
[PHP]**********

<!-- 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() {

********.writeln('<CENTER><FORM Name=Gotchaform OnSubmit="HandleForm(this); return false">');

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

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

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

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

}

********.writeln('</SELECT> <br><input type=submit value="Ara ve Bul"><br><a href="http://www.samsunspor.kulubu.com" target="http://www.samsunspor.kulubu.com" >http://www.samsunspor.kulubu.com</a><br>');

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

********.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 ,********=yes,directories=yes,status=yes,menubar=y es,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=dncur rent&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=h unt");

// 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&sea rch=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&soeg eord=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>

[/PHP]


Bookmarks


« Önceki Konu | Sonraki Konu »
Seçenekler

Yetkileriniz
Sizin Yeni Konu Acma Yetkiniz var yok
You may not post replies
Sizin eklenti yükleme yetkiniz yok
You may not edit your posts

BB code is Açık
Smileler Açık
[IMG] Kodları Açık
HTML-Kodları Kapalı
Trackbacks are Kapalı
Pingbacks are Kapalı
Refbacks are Kapalı