Admin
عضو مؤسس
عدد المساهمات : 91
تاريخ التسجيل : 26/05/2010
العمر : 44
 | موضوع: كود لوضع مجموعة من 15 محرك بحث عالمي الان داخل موقعك في مربع واحد  الأربعاء يونيو 09, 2010 3:35 am | |
| كود لوضع
مجموعة من 15 محرك بحث عالمي الان داخل موقعك
في مربع واحد للمعاينة - Spoiler:
<script language="JavaScript"><!--
// 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('<FORM Name=Gotchaform OnSubmit="HandleForm(this); return false">');
document.writeln('<strong></strong> <INPUT size=15 name="query">');
document.writeln('<strong></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>');
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("Alta Vista","SELECTED","http://altavista.digital.com/","http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunt");
Add("SyriaBuy","SELECTED","http://www.syriabuy.com/Search","http://www.syriabuy.com/Search/?search=hunt&type=web");
Add("Yahoo!","","http://www.yahoo.com/","http://search.yahoo.com/bin/search?p=hunt" );
Add("DejaNews","","http://www.dejanews.com/","http://search.dejanews.com/nph-dnquery.xp?query=hunt&defaultOp=AND&svcclass=dncurrent&maxhits=25");
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("Excite","","http://www.excite.com/","http://www.excite.com/search.gw?searchType=Concept&search=hunt&category=default");
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("OpenText","","http://search.opentext.com","http://search.opentext.com/omw/simplesearch?SearchFor=hunt&mode=and");
Add("WebCrawler","","http://webcrawler.com/","http://webcrawler.com/cgi-bin/WebQuery?searchText=hunt&maxHits=25");
// Software
Add("ZDNet Files","","http://www.zdnet.com/","http://www6.zdnet.com/cgi-bin/texis/swlib/hotfiles/search.html?Usrt=rel&Usrchtype=simple&Utext=hunt");
Add("Filez","","http://www.filez.com/","http://filez.com/cgi/filez.cgi?query=hunt&type=All+Files&hits=50&domain=World&doit=Search/");
Add("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("PC Gamer","","http://www.pcgame.com/","http://www.pcgame.com/finder/search.cgi?key=hunt");
// Denmark
DisplayForm();
// STOP HIDE
// --></script>
| |
|
