[Isis-users] BUSCADOR CON WXIS

Tue May 10 15:43:49 CEST 2011

VOY A COMPARTIR CON ESTA LISTA UN CÓDIGO ELABORADO POR MI, ES UN SIMPLE BUSCADOR WEB EN BASES DE DATOS CDS-ISIS, TIENE COMO EJEMPLO LOS NOMBRES DE ALGUNAS BASES DE DATOS PARA MUSEOS, PUEDEN CAMBIAR DICHOS NOMBRES Y LOS LINKS U OTROS NOMBRES DE DICHAS BASES EN CUALQUIER PARTE DE ESTE CÓDIGO PARA QUE LES FUNCIONE CON LAS BASES DE DATOS QUE USTEDES POSEAN. 

PARA ECHAR A ANDAR ESTE PEQUEÑO UTILITARIO WEB, DEBEN POSEER EL MOTOR DE BÚSQUEDA WXIS.EXE PARA WINDOWS, EL ARCHIVO GIZMO DE CONVERSIÓN DE CARACTERES DESCONOCIDOS, Y LAS BASES DE DATOS EN FORMATO CDS-ISIS. 

NO LO HE PROBADO, FUI HACIENDO RECOPILACIONES DE CÓDIGO Y POR LOGICA DE PROGRAMACIÓN DEBE FUNCIONAR. 
CUALQUIER DUDAS O ERROR, CONTACTARME.

SALUDOS DESDE CUBA,
MAXWELL

Hacer un directorio en: /www/buscador/ y colocar dentro los archivos---
. index.html
. DIR bdatos/[las bases de datos de ARMAS, DOCUMENTOS, ARQUEOLOGIA, archivo-GIZMO]

En el cgi-bin de Apache, colocar: [/cgi-bin/]
. buscar.xis
. wxis.exe [Motor de búsqueda para windows]
. Formatos de Visualización de los resultados [armas.html, arqu.html, docum.html]

Al final de todo este proceso, abrir el Navegador de Internet [Internet Explorer] y apuntar a esta dirección:
http://localhost/buscador/index.html

ó simplemente:

http://[nombre_del_servidor]/[nombre_del_directorio_del_sitio]/[nombre_de_la_página_inicial_del_sitio.html]

*************** CÓDIGO DEL BUSCADOR ***************

<!--Este Script se debe guardar con nombre "buscar.xis"-->
<!--INICIO DEL SCRIPT-->
<IsisScript name=buscar.xis>
<section>

<!--Módulo de ENCABEZADO-->
<display><pft>'Content-type: text/html'/#</pft></display>
<field action=cgi tag=140>expresion</field> 
<field action=cgi tag=4050>base</field>
<field action=cgi tag=5001>cantidad</field>
<field action=cgi tag=5002>bloqueo</field> 

<!--Módulo de TRAZAS DEL PROYECTO-->
 <trace>!On</trace>  

<!--Módulo de DIRECCIÓN DE LAS BASES DE DATOS Y EL ARCHIVO GIZMO-->
<parm name=cipar>
<pft>
cat('cds.cip')
</pft>
</parm>

<!--Módulo de BÚSQUEDA-->
<do task=search>
<parm name=db><pft>v4050</pft></parm>
<parm name=gizmo><pft>'gizmo'</pft></parm>
<parm name=expression><pft>v140</pft></parm>
<parm name=fst type=check tag=91><pft>v140</pft></parm>
<parm name=count><pft>v5001</pft></parm>

<!--Módulo de CLAVES PRE-DEFINIDAS-->
<field action=define tag=1030>Isis_Key</field>
<field action=define tag=1040>Isis_Posting</field>
<field action=define tag=1001>Isis_Current</field>
<field action=define tag=1002>Isis_Total</field>
<field action=define tag=1009>Isis_ErrorInfo</field>

<!--CICLO/REPETICIÓN DEL MÓDULO DE BÚSQUEDA-->
<loop>
<field action=import tag=4050>4050</field>

<!--Módulo de FORMATO DE VISUALIZACIÓN DE LOS RESULTADOS-->
<display><htmlpft><pft>if v4050 = 'armas' then cat('armas.html') fi </pft></htmlpft></display> 
<display><htmlpft><pft>if v4050 = 'docum' then cat('docum.html') fi </pft></htmlpft></display> 
<display><htmlpft><pft>if v4050 = 'arqu' then cat('arqu.html') fi </pft></htmlpft></display> 

</loop>
<!--FIN DEL CICLO/REPETICIÓN-->

<!--Módulo de ERROR POR SI NO SE ENCONTRARON REGISTROS-->
<display><pft>if v1002 = '0' then '<h3><i> No se encontraron registros para la expresión: ',v140,' </i></h3>' fi</pft></display>

<!--CIERRE DEL MÓDULO DE BÚSQUEDA-->
</do>

</section>

<!--FIN DEL SCRIPT-->
</IsisScript>

<!--ARCHIVO CON NOMBRE [cds.cip]-->
armas.*=C:\wamp\www\buscador\bdatos\armas\armas.*
arqu.*=C:\wamp\www\buscador\bdatos\arqu\arqu.*
docum.*=C:\wamp\www\buscador\bdatos\docum\docum.*
gizmo.*=C:\wamp\www\buscador\bdatos\gizmo\gizmo.*
<!--FIN DEL ARCHIVO CDS.CIP-->

<!--PLANTILLA HTML [index.html]-->
<html>

<head>
<title>Net-Isis .:: Sistema Web Cubano para la Red de Museos del país ::.</title>
</head>

<body bgcolor="#ffffff">

<form action="/cgi-bin/wxis.exe" method="post" name="formulario" id="formulario" onSubmit=
 "if (window.document.formulario.expresion.value =='') {
  alert ('   No se permite enviar la\nsolicitud con el campo vacío');
  return false;}
 else {
     return true;}">>
      <INPUT type="hidden" value="buscar.xis" name="IsisScript"> 
      <INPUT type="hidden" value="10" name="cantidad">
      <INPUT type="hidden" value="xyz" name="bloqueo">

<table align="center" border="0" cellpadding="0" cellspacing="0" width="401">
    <tr>
   <td height="80" colspan="3" valign="top"><img name="logo_buscador" src="logo_buscador.jpg" width="364" height="80" border="0" alt="Aquí va el Logotipo del Buscador"></td>
   <td width="36" rowspan="5" valign="top"><!--DWLayoutEmptyCell--> </td>
    </tr>
    <tr>
    <td height="30" colspan="3" align="center" valign="middle">
    <input maxlength="2048" name="expresion" size="55" title="Buscar con Net-Isis" value="">
    </td>
    </tr>
  <tr>
    <td width="17" height="2"></td>
    <td width="197"></td>
    <td width="151"></td>
  </tr>
  <tr>
    <td height="48" colspan="3" align="center" valign="top"> <input name=btnG type=submit value="Buscar con Net-Isis" class="boton">        <input name="btnI" type="reset" value="Limpiar todo" class="boton"></td>
    </tr>
  <tr>
    <td height="76" valign="top"><!--DWLayoutEmptyCell--> </td>

   <td align="center" valign="top">

   <SELECT name="base" id="base">

                <OPTION value="armas" selected>Armas</OPTION>
                <OPTION value="docum">Documentos</OPTION>
                <OPTION value="arqu">Arqueología</OPTION>

      </SELECT>   
      </td>

   <td valign="top"><!--DWLayoutEmptyCell--> </td>
   </tr>

</table>

</form>

</body>

</html>

<!--FIN DEL ARCHIVO index.html-->

<!--FORMATO DE VIZUALIZACIÓN DE LOS RESULTADOS [armas.html, arqu.html, docum.html]-->

<html>
<head>

<body>
[pft]'
<table width="100%" border="0" cellpadding="0" cellspacing="0">
  <!--DWLayoutTable-->
  <tr>
    <td height="25" colspan="2" align="left" valign="middle"><span class="Estilo13"><img src="/buscador/objetos/valor'v23'/'v50'/'v1'/'v4'.jpg" alt="Descargar" width="25" height="25" align="middle"/><a href="/buscador/objetos/valor'v23'/'v50'/'v1'/'v4'.jpg" target="new_ed" title="Descargar"></a> <a href="/buscador/objetos/valor'v23'/'v50'/'v1'/'v4'.jpg" target="new_ed" title="Mostrar imagen">',v101,'</a></span></td>
  </tr>
  <tr>
    <td height="26" colspan="2" valign="top"><span class="Estilo14"><span class="Estilo17">MFN-</span>',mfn(5),'  / <span class="Estilo17">INSTITUCIÓN-</span>',v1,' / <span class="Estilo17">MANIFESTACIÓN-</span>',v100,'
    / <span class="Estilo17">DENOMINACIÓN-</span>',v101,'
    / <span class="Estilo17">PAÍS-</span>',v60,' / <span class="Estilo17">AÑO-</span>',v40,' / <span class="Estilo17">MATERIALES-</span>',v76+|;|,' / <span class="Estilo17">DESCRIPTORES-</span>',v91+|;|,' / <span class="Estilo17">GRADO DE VALOR-</span>',v23,' / <span class="Estilo17">PERSONALIDAD-</span>',v25+|;|,' / <span class="Estilo17">ACONTECIMIENTO-</span>',v26+|;|,' / </span></span></td>
  </tr>
  <tr>
    <td width="451" height="26" valign="top" bgcolor="#ffffff"><span class="Estilo16">http://../buscador/objetos/valor'v23'/'v50'/'v1'/'v4'.jpg - tamaño KB</span></td>
  <td width="313"> </td>
  </tr>
</table>
'[/pft]
</FORM> 
</body>
</html>

<!--FIN DE LOS FORMATOS DE VISUALIZACIONES-->

************ FIN DEL CÓDIGO *****************

-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://lists.iccisis.org/pipermail/isis-users/attachments/20110510/96013475/attachment.html>