Андрей Попов - Windows Script Host для Windows 2000/XP
В 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-файле
В objListPersons.SaveData();
}
//            Обработчики нажатий на кнопки в форме
//Функция-обработчик нажатия на кнопку "Сохранить"
function btnSave_OnClick() {
 //Сохраняем данные из формы в XML-файле
В objListPersons.SaveData();
}
//Функция-обработчик нажатия на кнопку "Отменить"
function btnCancel_OnClick() {
 //Заново загружаем данные из текущего элемента массива
 //в форму
В objListPersons.LoadDialog();
 //Выводим сообщение в заголовке окна
 doc.title = "Данные восстановлены";
}
//Функция-обработчик нажатия на кнопку "<<"
function btnFirst_OnClick() {
 //Проверяем, были ли сделаны изменения в форме
В if (objListPersons.IsChanged) { //Рзменения были сделаны
 //Сохраняем данные в XML-файле
В objListPersons.SaveData();
 //Заново загружаем данные из XML-файла в массив PersonArr
В objListPersons.FileToArray();
В }
 //Переходим к первой записи в массиве
В objListPersons.FirstRecord();
 //Загружаем в форму данные из массива PersonArr
 //для первой записи
В objListPersons.LoadDialog();
 //Выводим сообщение в заголовке окна
 doc.title = "Запись N " + (objListPersons.CurRecord + 1);
}
//Функция-обработчик нажатия на кнопку "<"
function btnPrevious_OnClick() {
 //Проверяем, были ли сделаны изменения в форме
В if (objListPersons.IsChanged) {В //Рзменения были сделаны
 //Сохраняем данные в XML-файле
В objListPersons.SaveData();
 //Заново загружаем данные из XML-файла в массив PersonArr
В objListPersons.FileToArray();
В }
 //Переходим к предыдущей записи в массиве
В objListPersons.PreviousRecord();
 //Загружаем в форму данные из массива PersonArr
 //для текущей записи
В objListPersons.LoadDialog();
 //Выводим сообщение в заголовке окна
 doc.title = "Запись N " + (objListPersons.CurRecord + 1);
}
//Функция-обработчик нажатия на кнопку "Новая запись"
function btnNew_OnClick() {
 //Проверяем, были ли сделаны изменения в форме
В if (objListPersons.IsChanged) { //Рзменения были сделаны
 //Сохраняем данные в XML-файле
В objListPersons.SaveData();
 //Заново загружаем данные из XML-файла в массив PersonArr
В objListPersons.FileToArray();
В }
 //Добавляем новую запись в XML-файл
В objListPersons.NewRecord();
 //Загружаем в форму данные из массива PersonArr
 //для добавленной записи
В objListPersons.LoadDialog();
 //Выводим сообщение в заголовке окна
 doc.title = "Добавлена новая запись";
}
//Функция-обработчик нажатия на кнопку "Удалить"
function btnDelete_OnClick() {
 //Удаляем текущую запись из XML-файла
В objListPersons.DelRecord();
 //Загружаем в форму данные из массива PersonArr
 //для первой записи
В objListPersons.LoadDialog();
 //Выводим сообщение в заголовке окна
 doc.title = "Запись удалена";
}
//Функция-обработчик нажатия на кнопку ">"
function btnNext_OnClick() {
 //Проверяем, были ли сделаны изменения в форме
В if (objListPersons.IsChanged) { //Рзменения были сделаны
 //Сохраняем данные в XML-файле
В objListPersons.SaveData();
 //Заново загружаем данные из XML-файла в массив PersonArr
В objListPersons.FileToArray();
В }
 //Переходим к следующей записи в массиве
В objListPersons.NextRecord();
 //Загружаем в форму данные из массива PersonArr
 //для текущей записи
В objListPersons.LoadDialog();
 //Выводим сообщение в заголовке окна
 doc.title = "Запись N " + (objListPersons.CurRecord + 1);
}
//Функция-обработчик нажатия на кнопку ">>"
function btnFinal_OnClick() {
 //Проверяем, были ли сделаны изменения в форме
В if (objListPersons.IsChanged) { //Рзменения были сделаны
