用XMLHTTP无刷新读取，增加，修改数据

数据库：northwind
系统：window2003
开发环境：visual statio 2003
加载数据
1、读取，增加，修改数据页面
xmlHttpGetData.html


2、主要js
·getResponseData(),主要用来获取GetData.aspx页面中的内容，根据获取的内容返回字符串

     // 获取返回的信息
         function  getResponseData(params,type)
        {
             var  objHttp  =   new  ActiveXObject( " Microsoft.XMLHTTP " );
             var  getStr;
            objHttp.Open( " Get " , " GetData.aspx?params= " + params + " &Type= " + type + " &nowTime= " + getNowTime(), false );
            objHttp.Send();
            getStr  =  objHttp.responseText;
             return  getStr;
        }

·getEmployee()获取employee信息，由getResponseData()中得到的字符串获得各个字段的值，分别赋值给对应的控件

// 获取Employee
         function  getEmployee(params)
        {
             var  i,j;
             var  getStr  =  getResponseData(params, " GetEmployee " );
             if ( getStr == ' 0 ')
            {
                window.alert( " 没有数据 " );
            }
             else
            {
                document.getElementById( " txtLastName " ).value =  getValue(getStr)[ 0 ];
                document.getElementById( " txtFirstName " ).value =  getValue(getStr)[ 1 ];
                document.getElementById( " txtTitle " ).value =  getValue(getStr)[ 2 ];
                document.getElementById( " txtTitleOfCourtesy " ).value =  getValue(getStr)[ 3 ];
                document.getElementById( " txtBirthDate " ).value =  getValue(getStr)[ 4 ];
                document.getElementById( " txtHireDate " ).value =  getValue(getStr)[ 5 ];
                document.getElementById( " txtAddress " ).value =  getValue(getStr)[ 6 ];
                document.getElementById( " txtCity " ).value =  getValue(getStr)[ 7 ];
                document.getElementById( " txtRegion " ).value =  getValue(getStr)[ 8 ];
                document.getElementById( " txtPostalCode " ).value =  getValue(getStr)[ 9 ];
                document.getElementById( " txtCountry " ).value =  getValue(getStr)[ 10 ];
                document.getElementById( " txtHomePhone " ).value =  getValue(getStr)[ 11 ];
                document.getElementById( " txtExtension " ).value =  getValue(getStr)[ 12 ];
                document.getElementById( " txtPhoto " ).value =  getValue(getStr)[ 13 ];
                document.getElementById( " txtNotes " ).value =  getValue(getStr)[ 14 ];
                document.getElementById( " txtReportsTo " ).value =  getValue(getStr)[ 15 ];
                document.getElementById( " txtPhotoPath " ).value =  getValue(getStr)[ 16 ];
            }
        }
         // getStr：需要截取的字符串
         function  getValue(getStr)
        {
             var  myArray  =   new  Array();
            myArray  =  getStr.split( " / " );
             return  myArray;
        }

3、getData.aspx中的主要代码
GetEmployee()用来读取employee表中数据，并且返回xxxx/yy/gg/xx 形式字符串
如果没有数据则返回0

 Public Function GetEmployee(ByVal strEmployeeId As String) As String
        Response.Clear()'清空页面内容
        Dim i As Integer
        Dim str As String
        Dim dt As DataTable  =  vbp.GetEmployees( "  AND EmployeeId = ' "   &  strEmployeeId  &   " ' " )
        If dt.Rows.Count  >   0  Then
            str  &=  dt.Rows( 0 )( " LastName " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " FirstName " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " Title " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " TitleOfCourtesy " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " BirthDate " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " HireDate " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " Address " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " City " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " Region " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " PostalCode " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " Country " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " HomePhone " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " Extension " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " Photo " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " Notes " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " ReportsTo " ).ToString()  +   " / "
            str  &=  dt.Rows( 0 )( " PhotoPath " ).ToString()  +   " / "
            Response.Write(str)
        Else
            Response.Write( " 0 " )
        End If
        Response.End()
    End Function

4、增加，修改原理基本上与显示一样