Web开发示例：Ajax文本框输入提示-控件新闻-慧都网

Web开发示例：Ajax文本框输入提示

转帖|其它|编辑：郝浩|2009-04-08 15:38:55.000|阅读 1089 次

概述：本文是一个Ajax文本框输入提示的例子。

下面是一个Ajax文本框输入提示的例子:

前台文件

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "//www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="//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)...{}
    }
}

后台文件 [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
%>