Ajax文本框输入提示

2019-11-17 04:18:32

字体：大中小

来源：转载

供稿：网友

今天我来做一个Ajax文本框输入提示的例子:

前台文件

<!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">...

</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"];
        obj = 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"%>

<%...
    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
%>