Arama motoru kodları

[code]<SCRIPT><br />
<!-- hide this script from non-JavaScript browsers<br />
// All code in this script is Copyright(C) 2007, yalç?n, famistex@mynet.com<br />
// For documentation and more info, see: https://yetkinwebmaster1.yetkin-forum.com<br />
// This is SNARK Version 1.0, 18 May 1996<br />
var MAX_ENGINES = 30;<br />
var SNARK_STRING = "hunting+the+snark";<br />
function MakeArray(n) {<br />
for (var i = 1; i <= n; i++) {<br />
this[i] = 0;<br />
}<br />
this.maxlen = n;<br />
this.len = 0;<br />
return this;<br />
}<br />
var engs = new MakeArray(MAX_ENGINES);<br />
function find_substring(needle, haystack) {<br />
var i, needlen = needle.length, haylen = haystack.length;<br />
for (i=0; i<=haylen-needlen; i++) {<br />
if (needle == haystack.substring(i,i+needlen))<br />
return i;<br />
}<br />
return false;<br />
}<br />
function Engine(name, opts, home, search) {<br />
var snark = find_substring(SNARK_STRING, search);<br />
this.name = name;<br />
this.opts = opts;<br />
this.home = home;<br />
this.pre_snark = search.substring(0,snark);<br />
this.post_snark= search.substring(snark+SNARK_STRING.length, search.length);<br />
}<br />
function Add(name, opts, home, search) {<br />
engs.len++;<br />
if (engs.len <= engs.maxlen) {<br />
engs[engs.len] = new Engine(name, opts, home, search)<br />
}<br />
else {<br />
alert("Better increase MAX_ENGINES: " + engs.len + ">" + engs.maxlen)<br />
}<br />
}<br />
// ADD YOUR OWN SEARCH ENGINES BELOW. (See http://www.cs.cmu.edu/~jab/snark/ )<br />
Add("Netnews: AltaVista", "",<br />
"http://altavista.digital.com/",<br />
"http://altavista.digital.com/cgi-bin/query?pg=q&what=news&fmt=d&q=hunting+the+snark" );<br />
Add("Shareware/Windows", "",<br />
"http://vsl.cnet.com/",<br />
"http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=MS-Windows%28all%29&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" );<br />
Add("Shareware/Unix", "",<br />
"http://vsl.cnet.com/",<br />
"http://vsl.cnet.com/cgi-bin/vsl-master/Find?category=UNIX&search=hunting+the+snark&logop=and&and=&orfile=++&hits=200" );<br />
Add("the Web: AltaVista", "SELECTED",<br />
"http://altavista.digital.com/",<br />
"http://altavista.digital.com/cgi-bin/query?pg=q&what=web&fmt=d&q=hunting+the+snark" );<br />
Add("the Web: Lycos", "",<br />
"http://www.lycos.com/",<br />
"http://twelve.srv.lycos.com/cgi-bin/pursuit?query=hunting+the+snark" );<br />
Add("the Web: Yahoo!", "",<br />
"http://www.yahoo.com/",<br />
"http://search.yahoo.com/bin/search?p=hunting+the+snark" );<br />
Add("Weather (City, ST)", "",<br />
"