//---------------------------------------------------------------------------- // // Copyright (C) 2001-2002, Izumi Nagatani All rights reserved. // (nagatani10@hotmail.com) // File: kensaku.js (Ver2.0) // // Description: Subroutine of search system, free software // // //---------------------------------------------------------------------------- function kensaku(){ var varQ1=document.form1.Q1.value; //--Retrieving characters--- arrayQ2=cvtcv(); dataarry=setarry(); flag=new Array(); lengthT=termkan.length; //Number of data lengthQ=arrayQ2.length; //Retrieved number counter=0; for(i=0;i=0){ flag[i] += 1; } } } //--Output outresult(); } //Writing--------------------------------------------- function outresult(){ var varS1=document.form1.S1.value; newWin=window.open("","newWin"); newWin.document.open(); newWin.document.write(""); newWin.document.write(""); newWin.document.write(""); if(varS1=="sand"){ for(num=0;num"); newWin.document.write(""); newWin.document.write(""); newWin.document.write(""); newWin.document.write(""); newWin.document.write(""); counter=counter+1; } } }else{ for(num=0;num=1){ kana = termkan[num]; jpn = termjpn[num]; eng = termeng[num]; desc = descrpt[num]; auth = authors[num]; newWin.document.write(""); newWin.document.write(""); newWin.document.write(""); newWin.document.write(""); newWin.document.write(""); newWin.document.write(""); counter=counter+1; } } } newWin.document.write("

Microbe English name:	",kana,"
Microbe scientific name:	",eng,"
Plant English name:	",desc,"
Plant scientific name:	",auth,"
Literatures:	",jpn,"

Microbe English name:	",kana,"
Microbe scientific name:	",eng,"
Plant English name:	",desc,"
Plant scientific name:	",auth,"
Literatures:	",jpn,"

"); newWin.document.write("",counter," subjects were retrieved."); newWin.document.write(""); newWin.document.write(""); newWin.document.close(); }