Sugerir con AJAX y ASP clásico

Código ASP clásico

El siguiente código en ASP clásico explica como mostrar sugerencias al texto introducido en un textbox, consultando en un array o base de datos:


<!DOCTYPE html>

<html>

<head>

<script>

function showHint(str)

{

var xmlhttp;

if (str.length==0)

  { 

  document.getElementById("txtHint").innerHTML="";

  return;

  }

if (window.XMLHttpRequest)

  {// code for IE7+, Firefox, Chrome, Opera, Safari

  xmlhttp=new XMLHttpRequest();

  }

else

  {// code for IE6, IE5

  xmlhttp=new ActiveXObject("Microsoft.XMLHTTP");

  }

xmlhttp.onreadystatechange=function()

  {

  if (xmlhttp.readyState==4 && xmlhttp.status==200)

    {

    document.getElementById("txtHint").innerHTML=xmlhttp.responseText;

    }

  }

xmlhttp.open("GET","gethint.asp?q="+str,true);

xmlhttp.send();

}

</script>

</head>

<body>



<h3>Comienza a escribir el nombre:</h3>

<form action=""> 

First name: <input type="text" id="txt1" onkeyup="showHint(this.value)" />

</form>

<p>Sugerencias <span id="txtHint"></span></p> 



</body>

</html>

El archivo gethint.asp, programado en ASP clásico, verifica si existe alguna coincidencia y la muestra en el navegador:

  
 <%

response.expires=-1

dim a(30)

'Fill up array with names

a(1)="Anna"

a(2)="Brittany"

a(3)="Cinderella"

a(4)="Diana"

a(5)="Eva"

a(6)="Fiona"

a(7)="Gunda"

a(8)="Hege"

a(9)="Inga"

a(10)="Johanna"

a(11)="Kitty"

a(12)="Linda"

a(13)="Nina"

a(14)="Ophelia"

a(15)="Petunia"

a(16)="Amanda"

a(17)="Raquel"

a(18)="Cindy"

a(19)="Doris"

a(20)="Eve"

a(21)="Evita"

a(22)="Sunniva"

a(23)="Tove"

a(24)="Unni"

a(25)="Violet"

a(26)="Liza"

a(27)="Elizabeth"

a(28)="Ellen"

a(29)="Wenche"

a(30)="Vicky"



'get the q parameter from URL

q=ucase(request.querystring("q"))



'lookup all hints from array if length of q>0

if len(q)>0 then

  hint=""

  for i=1 to 30

    if q=ucase(mid(a(i),1,len(q))) then

      if hint="" then

        hint=a(i)

      else

        hint=hint & " , " & a(i)

      end if

    end if

  next

end if



'Output "no suggestion" if no hint were found

'or output the correct values

if hint="" then

  response.write("No hay sugerencias")

else

  response.write(hint)

end if

%>

Existe de igual forma la versión en PHP:

  
 <?php

// Fill up array with names

$a[]="Anna";

$a[]="Brittany";

$a[]="Cinderella";

$a[]="Diana";

$a[]="Eva";

$a[]="Fiona";

$a[]="Gunda";

$a[]="Hege";

$a[]="Inga";

$a[]="Johanna";

$a[]="Kitty";

$a[]="Linda";

$a[]="Nina";

$a[]="Ophelia";

$a[]="Petunia";

$a[]="Amanda";

$a[]="Raquel";

$a[]="Cindy";

$a[]="Doris";

$a[]="Eve";

$a[]="Evita";

$a[]="Sunniva";

$a[]="Tove";

$a[]="Unni";

$a[]="Violet";

$a[]="Liza";

$a[]="Elizabeth";

$a[]="Ellen";

$a[]="Wenche";

$a[]="Vicky";



//get the q parameter from URL

$q=$_GET["q"];



//lookup all hints from array if length of q>0

if (strlen($q) > 0)

  {

  $hint="";

  for($i=0; $i<count($a); $i++)

    {

    if (strtolower($q)==strtolower(substr($a[$i],0,strlen($q))))

      {

      if ($hint=="")

        {

        $hint=$a[$i];

        }

      else

        {

        $hint=$hint." , ".$a[$i];

        }

      }

    }

  }



// Set output to "no suggestion" if no hint were found

// or to the correct values

if ($hint == "")

  {

  $response="no suggestion";

  }

else

  {

  $response=$hint;

  }



//output the response

echo $response;

?>

tags: ajax asp classic, ajax asp classic jquety, ajax post asp classic, ajax file upload classic asp, ajax call asp classic