Андрей Попов - Windows Script Host для Windows 2000/XP
В this.LastName="";
В this.Name="";
В this.Phone="";
В this.Street="";
В this.House="";
В this.App="";
В this.Note="";
 //Устанавливаем для метода LoadDialog указатель на
 //функцию Person_LoadDialog
В this.LoadDialog=Person_LoadDialog;
}
//Заполнение полей в форме для текущей записи
function Person_LoadDialog() {
 //Заполняем поля ввода в форме значениями соответствующих
 //свойств объекта Person
В doc.all.txtLastName.value = this.LastName;
В doc.all.txtName.value=this.Name;
В doc.all.txtPhone.value=this.Phone;
В doc.all.txtStreet.value=this.Street;
В doc.all.txtHouse.value=this.House;
В doc.all.txtApp.value = this.App;
В doc.all.txtNote.value = this.Note;
}
//Конструктор объекта ListPersons
function ListPersons() {
 //         Свойства объекта
 //Создаем массив PersonArr экземпляров объекта Person
В this.PersonArr = new Array();
В //Рнициализируем номер текущей записи
В this.CurRecord = 0;
 //Сбрасываем признак изменения данных в форме
В this.IsChanged = false;
 //         Методы объекта
 //Устанавливаем для методов указатели на соответствующие функции
В this.FileToArray=ListPersons_FileToArray;
В this.SaveData=ListPersons_SaveData;
В this.LoadDialog=ListPersons_LoadDialog;
В this.RefreshDialog=ListPersons_RefreshDialog;
В this.NextRecord=ListPersons_NextRecord;
В this.PreviousRecord=ListPersons_PreviousRecord;
В this.FirstRecord=ListPersons_FirstRecord;
В this.FinalRecord=ListPersons_FinalRecord;
В this.NewRecord=ListPersons_NewRecord;
В this.DelRecord = ListPersons_DelRecord;
}
//Считывание данных из XML-файла в массив объектов Person
function ListPersons_FileToArray() {
В var Root,CurrNode,i;
 //Создаем объект XML DOM
В XML = WScript.CreateObject("Msxml.DOMDocument");
 //Загружаем XML-документ из файла
В XML.load(PathBook);
 //Сохраняем в переменной Root ссылку на корневой элемент
 //документа
В Root=XML.documentElement;
 //Обнуляем массив PersonArr
В this.PersonArr.length=0;
 //Перебираем все дочерние элементы первого уровня вложенности
 //для корневого элемента
В for (i=1; i<=Root.childNodes.length-1;i++) {
 //Выделяем в коллекции XML-элементов i-й элемент
В CurrNode=Root.childNodes.item(i);
 //Создаем новый экземпляр PersonRec объекта Person
В PersonRec=new Person();
 //Заполняем поля объекта PersonRec
В PersonRec.LastName=GetTagVal(CurrNode,"LastName");
В PersonRec.Name=GetTagVal(CurrNode,"Name");
В PersonRec.Phone=GetTagVal(CurrNode,"Phone");
В PersonRec.Street=GetTagVal(CurrNode,"Street");
В PersonRec.House=GetTagVal(CurrNode,"House");
В PersonRec.App=GetTagVal(CurrNode,"App");
В PersonRec.Note=GetTagVal(CurrNode,"Note");
 //Сохраняем объект PersonRec в массиве PersonArr
В this.PersonArr[this.PersonArr.length]=PersonRec;
В }
}
//Запись данных из формы в XML-файл
function ListPersons_SaveData() {
В var Root,CurrNode,ElemList;
 //Сохраняем в переменной Root ссылку на корневой элемент
 //документа
В Root=XML.documentElement;
 //Сохраняем в переменной CurrNode ссылку на (CurRecord+1)-й
 //элемент Person
В CurrNode=Root.childNodes.item(this.CurRecord+1);
 //Записываем данные из полей ввода формы в соответствующие
 //XML-элементы, которые являются дочерними узлами
 //относительно CurrNode
В SetTagVal(CurrNode,"LastName",doc.all.txtLastName.value);
В SetTagVal(CurrNode,"Name",doc.all.txtName.value);
В SetTagVal(CurrNode,"Phone",doc.all.txtPhone.value);
В SetTagVal(CurrNode,"Street",doc.all.txtStreet.value);
В SetTagVal(CurrNode,"House",doc.all.txtHouse.value);
В SetTagVal(CurrNode,"App",doc.all.txtApp.value);
В SetTagVal(CurrNode,"Note",doc.all.txtNote.value);
 //Сохраняем XML-файл на диске
В XML.save(PathBook);
}
//Загрузка данных для текущей записи в форму
function ListPersons_LoadDialog() {
 //Вызываем метод LoadDialog для объекта Person,
 //который является CurRecord-м элементом массива PersonArr
В this.PersonArr[this.CurRecord].LoadDialog();
}
//Обновление данных в форме
function ListPersons_RefreshDialog(IsGoTop) {
 //Обнуляем массив PersonArr
В this.PersonArr.length=0;
 //Заново загружаем данные из XML-файла в массив PersonArr
В this.FileToArray();
В if (IsGoTop)
 //Переходим к первой записи в массиве
В this.FirstRecord()
В else
 //Переходим к последней записи в массиве
В this.FinalRecord();
 //Загружаем в форму данные для текущей записи
В this.LoadDialog();
}
//Переход к следующей записи
function ListPersons_NextRecord() {
В if (this.CurRecord<this.PersonArr.length - 1)
 //Если текущая запись не является последней, увеличиваем
 //номер текущей записи
В this.CurRecord++;
}
//Переход к предыдущей записи
function ListPersons_PreviousRecord() {
В if (this.CurRecord > 0)
 //Если текущая запись не является первой, уменьшаем
 //номер текущей записи
В this.CurRecord--;
}
//Переход к первой записи
function ListPersons_FirstRecord() {
В this.CurRecord = 0;
}
//Переход к последней записи
function ListPersons_FinalRecord() {
В this.CurRecord = this.PersonArr.length - 1;
}
//Добавление новой записи
function ListPersons_NewRecord() {
В var Root,NewElem;
 //Сохраняем в переменной Root ссылку на корневой элемент
 //документа
В Root=XML.documentElement;
 //Создаем новый элемент Person
В NewElem=XML.createElement("Person");
 //Добавляем новый элемент в XML-файл
В Root.appendChild(NewElem);
 //Сохраняем XML-файл на диске
В XML.save(PathBook);
 //Обновлем в форме данные для последней добавленной записи
В this.RefreshDialog(false);
}
//Удаление текущей записи
function ListPersons_DelRecord() {
В var Root,DelNom;
 //Сохраняем в переменной Root ссылку на корневой элемент
 //документа
В Root=XML.documentElement;
 //В переменной DelNom сохраняем номер удаляемого элемента Person
В DelNom=this.CurRecord+1;
 //Удаляем DelNom-й элемент Person из XML-файла
В Root.removeChild(Root.childNodes.item(DelNom))
 //Сохраняем XML-файл на диске
В XML.save(PathBook);
 //Выводим сообщение о том, что запись удалена
