Ajax文本框输入提示

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

前台文件

 















后台文件 [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("
")
    do while not rs.eof
%>
');"><%...Response.Write(escape(rs("keyword")))%>
<%...
    rs.movenext
    loop
    Response.Write("
")
    end if
    rs.close
    set rs = nothing
    conn.close
    Set conn = nothing
%>
 

escape与unescape是用来编码的和解码的,这是为了避免汉字出现乱码

在XP + IE6,7,Firefox测试通过