أحمد شوقى
الـــمـــديــــر الـــعـــام
 عدد المساهمات : 866
تاريخ التسجيل : 07/01/2010
العمر : 31
الموقع : ماى أصدقاء
العمل/الترفيه : طالب
 | موضوع: كود محرك بحث لأغلب محركات البحث العالميه :: لدينا فقط  السبت يناير 30, 2010 11:48 pm | |
|  اليوم انا جايبلكم كود رائع كتير كتير و هوة محرك بحث لجميع محركات البحث العالمية مثال على الكود :  </SPAN>
</SPAN>
<TABLE style="ZOOM: 1" cellSpacing=1 cellPadding=0 align=center border=0>
<TR>
<td>الرمز:</TD></TR>
<TR>
<td class=code>
<html dir="rtl">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1256">
<title></title>
</head>
<body>
<script language=javascript><!--
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" style="color: #3399FF; font-family: MS Sans Serif; font-size: 8pt; border: 1px solid #B8E0F8; background-color: #FBFFFF">');document.writeln('<strong></strong> <SELECT name="service" style="color: #3399FF; font-family: MS Sans Serif; font-size: 8pt; border: 1px solid #B8E0F8; background-color: #FBFFFF">');for(i=1;i<=engs.len;i++){document.writeln("<OPTION "+engs[i].opts+"> "+engs[i].name);}
document.writeln('</sELECT> <input type=submit value="ابحث" style="CURSOR: hand; color: #3399FF; font-family: MS Sans Serif; font-size: 8pt; border: 1px solid #B8E0F8; background-color: #FBFFFF"><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++){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];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=no,resizable=yes,width='100%',hight='100%'");}
Add("����أبحث","SELECTED","","");Add("Google","","http://www.google.com/","http://www.google.com/search?q=hunt");Add("Yahoo!","","http://www.yahoo.com/","http://search.yahoo.com/bin/search?p=hunt");Add("Alta Vista","","http://altavista.digital.com/","http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunt");Add("Ayna","","http://www.ayna.com/","http://www.ayna.com/cgi-bin/anathra.cgi?codepage=cp1256&show=1&boolean=AND&db=ayna&link=jcode&search=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");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");DisplayForm();//--></script>
</body>
</html>
</TD></TR></TABLE> |
و بتوفيق يا اخواني  | |
|
الرئيسية 
أحدث الصور 
