用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、增加，修改原理基本上与显示一样