【www.gdgbn.com--浏览器】

<script type="text/javascript">
var a_i;
function showGs(event){
if($.browser.msie){
     var keyStr=event.keyCode;
}
else var keyStr=event.which;
if(keyStr!=38&&keyStr!=40&&keyStr!=13){
    $("#ts").empty();
    var vsGsName=escape($("#sGsName").val());
    if(vsGsName!=""){
        $("#ts").html("正在加载...");
        $.post("s.asp",{sGsName:vsGsName},function(m){
            $("#ts").html(unescape(m));
            $("#ts>a").bind("click",vst);
            $("#ts").css("display","block");
            //初始化全局变量
            a_i=-1;
        });
    }
    else $("#ts").css("display","none");
}
else{
     //使用键盘上下键选择
     if($("#ts").css("display")=="block"){
         //得到选择列表的长度
         var aLen=$("#ts>a").length;
         var _aLen=Number(aLen)-1;
         //按下键盘向下方向键
         if(keyStr==38){
             if(a_i>=0&&a_i<=_aLen) $("#ts>a").get(a_i).style.backgroundColor="";
             a_i=Number(a_i)-1;
             if(a_i<0) a_i=_aLen;
             $("#ts>a").get(a_i).style.backgroundColor="#CCCCCC";
         }
         //按下键盘的向上方向键
         else if(keyStr==40){
             if(a_i>=0&&a_i<=_aLen) $("#ts>a").get(a_i).style.backgroundColor="";
             a_i=Number(a_i)+1;
             if(a_i>=aLen) a_i=0;
             $("#ts>a").get(a_i).style.backgroundColor="#CCCCCC";
         }
         //按下回车键
         else if(keyStr==13){
             var entLiText=$("#ts>a").get(a_i).innerHTML;
             $("#sGsName").val(entLiText);
             $("#ts").css("display","none");
         }
    }
}
}

function vst(){
    var liText=$(this).text();
    $("#sGsName").val(liText);
    $("#ts").css("display","none");
}
//返回查询的公司的信息
function gsInfo(){
    var vsGsName=$("#sGsName").val();
    if(vsGsName!=""){
        $.post("addEmp1_1.asp",{sGsName:vsGsName},function(m){
            $("#content").html(m);
        });
    }
}
</script>

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<%
response.Charset="utf-8"
sGsName=unescape(trim(request.Form("sGsName")))
dbpath="demo.mdb"
sqlStr="select top 5 sgName from cominfo where sgName like "%"&sGsName&"%""
connstr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(dbPath)
set conn=server.CreateObject("adodb.connection")
conn.open connstr
set rs=conn.execute(sqlStr)
if not rs.bof and not rs.eof then
do while not rs.eof
str=str&""&rs("sgName")&""
rs.movenext
loop
else
str="没有此公司"
end if
rs.close
set rs=nothing
set conn=nothing
response.Write(escape(str))
%>

本文来源：http://www.gdgbn.com/bangongshuma/14532/