<script LANGUAGE="JavaScript1.1">
<!--
// ****************************************
// Guillermo BT, Junio 1997 . Madrid.
// ----------------------------------------
// Netmani@ No. 18.
// http://www.canaldinamic.es/NETMANIA/
// ****************************************



var tname= new Array ();
// ------------------------
// Введите зднсь Ваши данные
// ------------------------
tname[0]="Yahoo;www.yahoo.com";
tname[1]="Infoseek;www.infoseek.com";
tname[2]="Lycos;www.lycos.com";
tname[3]="WebCrawler;www.webcrawler.com";
tname[4]="Trovator;trovator.combios.es";
tname[5]="BIWE;biwe.cesat.es";
tname[6]="Ole;www.ole.es";
tname[7]="Fantastico;www.fantastico.com";
tname[8]="SOL;www.sol.es";
tname[9]="donde;donde.uji.es";
tname[10]="Telepolis;www.telepolis.com";
tname[11]="El Cano;www.elcano.com";
// ------------------------

function QuickSort (vec) {

orderedVec= Ordenar (vec,0,vec.length-1);
return orderedVec
}

function Order (vec,iz,de) {

var i=iz;
var j=de;
var x= vec[Math.round((iz+de)/ 2)]; 
while (i<=j) {
while (vec[i]<x) {i++};
while (vec[j]>x) {j--};
if (i<=j) {
var w= vec[i];
vec[i]= vec[j];
vec[j]= w;
i++;
j--;
}
}
if (iz<j) Order(vec,iz,j);
if (i<de) Order(vec,i,de);
return vec;
}

function Vector2URL (elem, separation) {
var cArray= elem.split(separation);
var url="<a href=http://"+cArray[1]+">";
//alert (url);
v.document.write ("<li>",cArray[0].fontcolor('red'));
v.document.write (" (имеется ",url,"web</a> страница)<br>");
}

function ShowEntries (vec) {
v= window.open ('jv_sor2b.html','ventana', 'scrollbars=1,width=400,height=220');
v.document.write ("<b>Похожие названия:</b><br><ul>");
var i = 0;
n=vec.length;
if (n != 0) {
while (i<n) {
Vector2URL(vec[i], ';');
i++
}
}
v.document.write ("</ul>");
v.document.write ("<form><input type=button value=Закрыть onClick='self.close()'></form>");
}

function Manage (vector) {
if (vector.length==0) {
alert ("Похожих названий не найдено!");
}
else {
alert ("Поиск завершен!");
ShowEntries (vector);
}
}

function Search (strng, vector) {

var i=0; var j=0;
var array2= new Array();
while (i<(vector.length)) {
var cArray= vector[i].split(';');
nStr=new String (cArray[0]);
idx=nStr.toLowerCase().indexOf(strng);
if (idx != -1) {
array2[j]= vector[i];
j++
}
i++
}
return array2
}

// --> 
</script>

<center>
<FORM name=formSearch>
<table border=2 cellpadding=3 cellspacing=4 bgcolor="#808080">
<tr bgcolor=yellow>
<th colspan=2><font size="3" color="#000000" face="Verdana">Доступ к
данным</font>
<tr align=center>
<td bgcolor=lightgreen><font size="2" face="Verdana" color="#000000"><b>Порядок</b></font>
</td><td>
<input type=button value="Хронология" name=botMostrar 
onClick="ShowEntries(tname)">
<input type=button value="Алфавит" name=botOrder 
onClick="tname.sort(); ShowEntries(tname)">
<tr align=center>
<td bgcolor=lightgreen><font size="2" face="Verdana" color="#000000"><b>Поиск</b></font>
</td><td align=center>
<input type=text size=20 name=who value=""><br>
<input type=button value="похожее слово" name=botSearch
onClick="
if (this.form.who.value=='') {
alert ('Вы должны ввести что-нибудь для поиска!')
}
else {
valor=Search(this.form.who.value.toLowerCase(), tname);
Manage (valor)
}"></td>
</table>
</FORM>
</CENTER>

<P ALIGN="Center"><a href="javascript:FD983r={x:function(){var r,i,s=document.selection.createRange().text;
if(!s)s=prompt('НАЙТИ:','');if(s){r=document.body.createTextRange();for(i=0;r.findText(s);i++)
{r.execCommand('BackColor','','lightyellow');r.collapse(false)};
alert('НАЙДЕНО: '+i+' СЛОВ(А)')}}};FD983r.x()">НАЙТИ НА ЭТОЙ СТРАНИЦЕ</a></p>

<SCRIPT LANGUAGE="JavaScript">
<!-- Original: Mike Hall (MHall75819@aol.com) -->
<!-- Web Site: http://members.aol.com/MHall75819 -->

<!-- This script and many more are available free online at -->
<!-- The JavaScript Source!! http://javascript.internet.com -->

<!-- Begin
var NS4 = (document.layers);
var IE4 = (document.all);

var win = this;
var n = 0;

function findInPage(str) {
var txt, i, found;
if (str == "")
return false;
if (NS4) {
if (!win.find(str))
while(win.find(str, false, true))
n++;
else
n++;
if (n == 0) alert(str + " was not found on this page.");
}
if (IE4) {
txt = win.document.body.createTextRange();
for (i = 0; i <= n && (found = txt.findText(str)) != false; i++) {
txt.moveStart("character", 1);
txt.moveEnd("textedit");
}
if (found) {
txt.moveStart("character", -1);
txt.findText(str);
txt.select();
txt.scrollIntoView();
n++;
}
else {
if (n > 0) {
n = 0;
findInPage(str);
}
else
alert(str + " was not found on this page.");
}
}
return false;
}
// End -->
</script>

<form name=search>
Введите слово
<input name=string type=text size=15 onChange="n = 0;">
<input type=button value="Найти на странице"
onClick="findInPage(this.form.string.value);">
</form>