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  
%> 
<li><a 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测试通过