منتــدى الشـــبابيــة


دردشة ليبية - برامج كاملة -بحوث -شعر -عالم المرأة - مسابقات -قصص وروايات
 
الرئيسيةالبوابةس .و .جبحـثالتسجيلدخول

شاطر | 
 

 كود محرك البحث الشامل

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
المدير العام
admin
avatar

عدد المساهمات : 145
نقاط : 14806
السٌّمعَة : 3
تاريخ التسجيل : 26/01/2010
الموقع : www.abdelata2001@googlemail.com

مُساهمةموضوع: كود محرك البحث الشامل   السبت يوليو 17, 2010 1:55 pm

السلام عليكم ورحمة الله

هذا محرك البحث الشامل للمنتدى

الكود

<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>&nbsp;<INPUT size=15 name="query">');
document.writeln('<strong></strong>&nbsp;<SELECT name="service">');
for (i=1; i <= engs.len; i++) {
document.writeln("<OPTION " + engs[i].opts + "> " + engs[i].name);
}
document.writeln('</SELECT> &nbsp;<input type=submit value="ابحث"><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,directorie s=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("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=dncur rent&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&sea rch=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>




تحياتي لكم
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://alshababi.alafdal.net
 
كود محرك البحث الشامل
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتــدى الشـــبابيــة :: منتدى الدعم الفني للمنتدى :: قسم خــاص بالأكواد-
انتقل الى: