不刷新页面的情况下调用ASP

")
        arrLabels = split("职工,头衔,城市,雇佣日期", ",")
%>
<table border=0>
<%  
    for i=0 to 3
        Response.Write "<tr>"
        Response.Write "<td><b>" & arrLabels(i) & "</b></td>"  
        Response.Write "<td><i>" & arrData(i) & "</i></td>"  
    next
%>
</table>
</BODY>
</HTML>



EmpData.asp文件
<%@ LANGUAGE=VBSCRIPT %>
<% RSDispatch %>



<SCRIPT RUNAT=SERVER Language=javascript>
<!--#INCLUDE VIRTUAL="/_ScriptLibrary/RS.ASP"-->



    function Description()
    {  
           this.GetEmpInfoAsArray = DoGetData;
    }
    public_description = new Description();



    function DoGetData(empName)
    {
            sql = "select * from 雇员 where [名字]="" + empName + """;
            rst = new ActiveXObject("ADODB.Recordset");
            rst.CursorLocation = 3;      
            rst.Open(sql, "NW");
            i = 0;
    strText = "";
            if (rst.RecordCount == 1)  {
               strText += rst.Fields("雇员ID").Value + " - " +
                          rst.Fields("尊称").Value + " " +  
                          rst.Fields("姓氏").Value + " " +  
                          rst.Fields("名字").Value;
               strText += "(北联网教程,专业提供视频软件下载)

……