Ajax文本框输入提示

一个Ajax文本框输入提示的例子，用asp实现:

前台文件

!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd" html xmlns="http://www.w3.org/1999/xhtml" head meta http-equiv="Content-Type" content="text/html; charset=utf-8" / title文本框输入提示/title style type="text/css"...  !--  .keyword {...}{width:150px; height:20px; border:#0066FF 1px solid;}/**//*文本框样式*/  #keytishi {...}{width:150px; height:auto; border:#0066FF 1px solid; position:absolute; display:none;}/**//*提示层样式*/  #keytishi ul {...}{ margin:0;}/**//*提示层样式*/  #keytishi ul li{...}{margin:0;list-style-type:none; line-height:16px; height:16px; font-size:12px; padding:2px;}/**//*提示层样式*/  #keytishi ul li a {...}{display:block; width:150px; height:16px; text-decoration:none;}/**//*提示层样式*/  #keytishi ul li a:hover {...}{background-color:#0099FF;}/**//*提示层样式*/  -- /style script type="text/javascript"...  !--   //建立XMLHttpRequest对象  var xmlhttp;  try...{      xmlhttp= new ActiveXObject('Msxml2.XMLHTTP');  }catch(e)...{      try...{          xmlhttp= new ActiveXObject('Microsoft.XMLHTTP');      }catch(e)...{          try...{              xmlhttp= new XMLHttpRequest();          }catch(e)...{}      }  }   function getKeyWord()...{      var obj = document.getElementById("search");//获取文本域对象      if(obj.value=="")...{          return;      }      var top=0;      var left=0;      while(obj)...{//此循环得到文件域对象在页面中的绝对位置          top += obj["offsetTop"];          left += obj["offsetLeft"];          objobj = obj.offsetParent;      }      xmlhttp.open("get","input.asp？keyword="+document.getElementById("search").value,true);      xmlhttp.onreadystatechange = function()...{          if(xmlhttp.readyState == 4)          ...{              if(xmlhttp.status == 200)              ...{                  if(xmlhttp.responseText!="")...{                      document.getElementById("keytishi").innerHTML = unescape(xmlhttp.responseText);//把后台返回的数据填充到提示层                      document.getElementById("keytishi").style.left = left + "px";//设置提示层的位置,左                      document.getElementById("keytishi").style.top = (top + 25) + "px";//设置提示层的位置,上                      document.getElementById("keytishi").style.display = "block";//设置提示层可见                  }else...{                      document.getElementById("keytishi").innerHTML = "";//清空提示层                      document.getElementById("keytishi").style.display = "none";//设置提示层不可见                  }              }              else...{                            }          }      }      xmlhttp.setRequestHeader("If-Modified-Since","0");      xmlhttp.send(null);  }  function input(str)...{      document.getElementById("search").value=str;//从提示层选择你需要的数据填充到文本框      document.getElementById("keytishi").innerHTML = "";//清空提示层      document.getElementById("keytishi").style.display = "none";//设置提示层不可见  }  //-- /script /head body input type="text" class="keyword" id="search" name="search" onkeyup="getKeyWord();" onclick="getKeyWord();" / div id="keytishi"/div!--提示层-- /body /html 后台文件 [input.asp]

%...@LANGUAGE="VBSCRIPT" CODEPAGE="65001"% !--#include file="conn.asp"-- %...      dim rs      dim sql            dim keyWords            keyWrods = Request("keyword")            Set rs = Server.CreateObject("ADODB.Recordset")      sql = "select * from king_test where keyword like '%"&keyWrods&"%'"      rs.open sql,conn,1,1      if not (rs.bof and rs.eof) then      Response.Write("ul")      do while not rs.eof  % lia href="javascript:void(null);" onclick="input('%Response.Write(escape(rs("keyword")))%');"%...Response.Write(escape(rs("keyword")))%/a/li %...      rs.movenext      loop      Response.Write("ul")      end if      rs.close      set rs = nothing     conn.close      Set conn = nothing % escape与unescape是用来编码的和解码的,这是为了避免汉字出现乱码，在XP + IE6,7,Firefox测试通过