Windows Script Host для Windows 2000/XP

 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);
 //Выводим сообщение о том, что запись удалена
WshShell.Popup("Запись N "+DelNom+" удалена",0,"Информация",
 vbInformation+vbOkOnly);
 //Обновлем в форме данные для первой записи
 this.RefreshDialog(true);
}
// Обработчики событий Internet Explorer'a
//Функция-обработчик окончания загрузки документа в Internet Explorer
function ie_DocumentComplete {
 //Создаем экземпляр objListPersons объекта ListPersons
 objListPersons = new ListPersons;
 //Загружаем данные из XML-файла в массив PersonArr
 objListPersons.FileToArray;
 //Получаем ссылку на объект Document
 doc = ie.Document;
 //Устанавливаем заголовок окна
 doc.title = "Редактирование данных";
 //Указываем функции-обработчики нажатий на кнопки формы
 doc.all.btnSave.onclick=btnSave_OnClick;
 doc.all.btnCancel.onclick=btnCancel_OnClick;
 doc.all.btnFirst.onclick=btnFirst_OnClick;
 doc.all.btnPrevious.onclick=btnPrevious_OnClick;
 doc.all.btnNew.onclick=btnNew_OnClick;
 doc.all.btnDelete.onclick=btnDelete_OnClick;
 doc.all.btnNext.onclick=btnNext_OnClick;
 doc.all.btnFinal.onclick=btnFinal_OnClick;

 //Указываем функции-обработчики изменения текста в полях ввода
 doc.all.txtLastName.onchange = txtBoxOnChange;
 doc.all.txtName.onchange = txtBoxOnChange;
 doc.all.txtPhone.onchange = txtBoxOnChange;
 doc.all.txtStreet.onchange = txtBoxOnChange;
 doc.all.txtHouse.onchange = txtBoxOnChange;
 doc.all.txtApp.onchange = txtBoxOnChange;
 doc.all.txtNote.onchange = txtBoxOnChange;
 if (objListPersons.PersonArr.length < 1)
 //Если в XML-файле нет данных, добавляем пустую запись
 objListPersons.AddRecord;
 //В качестве текущей устанавливаем первую запись
 objListPersons.CurRecord = 0;
 //Загружаем в форму данные из массива PersonArr
 //для первой записи
 objListPersons.LoadDialog;
 // Делаем окно Internet Explorer'а видимым
 ie.Visible = true;
}
//Функция-обработчик закрытия окна Internet Explorer'а
function ie_OnQuit {
 IsQuit=true;
 //Сохраняем данные из формы в XML-файле