Пример ASP: производство комбинированных слов

＜%@ language = vbscript%＞

＜%

Опция явная

«Последнее обновлено Recon 16.03.2001

Dim m_ipartcnt

Dim m_strprompt

Dim m_astrsenpart (), m_astrfilename ()

Dim m_astrwords (), m_aiopstatus ()

'-------------------------------------------

'Постоянное описание переменной

'm_ipartcnt: количество категорий словарного запаса. Целое число

'M_STRPROMPT: подсказка после завершения операции файла. Тип строки

'M_ASTRSENPART: название классификации словарного запаса. Массив персонажей

'M_ASTRFILENAME: записывает имена файлов различных словарных файлов. Массив персонажей

'M_ASTRWORDS: Запишите все виды словаря. Двумерный массив персонажей

'm_aiopstatus: записывает состояние после работы в каждом файле. Целочисленный массив

'-------------------------------------------

'Showmethod

m_ipartcnt = 4

m_strprompt =

Redim m_astrsenpart (m_ipartcnt)

Redim m_astrfilename (m_ipartcnt)

Redim M_ASTRWORDS (M_IPARTCNT)

Redim m_aiopstatus (m_ipartcnt)

'Определите имена различных категорий словарного запаса

m_astrsenpart (0) = субъект

M_ASTRSENPART (1) = Степень наречия

m_astrsenpart (2) = наречное место

m_astrsenpart (3) = предикат

'Определите имена различных словарных документов

M_ASTRFILENAME (0) = WHO.TXT

M_ASTRFILENAME (1) = How.txt

M_ASTRFILENAME (2) = где.txt

M_ASTRFILENAME (3) = What.txt

Если запрос.servervariables (request_method) = post тогда

'Если метод запроса страницы является публикацией

'*************************

'Получите информацию о клиенте

'*************************

Dim m_isenpart

Dim m_stropway

Dim m_brptedData

'-------------------------------------------

'Постоянное описание переменной

'M_ISENPART: Числа, представляющие словарную классификацию. Целое число

'Классификация словарного запаса происходит от массива m_astrsenpart

'Возможные значения:

'0: Субъект

'1: наречие

2: наречие места

'3: предикат

'M_Stropway: Метод работы файла. Тип строки

'Возможные значения:

1. Сохранить: Сохраните определенный тип словарного запаса в файл

2. Saveall: Сохраните все категории словарного запаса в файл

'3. Загрузить: загрузите определенный тип словаря из файла

4. Loadall: загрузить все категории словарного запаса из файла

'm_brptedData: указывает, совпадают ли данные формы, представленные на этот раз, как в прошлый раз. Логический тип

'Возможные значения:

1. False: данные формы не дублируются

2. True: Данные формы повторяются (то есть форма представляется неоднократно)

'-------------------------------------------

'Showform

'Как получить запросы пользователей

m_stropway = request.form (txtopway)

'Show (m_stropway)

'Получите слова в различных категориях

Для m_icount = 0 to (m_ipartcnt - 1)

Если запрос.form (txtwords & m_icount) ＜＞ Тогда

m_astrwords (m_icount) = split (request.form (txtwords & m_icount),,)

Конец, если

'Response.write ubound (m_astrwords (m_icount)) & ＜br>

Следующий

'Обнаружение повторного представления форм

'Если session (forminf) = request.form тогда

'' Форма повторяется подчинение

'm_brptedData = true

'Еще

'Форма не повторно подчиняется подчинению

'Session (forminf) = request.form

'm_brptedData = false

'End if

'Show (m_brptedData)

'*************************

'Управлять файлом слов

'*************************

'Если m_brpteddata = false, то

Dim m_icount, m_ierrcnt

Dim m_strfilepath

'-------------------------------------------

'Постоянное описание переменной

'm_icount: счетчик. Целое число

'M_IERRCNT: количество раз, когда операция не удалась. Целое число

'M_STRFILEPATH: Запишите путь различных словарных файлов. Тип строки

'-------------------------------------------

'Получите путь, чтобы разместить словарный файл

m_strfilepath = request.servervariables (path_translated)

m_strfilepath = left (m_strfilepath, instrrev (m_strfilepath, /)))

'm_strfilepath = m_strfilepath & words/

'Show (m_strfilepath)

'Запустите операцию файла

'Response.write Начните работать с файлами слов <br>

Выберите Case M_Stropway

Кейс Сохраните

'Сохранить слова для подачи

m_isenpart = cint (request.form (txtsenpart)))

m_aiopstatus (m_isenpart) = savefile (m_isenpart)

'Согласно статусу операции, получите информацию

Выберите Case m_aiopstatus (m_isenpart)

Случай 0

m_strprompt = [& m_astrsenpart (m_isenpart) и] некоторые слова были успешно сохранены в файле

Случай 1

M_STRPROMPT = [& M_ASTRSENPART (M_ISENPART) и] Сохранение некоторых файлов не удалось

Конец выбора

Дело Saiall

'Сохраните все категории слов в файл

m_ierrcnt = 0

Для m_icount = 0 to (m_ipartcnt - 1)

m_aiopstatus (m_icount) = savefile (m_icount)

Если m_aiopstatus (m_icount) = 1 тогда

m_ierrcnt = m_ierrcnt 1

Конец, если

Следующий

'Согласно статусу операции, получите информацию

Выберите Case m_ierrcnt

Случай 0

m_strprompt = все категории слов были успешно сохранены в файле

Case m_ipartcnt

M_STRPROMPT = Word Files во всех категориях не удалось сохранить

Случай еще

m_strprompt = где,

Для m_icount = 0 to (m_ipartcnt - 1)

Если m_aiopstatus (m_icount) = 1 тогда

M_STRPROMPT = M_STRPROMPT & [& M_ASTRSENPART (M_ICOUNT) &],

Конец, если

Следующий

M_STRPROMPT = LEAND (M_STRPROMPT, LEN (M_STRPROMPT) - 1)

m_strprompt = m_strprompt и некоторые файлы не удалось сохранить

Конец выбора

Нагрузка на корпус

'Загрузите слова из файла

m_isenpart = cint (request.form (txtsenpart)))

m_aiopstatus (m_isenpart) = loadfile (m_isenpart)

'Согласно статусу операции, получите информацию

Выберите Case m_aiopstatus (m_isenpart)

Случай 0

m_strprompt = [& m_astrsenpart (m_isenpart) и] некоторые слова были успешно загружены

Случай 1

M_STRPROMPT = [& M_ASTRSENPART (M_ISENPART) и] Некоторые файлы не существуют, а загрузка сбой

Конец выбора

Case Loadall

'Загрузите слова из каждого файла

m_ierrcnt = 0

Для m_icount = 0 to (m_ipartcnt - 1)

m_aiopstatus (m_icount) = loadfile (m_icount)

Если m_aiopstatus (m_icount) = 1 тогда

m_ierrcnt = m_ierrcnt 1

Конец, если

Следующий

'Согласно статусу операции, получите информацию

Выберите Case m_ierrcnt

Случай 0

m_strprompt = все категории слов были успешно загружены

Case m_ipartcnt

M_STRPROMPT = файлы Word во всех категориях не существует, загрузка полностью не сбои

Случай еще

m_strprompt = где,

Для m_icount = 0 to (m_ipartcnt - 1)

Если m_aiopstatus (m_icount) = 1 тогда

M_STRPROMPT = M_STRPROMPT & [& M_ASTRSENPART (M_ICOUNT) &],

Конец, если

Следующий

M_STRPROMPT = LEAND (M_STRPROMPT, LEN (M_STRPROMPT) - 1)

M_STRPROMPT = M_STRPROMPT и некоторые файлы не существуют, некоторые загрузки не сбои

Конец выбора

Конец выбора

'End if

Конец, если

'Response.write end для управления файлами слов <br>

'Response.write Начните писать страницу клиента <br>

%＞

＜ HTML ＞

＜ Голова ＞

＜ Название ＞ Слово -сопоставление игры ＜/Название ＞

＜ Meta name = Generator Content = EditPlus ＞

＜ Meta name = Author Content =>

＜ Meta name = Keywords Content =>

＜ Meta name = Описание Content =>

＜!-таблица стиля->

＜ Стиль>

＜!-

/*Английский шрифт 1*/

.fonteng1

{

Семейство шрифта: Times New Roman;

в стиле шрифта :;

}

/*Английский шрифт 2*/

.fonteng2

{

Семейство шрифта: Times New Roman;

в стиле шрифта: курсив;

}

/*Придерживаться шрифта*/

.fontemp

{

Цвет: красный;

}

/*Связь*/

.связь

{

Семейство шрифта: Times New Roman;

в стиле шрифта: курсив;

Текстовое декорация: нет;

}

/* Список отображаемых слов*/

.listshown

{

позиция: абсолютно;

Ширина: 140px;

Высота: 200px;

дисплей: inline;

Граница: светлый 1PX SOLID;

фоновый цвет: Гейнсборо;

}

/*Список скрытых слов*/

.listHidden

{

позиция: абсолютно;

Ширина: 140px;

Высота: 200px;

дисплей: нет;

Граница: светлый 1PX SOLID;

фоновый цвет: Гейнсборо;

}

/*Фиксированный список слов*/

.listfixed

{

позиция: абсолютно;

Ширина: 140px;

Высота: 200px;

дисплей: inline;

Граница: красный 1px твердый;

фоновый цвет: Гейнсборо;

}

/*Показал списку справки*/

.helpshown

{

позиция: абсолютно;

ширина: ;

высота: ;

дисплей: блок;

Граница: светлый 1PX SOLID;

фоновый цвет: Гейнсборо;

}

/*Скрытый список справки*//

.Helphidden

{

позиция: абсолютно;

ширина: ;

высота: ;

дисплей: нет;

Граница: светлый 1PX SOLID;

фоновый цвет: Гейнсборо;

}

/*Прикрепленный список справочных справочных

.helpfixed

{

позиция: абсолютно;

ширина: ;

высота: ;

дисплей: блок;

Граница: красный 1px твердый;

фоновый цвет: Гейнсборо;

}

/*Выделены теги*/

.lblmover

{

Текстовое декорация: нет;

Цвет: Lightcoral;

фоновый цвет :;

}

/*Нормальный тег дисплея*/

.lblmout

{

Текстовое декорация: нет;

цвет: ;

фоновый цвет :;

}

/*Нажал тег*/

.lblclicked

{

Текстовое декорация: подчеркивание;

Цвет: красный;

фоновый цвет :;

}

/* Выделенная кнопка*/

.btnlighted

{

Ширина: 105px;

Цвет: синий;

фоновый цвет :;

}

/*Обычная кнопка отображения*/

.btndelighted

{

Ширина: 105px;

цвет: ;

фоновый цвет :;

}

/* Выделенный элемент списка слов*/

.optlighted

{

Текстовое декорация: подчеркивание;

Цвет: синий;

фоновый цвет :;

курсор: рука;

}

/*Нормальный отображаемый элемент списка слов*/

.optdelighted

{

Текстовое декорация: нет;

цвет: ;

фоновый цвет :;

курсор :;

}

->

＜/стиль>

＜!-сценарий клиента->

＜ Язык сценария = javaScript>

＜!-

// клиентские функции и тестовые функции

// ***************************************

// Имя функции: LTRIM

// Функция: Снимите пространство на левой стороне строки

// Ввод: 1. Strtemp: строка быть регулярной. Тип строки

// Вывод: обычная строка. Тип строки

// ***************************************

Функция ltrim (strtemp)

{

var Icount, ilength;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// ilength: длина строки. Целое число

// -------------------------------------------

ilength = strtemp.length;

для (icount = 0; icount ＜ ilength; icount)

if (strtemp.charat (icount)! =)

вернуть strtemp.substring (icount, ilength);

возвращаться ;

}

// ***************************************

// имя функции: rtrim

// Функция: Снимите пространство на правой стороне строки

// Ввод: 1. Strtemp: строка быть регулярной. Тип строки

// Вывод: обычная строка. Тип строки

// ***************************************

функция rtrim (strtemp)

{

var Icount, ilength;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// ilength: длина строки. Целое число

// -------------------------------------------

ilength = strtemp.length;

for (icount = ilength -1; icount> = 0; icount -)

if (strtemp.charat (icount)! =)

вернуть strtemp.substring (0, icount 1);

возвращаться ;

}

// ***************************************

// Имя функции: TRIM

// Функция: Снимите пространства с обеих сторон строки

// Ввод: 1. Strtemp: строка быть регулярной. Тип строки

// Вывод: обычная строка. Тип строки

// ***************************************

Функциональная отделка (Strtemp)

{

return rtrim (ltrim (strtemp));

}

// конвертировать 2-значные числа в 2-значную строку

// ***************************************

// имя функции: get2bnumstr

// Функция: преобразовать 2-битные числа в строку 2-битных чисел

// Ввод: 1. ИНУМЕР: Число для преобразования. Целое число

// Вывод: преобразованная числовая строка. Целое число

// ***************************************

Функция get2bnumstr (inumber)

{

var str2bnum;

// -------------------------------------------

// Описание постоянной переменной

// str2bnum: числовая строка. Тип строки

// -------------------------------------------

if (parseint (inumber) ＜ 10)

str2bnum = 0 inumber;

еще

str2bnum = inumber;

вернуть str2bnum;

}

// ***************************************

// имя функции фан -

// Функция: укажите функцию обработки событий элемента

// Ввод: 1. Ele: элемент функции обработки событий, который будет указан. Тип объекта

// 2. Func: Функция обработки событий. Функциональный

// 3. Событие: тип события. Тип строки

// Вывод: нет

// ***************************************

Function assignfunc (ele, func, event)

{

var Icount, ielecount;

var strevent;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// ielecount: количество элементов в коллекции элементов с тем же названием. Целое число

// strevent: тип события. Тип строки

// -------------------------------------------

if (событие == null)

strevent = onclick;

еще

strevent = событие;

ielecount = ele.length;

if (ielecount == не определен)

eval (ele. Strevent = func);

еще

for (icount = 0; icount ＜ ielecount; icount)

eval (ele [icount]. strevent = func);

}

// ***************************************

// имя функции: geteleindex

// Функция: Получите индекс элемента, где событие произошло в сборе с тем же именем

// Ввод: 1. ELESRC: элемент, где произошло событие. Тип объекта

// Вывод: индекс элемента, где событие произошло в сборе с тем же названием

// ***************************************

Функция getEleindex (elesrc)

{

var colsrc;

var Icount, ielecount;

// -------------------------------------------

// Описание постоянной переменной

// coLSRC: Сбор элементов с тем же названием. Массив типа объекта

// icount: счетчик. Целое число

// ielecount: количество элементов в коллекции элементов с тем же названием. Целое число

// -------------------------------------------

colsrc = eval (elesrc.id);

ielecount = colsrc.length;

for (icount = 0; icount ＜ ielecount; icount)

{

if (colsrc [icount] == ​​elesrc)

вернуть icount;

}

возврат -1;

}

// показать значение постоянной переменной (для отладки)

//! Приготовьтесь к удалению

Функция Show (strdef1, strdef2, strdef3, strdef4)

{

var Icount, idefcnt;

var strshow, strtemp;

iDefcnt = 4;

strshow = [постоянное переменное значение];

for (icount = 1; icount ＜ = idefcnt; icount)

{

strtemp = eval (strdef icount);

if (strtemp! = undefined && strtemp! = null)

strshow = /n strtemp: eval (strtemp);

}

блюд (Strshow);

}

// ***************************************

// Имя функции: ShowArray

// Функция: отображение элементов одномерного массива (для отладки)

// Ввод: 1. Массив: одномерный массив, который будет отображаться. Множество

// Вывод: нет

// ***************************************

Функция Showarray (массив)

{

var Icount, ielecount;

var strshow;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// ielecount: количество элементов массива. Целое число

// strshow: строка, состоящая из значений элементов массива. Тип строки

// -------------------------------------------

ielecount = array.length;

strshow = длина массива: ielecount;

strshow = /n ----------------------------------- /N;

for (icount = 0; icount ＜ ielecount; icount)

{

if (typeof (array [icount]) == объект)

strshow = array [icount] .id;

еще

strshow = array [icount];

}

блюд (Strshow);

}

// ***************************************

// Имя функции: Show2darray

// Функция: отображать элементы двумерного массива (для отладки)

// Ввод: 1. Массив: Двумерный массив, который будет отображаться. Множество

// Вывод: нет

// ***************************************

Функция Show2darray (массив)

{

var ix, iy, ilen1, ilen2;

var strshow;

// -------------------------------------------

// Описание постоянной переменной

// IX: счетчик. Целое число

// iy: счетчик. Целое число

// ilen1: количество одномерного массива. Целое число

// ilen2: количество двумерных массивов. Целое число

// strshow: строка, состоящая из значений элементов массива. Тип строки

// -------------------------------------------

ilen1 = array.length;

strshow = массив 1d длина: ilen1;

strshow = /n ---------------------------------;

для (ix = 0; ix ＜ ilen1; ix)

{

strshow = /n;

ilen2 = массив [ix] .length;

для (iy = 0; iy ＜ ilen2; iy)

strshow = array [ix] [iy];

}

блюд (Strshow);

}

//->

＜/Скрипт>

＜ Язык сценария = javaScript>

＜!-

// -----------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------

// window_onload

//

// getWord

//перезагрузить

//сохранять

//нагрузка

//

// Showlist

// Гиделистская

// fixlist

// Valuelist

//

// ShowHelp

// headhelp

// fixHelp

//

// сбросить

// saveall

// loadall

// Сборка

//

// lightbtn

// hellybtn

// Lightopt

// hellyopt

//

// makeopt

// удалить

// -----------------------------------------------------------

var m_ipartcnt;

var m_astrsenpart, m_astrwords;

var m_strprompt;

var m_ilistfixed, m_ihelpfixed;

// -------------------------------------------

// Описание постоянной переменной

// m_ipartcnt: количество категорий словарного запаса. Целое число

// M_ASTRSENPART: имя классификации словарного запаса. Массив персонажей

// M_ASTRWORDS: Запишите различные словаря. Двумерный массив персонажей

// M_STRPROMPT: сообщение о приглашении после завершения работы файла. Тип строки

// m_ilistfixed: номер, представляющий фиксированный список слов. Целое число

// -1 означает, что список слов не исправлен

// M_IHELPFIXED: число, которое представляет фиксированное состояние списка справки. Целое число

// -1 означает, что список справки не исправлен

// -------------------------------------------

window.onload = window_onload;

// -----------------------------------------------------------

// Инициализировать страницу

function window_onload ()

{

var Icount, ielecnt;

var colbutton;

var strhelp;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// ielecnt: количество элементов в коллекции. Целое число

// Colbutton: коллекция элементов пуговиц. Массив типа объекта

// strhelp: справка файла содержимого. Тип строки

// -------------------------------------------

m_ipartcnt = ＜%= m_ipartcnt%>;

m_strprompt = ＜%= m_strprompt%>;

m_ilistfixed = -1;

M_IHELPFIXED = -1;

m_astrsenpart = new Array ();

m_astrwords = new Array ();

// alert (m_ipartcnt: m_ipartcnt /nm_strprompt: m_strprompt);

// Получить название классификации словарного запаса и различного словарного запаса, который был загружен

＜%для m_icount = 0 до (m_ipartcnt - 1)%>

// Получить все виды словарного запаса

＜%if isempty (m_astrwords (m_icount)) = true тогда%>

m_astrwords [＜%= m_icount%>] = new Array ();

＜%Else%>

m_astrwords [＜%= m_icount%>] = ＜%= join (m_astrwords (m_icount),,)%>. Split (,);

＜%Конец, если%>

// Получить название классификации словарного запаса

M_ASTRSENPART [＜%= M_ICOUNT%>] = ＜%= M_ASTRSENPART (M_ICOUNT)%>;

＜%следующее%>

// show2darray (m_astrwords);

// showarray (m_astrsenpart);

// написать все виды загруженного словаря на страницу

for (icount = 0; icount ＜ m_ipartcnt; icount)

Valuelist (m_astrwords [icount], icount);

// Загрузите файл справки

// strhelp = tblhelp.outerhtml;

// strhelp = divhelp1.innerhtml;

//tblhelp.outerhtml =;

//divhelp.innerhtml = strhelp;

//tblhelp.style.display =;

//divhelp.style.display = none;

//divhelp.style.left = divhelp1.style.left;

// предупреждение (слева: divhelp.style.left /nleft: divhelp1.style.left);

// предупреждение (pixelleft: divhelp.style.pixelleft /npixelleft: divhelp1.style.pixelleft);

// предупреждение (posleft: divhelp.style.posleft /nposleft: divhelp1.style.posleft);

// предупреждение (Offsetleft: Divhelp.offsetleft /noffsetleft: divhelp1.offsetleft);

// предупреждение (ClientLeft: divhelp.clientleft /nclientleft: divhelp1.clientleft);

// Укажите функцию обработки событий элемента страницы

assignfunc (txtword, getword, onkeypress);

assignfunc (btngetword, getWord);

ussyfunc (btnreset, сброс);

assignfunc (btnsave, save);

ussyfunc (btnload, load);

ussyfunc (lblwordlist, showlist, onmouseover);

DessageFunc (LBLLORDLIST, HIDELIST, ONMOUSEOUT);

usdesfunc (lblwordlist, fixlist);

DessageFunc (LBLHELP, ShowHelp, OnmouseOver);

assignfunc (lblhelp, headhelp, onmouseout);

usdesfunc (lblhelp, fixhelp);

usdesfunc (btnresetall, сбросить);

ussyfunc (btnsaveall, savell);

ussyfunc (btnloadall, loadall);

ussyfunc (btnasb, сборка);

colbutton = document.all.tags (кнопка);

ielecnt = colbutton.length;

// showarray (colbutton);

// предупреждение (ielecnt: ielecnt);

for (icount = 0; icount ＜ ielecnt; icount)

{

DessageFunc (Colbutton [iCount], LightBtn, OnmouseOver);

DessageFunc (Colbutton [ICount], DelightBtn, Onmouseout);

}

// Установить начальный статус страницы

if (m_strprompt! =)

оповещение (M_STRPROMPT);

txtword [0] .focus ();

}

// -----------------------------------------------------------

// Получить слово введено пользователем

функция getWord ()

{

// только при нажатии ввода или в поле ввода слова

// продолжать делать это при нажатии кнопки «Сохранить»

if (window.event.type! = keypress && window.event.type! = click)

возвращаться;

еще

if (window.event.type == keypress && window.event.keycode! = 13) return;

var elesrc;

var iindex, inxtwrdidx;

var str strword;

// -------------------------------------------

// Описание постоянной переменной

// elesrc: элемент, где произошло событие

// iindex: номер, представляющий словарную классификацию. Целое число

// inxtwrdidx: индекс новых слов в массиве слов. Целое число

// strword: слово, введенное пользователем. Тип строки

// -------------------------------------------

elesrc = window.event.srcelement;

iindex = geteleindex (elesrc); // Получить индекс

strword = trim (txtword [iindex] .value); // Получить слово введено пользователем

// обнаружил, является ли введенное слово законным

// Если это незаконное слово, выйти

if (strword ==)

{

// Если введенное слово пустое или космическая строка

предупреждение (слова не могут быть пустыми или космической строки);

txtword [iindex]. Select ();

возвращаться;

}

if (strword.indexof (,)! = -1 || strword.indexof ()! = -1)

{

// Если введенное слово содержит запятые или пробелы

предупреждение (слова не могут содержать запятые или пробелы);

txtword [iindex]. Select ();

возвращаться;

}

// Сохранить слова в массив словарного запаса

inxtwrdidx = m_astrwords [iindex] .length;

m_astrwords [iindex] [inxtwrdidx] = strword;

// showarray (m_astrwords [iindex]);

// Написать слова на странице

Valuelist (m_astrwords [iindex], iindex);

txtword [iindex] .value =;

txtword [iindex] .focus ();

}

// -----------------------------------------------------------

// Удалить все слова в текущей категории из памяти

функция сброса ()

{

var elesrc;

var iindex, icount;

var strprompt;

// -------------------------------------------

// Описание постоянной переменной

// elesrc: элемент, где произошло событие

// iindex: номер, представляющий словарную классификацию. Целое число

// icount: счетчик. Целое число

// strPrompt: операция. Тип строки

// -------------------------------------------

elesrc = window.event.srcelement;

iindex = geteleindex (elesrc);

strprompt = вы уверены, что хотите очистить все слова в части [m_astrsenpart [iindex]] из памяти? ;

if (window.confirm (strprompt) == false) return;

m_astrwords [iindex] = new Array ();

Valuelist (m_astrwords [iindex], iindex);

// showarray (m_astrwords [iindex]);

strprompt = слово очищено;

оповещение (strprompt);

txtword [iindex]. Select ();

}

// -----------------------------------------------------------

// Сохранить текущий словарь выбранной категории в файл

function save ()

{

var elesrc;

var iindex, icount;

// -------------------------------------------

// Описание постоянной переменной

// elesrc: элемент, где произошло событие

// iindex: номер, представляющий словарную классификацию. Целое число

// icount: счетчик. Целое число

// -------------------------------------------

elesrc = window.event.srcelement;

iindex = geteleindex (elesrc);

if (m_astrwords [iindex] .length == 0)

{

// Если текущее количество слов в выбранной категории равна нулю

var strprompt;

STRPROMPT = [M_ASTRSENPART [IINDEX]] В разделе теперь нет дополнительного слова, вы уверены, что хотите его сохранить? ;

strprompt = /n (это генерирует пустой новый файл);

if (window.confirm (strprompt) == false) return;

}

// Сохранить все слова в текущей памяти

for (icount = 0; icount ＜ m_ipartcnt; icount)

eval (frmwords.txtwords icount) .value = m_astrwords [icount] .join (,);

frmwords.txtsenpart.value = iindex;

frmwords.txtopway.value = save;

frmwords.submit ();

}

// -----------------------------------------------------------

// Читать записи слов выбранной категории из файла

Функциональная нагрузка ()

{

var elesrc;

var iindex, icount;

// -------------------------------------------

// Описание постоянной переменной

// elesrc: элемент, где произошло событие

// iindex: номер, представляющий словарную классификацию. Целое число

// icount: счетчик. Целое число

// -------------------------------------------

elesrc = window.event.srcelement;

iindex = geteleindex (elesrc);

// Сохранить все слова в текущей памяти

for (icount = 0; icount ＜ m_ipartcnt; icount)

eval (frmwords.txtwords icount) .value = m_astrwords [icount] .join (,)

frmwords.txtsenpart.value = iindex;

frmwords.txtopway.value = load;

frmwords.submit ();

}

// -----------------------------------------------------------

// Показать список словарного запаса

Функция Showlist (iindex)

{

// Если параметр iindex не дан

// Получить iindex

if (iindex == не определен)

{

// Если список слов уже исправлен, выйдите из функции

if (m_ilistfixed! = -1) return;

var elesrc;

var iindex;

// -------------------------------------------

// Описание постоянной переменной

// elesrc: элемент, где произошло событие

// iindex: номер, представляющий словарную классификацию. Целое число

// -------------------------------------------

elesrc = window.event.srcelement;

iindex = geteleindex (elesrc);

}

// предупреждение (iindex: iindex);

// Показать список словарного запаса

//lblwordlist^

//LBLWORDLISTERIINDEX^.InnerText = LBLWORDLIST [iIndex] .innerText ＞;

lblwordlist [iindex] .classname = lblmover;

divwordlist [iindex] .classname = listshown;

}

// -----------------------------------------------------------

// скрыть список словарного запаса

Функция Hidelist (iindex)

{

// Если параметр iindex не дан

// Получить iindex

if (iindex == не определен)

{

// Если список слов уже исправлен, выйдите из функции

if (m_ilistfixed! = -1) return;

var elesrc;

var iindex;

// -------------------------------------------

// Описание постоянной переменной

// elesrc: элемент, где произошло событие

// iindex: номер, представляющий словарную классификацию. Целое число

// -------------------------------------------

elesrc = window.event.srcelement;

iindex = geteleindex (elesrc);

}

// предупреждение (iindex: iindex);

// скрыть список словарного запаса

//lblwordlist^

lblwordlist [iindex] .classname = lblmout;

divwordlist [iindex] .classname = listhidden;

}

// -----------------------------------------------------------

// Исправлен список словарного запаса

function fixlist ()

{

var elesrc;

var iindex;

// -------------------------------------------

// Описание постоянной переменной

// elesrc: элемент, где произошло событие

// iindex: номер, представляющий словарную классификацию. Целое число

// -------------------------------------------

elesrc = window.event.srcelement;

iindex = geteleindex (elesrc);

Switch (m_ilistfixed)

{

случай -1:

// Если еще нет списка слов

// исправить текущий список

m_ilistfixed = iindex;

lblwordlist [iindex] .classname = lblclicked;

divwordlist [iindex] .classname = listfixed;

перерыв;

case iindex:

// Если фиксированный список слов является текущим списком

// Установите текущий список

m_ilistfixed = -1;

lblwordlist [iindex] .classname = lblmover;

divwordlist [iindex] .classname = listshown;

перерыв;

по умолчанию:

// Если фиксированный список слов не является текущим списком

// Список фиксированных исправлений

Hidelist (m_ilistfixed);

m_ilistfixed = -1;

lblwordlist [iindex] .classname = lblmover;

Showlist (iindex);

перерыв;

}

// alert (m_ilistfixed: m_ilistfixed /niindex: iindex);

}

// -----------------------------------------------------------

// Написать слова, загруженные в определенном типе словарного запаса

Функция Valuelist (avords, Isenpart)

{

var Icount, iwrdcnt;

var strlistppt;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// iwrdcnt: количество слов определенного типа словаря. Целое число

// strlistppt: подсказка в списке слов. Тип строки

// -------------------------------------------

// подготовка данных

iwrdcnt = avords.length;

lblwordCount [iSenpart] .innerText = iwrdcnt;

strlistppt = ＜ div ＞＜ span style = 'color: красный; в стиле шрифта: курсив; размер шрифта: 10.5pt; '>;

strlistppt = дважды щелкните слово, чтобы удалить его </span> </div>;

// написать слова, чтобы перечислить

if (iwrdcnt! = 0)

{

divwordlist [iSenpart] .innerhtml = strlistppt;

for (icount = 0; icount ＜ iwrdcnt; icount)

divwordlist [isenpart] .innerhtml = makeopt (avords [icount], icount);

}

еще

divwordlist [iSenpart] .innerhtml = strlistppt;

}

// -----------------------------------------------------------

// Показать список справки

функция ShowHelp ()

{

// Если список справки был исправлен, выйдите из функции

if (m_ihelpfixed == 0) return;

// показать помощь

lblhelp.classname = lblmover;

divhelp.classname = helpshown;

}

// -----------------------------------------------------------

// Скрыть список справочных справочников

Функция headhelp ()

{

// Если список справки был исправлен, выйдите из функции

if (m_ihelpfixed == 0) return;

// скрыть помощь

lblhelp.classname = lblmout;

divhelp.classname = helphidden;

}

// -----------------------------------------------------------

// Исправлен список справки

function fixhelp ()

{

if (m_ihelpfixed == -1)

{

// Если список справки не был исправлен

// исправить это

M_IHELPFIXED = 0;

lblhelp.classname = lblclicked;

divhelp.classname = helpfixed;

}

еще

{

// Если список справки был исправлен

// Установите это

M_IHELPFIXED = -1;

lblhelp.classname = lblmover;

divhelp.classname = helpshown;

}

}

// -----------------------------------------------------------

// сбросить страницу в начальное состояние

функция Resetall ()

{

var Icount;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// -------------------------------------------

for (icount = 0; icount ＜ m_ipartcnt; icount)

{

txtword [icount] .value =;

m_astrwords [icount] = new Array (); // опустошить слово массив

Valuelist (m_astrwords [icount], icount);

}

txtSentence.value =;

txtword [0] .focus ();

}

// -----------------------------------------------------------

// Сохранить все категории слов в файл

Функция saveall ()

{

var Icount, iemptycnt;

var strprompt;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// iemptycnt: количество категорий с 0 слов. Целое число

// strPrompt: операция. Тип строки

// -------------------------------------------

iemptycnt = 0;

for (icount = 0; icount ＜ m_ipartcnt; icount)

{

// Сохранить все слова в текущей памяти

eval (frmwords.txtwords icount) .value = m_astrwords [icount] .join (,);

if (m_astrwords [icount] .length == 0)

iemptycnt;

}

// alert (iemptycnt: iemptycnt);

if (iemptycnt ＞ 0)

{

Переключение (iemptycnt)

{

case m_ipartcnt:

strPrompt = количество словарных слов во всех категориях составляет 0, а операция будет создавать пустые файлы m_ipartcnt;

strprompt = /n вы уверены, что хотите это сделать? ;

перерыв;

по умолчанию:

strprompt = где;

for (icount = 0; icount ＜ m_ipartcnt; icount)

if (m_astrwords [icount] .length == 0)

strprompt = [m_astrsenpart [icount]],;

strprompt = strprompt.slice (0, -1);

strprompt = количество некоторых слов равно 0;

strprompt = /n операция будет генерировать пустые файлы imemptycnt;

strprompt =, вы уверены, что хотите это сделать? ;

}

if (window.confirm (strprompt) == false) return;

}

frmwords.txtopway.value = saveall;

frmwords.submit ();

}

// -----------------------------------------------------------

// загружать все категории слов из файла

Функция loadall ()

{

var Icount;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// -------------------------------------------

// Сохранить все слова в текущей памяти

for (icount = 0; icount ＜ m_ipartcnt; icount)

eval (frmwords.txtwords icount) .value = m_astrwords [icount] .join (,)

frmwords.txtopway.value = loadall;

frmwords.submit ();

}

// -----------------------------------------------------------

// Пожалуйста, пожалуйста

Функция сборка ()

{

var Icount, iwrdcnt, irndindex;

var strsentence;

// -------------------------------------------

// Описание постоянной переменной

// icount: счетчик. Целое число

// iwrdcnt: количество слов определенного типа словаря. Целое число

// irndindex: случайно сгенерированный индекс слов. Целое число

// strsentence: предложение, состоящее из случайных слов в каждой категории словаря. Тип строки

// -------------------------------------------

strsentence =;

for (icount = 0; icount ＜ m_ipartcnt; icount)

{

// Если текущее количество словарного запаса в категории равен 0

// Дайте быстрое и прервать коллокацию

iwrdcnt = m_astrwords [icount] .length;

if (iwrdcnt == 0)

{

var strprompt;

// -------------------------------------------

// Описание постоянной переменной

// strPrompt: операция. Тип строки

// -------------------------------------------

strprompt = [m_astrsenpart [icount]] часть не имеет дополнительного слова;

strprompt = /nplease Введите хотя бы одно слово;

оповещение (strprompt);

txtWord[iCount].select();

возвращаться;

}

//随机抽取当前类别词汇中的一个单词

//加入到句子中

iRndIndex = Math.floor(Math.random()*iWrdCnt);

strSentence = m_astrWords[iCount][iRndIndex];

//alert(iWrdCnt: iWrdCnt /niRndIndex: iRndIndex);

}

strSentence = . ;

txtSentence.value = strSentence;

}

//使鼠标移到之处的按钮

//产生点亮的效果

function lightBtn()

{

var eleSrc;

//------------------------------------------

//常变量说明

//eleSrc ：发生事件的元素

//------------------------------------------

eleSrc = window.event.srcElement;

while (eleSrc.tagName.toUpperCase() != BUTTON)

eleSrc = eleSrc.parentElement;

eleSrc.className = btnLighted;

}

//使鼠标离开的按钮

//还原为初始状态

function delightBtn()

{

var eleSrc;

//------------------------------------------

//常变量说明

//eleSrc ：发生事件的元素

//------------------------------------------

eleSrc = window.event.srcElement;

while (eleSrc.tagName.toUpperCase() != BUTTON)

eleSrc = eleSrc.parentElement;

eleSrc.className = btnDelighted;

}

//在列表中，使鼠标移到之处的单词

//产生点亮的效果

function lightOpt(ele)

{

var eleSrc;

//------------------------------------------

//常变量说明

//eleSrc ：发生事件的元素

//------------------------------------------

eleSrc = ele;

eleSrc.className = optLighted;

}

//在列表中，使鼠标离开的单词

//还原为初始状态

function delightOpt(ele)

{

var eleSrc;

//------------------------------------------

//常变量说明

//eleSrc ：发生事件的元素

//------------------------------------------

eleSrc = ele;

eleSrc.className = optDelighted;

}

//得到定义过的将加入列表的单词

function makeOpt(strWord, iWrdIdx)

{

var strOptHead, strOptFoot;

var strOptWord;

//------------------------------------------

//常变量说明

//strOptHead ：重定义单词头。字符串型

//strOptFoot ：重定义单词尾。字符串型

//strOptWord ：重定义单词。字符串型

//------------------------------------------

strOptHead = ＜div class='optDelighted' onmouseover='lightOpt(this);' onmouseout='delightOpt(this);' ondblclick='removeOpt(this);' wrdIdx=' iWrdIdx '＞;

strOptFoot = ＜/div＞;

strOptWord = strOptHead strWord strOptFoot;

//alert(strOptWord);

return strOptWord;

}

//删除列表中的单词

function removeOpt(ele)

{

var eleSrc;

var iIndex, iWrdIdx;

var astrWords, astrHead, astrFoot;

//------------------------------------------

//常变量说明

//eleSrc ：发生事件的元素

//iIndex: Number representing vocabulary classification. Целое число

//iWrdIdx: The index of words in word array. Целое число

//astrWords ：某类词汇单词数组。字符串型数组

//astrHead ：某类词汇单词数组头部分。字符串型数组

//astrFoot ：某类词汇单词数组尾部分。字符串型数组

//------------------------------------------

eleSrc = ele;

iIndex = getEleIndex(eleSrc.parentElement);

iWrdIdx = parseInt(eleSrc.wrdIdx);

//将单词从词汇数组中删去

//showArray(m_astrWords[iIndex]);

astrWords = m_astrWords[iIndex].concat();

astrHead = astrWords.slice(0, iWrdIdx);

astrFoot = astrWords.slice(iWrdIdx 1);

m_astrWords[iIndex] = astrHead.concat(astrFoot);

//showArray(astrHead);

//showArray(astrFoot);

//showArray(m_astrWords[iIndex]);

//将剩余的单词重新写入到页面中

valueList(m_astrWords[iIndex], iIndex);

txtWord[iIndex].select();

}

//--＞

＜/script＞

＜/head＞

＜body＞

＜!--标题--＞

＜div align=CENTER＞

＜span style=font-size: 20pt; font-weight: BOLD＞词语搭配游戏＜/span＞

＜span class=fontEng2＞v1.0＜/span＞

＜/div＞

＜hr style=visibility: HIDDEN＞

＜!--主表格1--＞

＜table border=0 align=CENTER width=80%＞

＜colgroup＞＜/colgroup＞

＜colgroup＞＜/colgroup＞

＜colgroup＞＜/colgroup＞

＜colgroup＞＜/colgroup＞

＜colgroup＞＜/colgroup＞

＜colgroup＞＜/colgroup＞

＜colgroup align=CENTER＞＜/colgroup＞

＜colgroup＞＜/colgroup＞

＜%For m_iCount = 0 To (m_iPartCnt - 1)%＞

＜tr＞

＜td＞＜%= m_astrSenPart(m_iCount)%＞＜/td＞

＜td width=20%＞＜input type=text id=txtWord style=width: 100%＞＜/td＞

＜td＞＜button id=btnGetWord style=width: 75px title=将单词保存到内存中＞保存＜/button＞＜/td＞

＜td＞＜button id=btnReset style=width: 75px title=从内存中删去当前类别所有的单词＞重置＜/button＞＜/td＞

＜td＞＜button id=btnSave style=width: 75px title=将单词保存到文件中＞存入＜/button＞＜/td＞

＜td＞＜button id=btnLoad style=width: 75px title=从文件中载入单词＞载入＜/button＞＜/td＞

＜td width=15%＞＜label id=lblWordList title=单击固定我＞单词列表＜/label＞＜/td＞

＜td＞

＜div id=divWordList class=listHidden＞＜/div＞

个数：＜label id=lblWordCount class=fontEng1＞＜%= 0%＞＜/label＞

＜/TD ＞

＜/tr ＞

＜%Next%＞

＜/table＞

＜hr style=visibility: HIDDEN＞

＜hr style=color: BLUE＞

＜!--主表格2--＞

＜table border=0 align=CENTER width=80%＞

＜colgroup width=16%＞＜/colgroup＞

＜colgroup width=16%＞＜/colgroup＞

＜colgroup width=16%＞＜/colgroup＞

＜colgroup＞＜/colgroup＞

＜tr＞

＜td＞＜button id=btnResetAll accesskey=r title=从内存中删去所有类别的单词class=btnDelighted＞全部重置＜u＞R＜/u＞＜/button＞＜/td＞

＜td＞＜button id=btnSaveAll accesskey=s title=将所有类别的单词保存到文件中class=btnDelighted＞全部存入＜u＞S＜/u＞＜/button＞＜/td＞

＜td＞＜button id=btnLoadAll accesskey=l title=从文件中载入所有类别的单词class=btnDelighted＞全部载入＜u＞L＜/u＞＜/button＞＜/td＞

＜td＞

＜span style=font-size: 9pt; color: RED;＞请单击＜/span＞ ＜label id=lblHelp title=单击固定我＞游戏说明＜/label＞

＜!--帮助说明表格--＞

＜div id=divHelp class=helpHidden＞

＜table id=tblHelp border=0 align=CENTER width=300px style=font-size: 9pt;＞

＜colgroup width=75px＞＜/colgroup＞

＜colgroup＞＜/colgroup＞

＜tr＞＜td colspan=2＞

＜a href=#1 style=color: BLUE;＞游戏步骤＜/a＞

＜a href=#2 style=color: BLUE;＞操作说明＜/a＞

＜a href=#3 style=color: BLUE;＞游戏起源＜/a＞

＜a href=#4 style=color: BLUE;＞制作原因＜/a＞

＜a href=#5 style=color: BLUE;＞游戏功效＜/a＞

＜a name=0 style=display: NONE;＞TOP＜/a＞

＜/td＞＜/tr＞

＜!--游戏步骤--＞

＜tr＞＜td colspan=2＞＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

[＜a name=1 style=color: BLUE;＞游戏步骤＜/a＞]

＜a href=#0 class=link＞TOP＜/a＞

＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

＜span class=fontEng1＞＜1＞＜/span＞在每个部分的＜span class=fontEmp＞输入框＜/span＞中输入单词， 按＜span class=fontEmp＞回车＜/span＞或＜span class=fontEmp＞保存＜/span＞按钮存入内存中；

或按＜span class=fontEmp＞载入＜/span＞按钮调出以前保存的某类别单词纪录；

或按＜span class=fontEmp＞全部载入＜/span＞按钮调出以前保存的所有类别单词纪录＜br＞

＜span class=fontEng1＞＜2＞＜/span＞按＜span class=fontEmp＞开始搭配＜/span＞按钮，系统将从各类单词中随机抽取一个，组成一个句子

＜/td＞＜/tr＞

＜!--操作说明--＞

＜tr＞＜td colspan=2＞＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

[＜a name=2 style=color: BLUE;＞操作说明＜/a＞]

＜a href=#0 class=link＞TOP＜/a＞

＜/td＞＜/tr＞

＜tr＞

＜td＞保存＜/td＞

＜td＞得到用户输入的单词＜/td＞

＜/tr ＞

＜tr＞

＜td＞重置＜/td＞

＜td＞将当前类别所有的单词从内存中删去＜/td＞

＜/tr ＞

＜tr＞

＜td＞存入＜/td＞

＜td＞将所选类别的当前词汇保存进文件中＜/td＞

＜/tr ＞

＜tr＞

＜td＞载入＜/td＞

＜td＞从文件中读取所选类别的单词纪录＜/td＞

＜/tr ＞

＜tr＞

＜td＞全部重置＜/td＞

＜td＞重置页面至初始状态＜/td＞

＜/tr ＞

＜tr＞

＜td＞全部保存＜/td＞

＜td＞把所有类别的单词都存入文件＜/td＞

＜/tr ＞

＜tr＞

＜td＞全部载入＜/td＞

＜td＞从文件中载入所有类别的单词＜/td＞

＜/tr ＞

＜tr＞

＜td＞开始搭配＜/td＞

＜td＞进行词汇搭配，得到一个句子＜/td＞

＜/tr ＞

＜tr＞＜td＞＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

＜span class=fontEng1＞＜1＞＜/span＞

＜span class=fontEmp＞将鼠标移至单词列表处＜/span＞，会弹出该类词汇的单词列表；

＜span class=fontEmp＞将鼠标移开＜/span＞，列表会自动隐藏；

＜span class=fontEmp＞点击单词列表＜/span＞，会固定单词列表；

＜span class=fontEmp＞再次点击＜/span＞，会取消固定＜br＞

＜span class=fontEng1＞＜2＞＜/span＞

在＜span class=fontEmp＞固定住一个单词列表＜/span＞后，

＜span class=fontEmp＞双击＜/span＞该列表中的某个单词，可以将该单词从内存中删去＜br＞

＜span class=fontEng1＞＜3＞＜/span＞

输完一个单词后，＜span class=fontEmp＞直接按回车＜/span＞就可以保存了，这样比按保存保存单词更方便

＜/td＞＜/tr＞

＜!--游戏起源--＞

＜tr＞＜td colspan=2＞＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

[＜a name=3 style=color: BLUE;＞游戏起源＜/a＞]

＜a href=#0 class=link＞TOP＜/a＞

＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

这个游戏想法来自于小时候玩的纸团游戏。那时和姐姐在家里闲得无聊，就玩这个，哈哈。

玩法很简单，做一些纸片，分成四堆，分别写上＜span class=fontEmp＞亲朋好友的名字＜/span＞、＜span class=fontEmp＞形容程度的词语＜/span＞、＜span class=fontEmp＞关于地点的词语＜/span＞和＜span class=fontEmp＞所做的事情＜/span＞。

然后，将纸片捏成纸团，＜span class=fontEng1＞OK, Let's Start!＜/span＞ 现在从每堆中抽出一个纸团，就有四个词语，将它们组成一句话，因为是随便抽的，有时能组成很搞笑的句子。

如：陈楠兴奋地在大街上跳夏威夷草裙舞；万民悠闲地在公园里洗澡。^_

＜/td＞＜/tr＞

＜!--制作原因--＞

＜tr＞＜td colspan=2＞＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

[＜a name=4 style=color: BLUE;＞制作原因＜/a＞]

＜a href=#0 class=link＞TOP＜/a＞

＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

主要是无聊，想做个游戏娱乐一下自己，当然也希望大家能从中得到笑声。

Secondly, I also want to exercise my skills. I used to do one with <span class=fontEng1>VB</span>, but it was not very good. This time I used <span class=fontEng1>ASP</span>. I don’t know if there has been any progress. Хаха

这个版本我大概地测试了一下，没发现大的＜span class=fontEng1＞bug＜/span＞。如果您在游戏中发现了问题或有什么建议，请一定告诉我，在此先谢谢了！

我的信箱是＜a href=mailto: [email protected] class=link＞[email protected]＜/a＞。不好你就说吗！不可能你说好我又说不好，你不说好我又说好的，^_

＜/td＞＜/tr＞

＜!--游戏功效--＞

＜tr＞＜td colspan=2＞＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

[＜a name=5 style=color: BLUE;＞游戏功效＜/a＞]

＜a href=#0 class=link＞TOP＜/a＞

＜/td＞＜/tr＞

＜tr＞＜td colspan=2＞

因为是搞笑游戏，所以能使你心情愉快、青春焕发，间接增加找对象的成功率；

因为不用做纸团了，减少了浪费和污染，从而美化了世界环境；

I believe there are many benefits, please help me find it. Ха -ха.

＜/td＞＜/tr＞

＜/table＞

＜/div＞

＜/TD ＞

＜/tr ＞

＜tr＞

＜td＞＜button id=btnAsb accesskey=a title=从每个类别词汇中随机抽取一个单词，组成一个句子class=btnDelighted＞开始搭配＜u＞A＜/u＞＜/button＞＜/td＞

＜td colspan=3＞＜input type=text id=txtSentence style=width: 100%＞＜/td＞

＜/tr ＞

＜/table＞

＜hr style=color: BLUE＞

＜!--提交表单--＞

＜form id=frmWords method=POST action= style=display: NONE;＞

＜%For m_iCount = 0 To (m_iPartCnt - 1)%＞

＜input type=text name=txtWords＜%= m_iCount%＞＞

＜%Next%＞

＜input type=text name=txtSenPart＞

＜input type=text name=txtOpWay＞

＜/форма ＞

＜!--版权--＞

＜div align=CENTER＞

＜div＞

© ＜span class=fontEng2＞2001 China Sentin Sci. & Tech. Co., Ltd.＜/span＞

＜span class=fontEng2＞All Rights Reserved.＜/span＞

＜/div＞

＜div＞

＜span class=fontEng2＞Authored by＜/span＞ ＜a href=mailto: [email protected] class=link＞Recon＜/a＞＜/span＞

＜a href=http://recon.top263.net/ class=link＞http://recon.top263.net/＜/a＞

＜/div＞

＜/div＞

＜/body＞

＜/html ＞

＜%

'以下是服务器端脚本

'用到的函数和过程

'************************

'函数名：SaveFile

'功能：将某类词汇保存到文件中

'Input: 1. iSenPart: a number representing the vocabulary classification. Целое число

' 可能的值有：

' 0：主语

' 1：程度状语

' 2：地点状语

' 3：谓语

'Output: The status value after the file operation. Целое число

' 可能的值有：

' 0：操作成功

' 1：操作失败

'************************

Function SaveFile(iSenPart)

Dim fsoMain, tsfWords

Dim iCount, iWrdCnt

Dim iOpStatus

'------------------------------------------

'常变量说明

'fsoMain ：FSO对象

'tsfWords ：TEXTSTREAM对象

'iCount : Counter. Целое число

'iWrdCnt: The number of words of a certain type of vocabulary. Целое число

'iOpStatus: The status after the file operation is completed. Целое число

'------------------------------------------

Set fsoMain = Server.CreateObject(SCRIPTING.FILESYSTEMOBJECT)

Set tsfWords= fsoMain.CreateTextFile(m_strFilePath & m_astrFileName(iSenPart), True)

tsfWords.WriteLine([ & m_astrSenPart(iSenPart) & 部分])

'如果该类别至少有一个单词

If IsEmpty(m_astrWords(iSenPart)) = False Then

iWrdCnt = UBound(m_astrWords(iSenPart)) 1

For iCount = 0 To (iWrdCnt - 1)

tsfWords.WriteLine(m_astrWords(iSenPart)(iCount))

Следующий

Конец, если

tsfWords.Close

iOpStatus = 0

SaveFile = iOpStatus

Конечная функция

'************************

'函数名：LoadFile

'功能：从文件中载入某类词汇

'Input: 1. iSenPart: a number representing the vocabulary classification. Целое число

' 可能的值有：

' 0：主语

' 1：程度状语

' 2：地点状语

' 3：谓语

'Output: The status value after the file operation. Целое число

' 可能的值有：

' 0：操作成功

' 1：操作失败

'************************

Function LoadFile(iSenPart)

Dim fsoMain, tsfWords

Dim strLoaded

Dim iOpStatus

'------------------------------------------

'常变量说明

'fsoMain ：FSO对象

'tsfWords ：TEXTSTREAM对象

'strLoaded ：某类词汇所有单词构成的字符串。字符串型

'iOpStatus: The status after the file operation is completed. Целое число

'------------------------------------------

Set fsoMain = Server.CreateObject(SCRIPTING.FILESYSTEMOBJECT)

If fsoMain.FileExists(m_strFilePath & m_astrFileName(iSenPart)) = True Then

'如果存在纪录文件

strLoaded =

Set tsfWords= fsoMain.OpenTextFile(m_strFilePath & m_astrFileName(iSenPart), 1)

tsfWords.SkipLine

Do While tsfWords.AtEndOfStream = False

strLoaded = strLoaded & tsfWords.ReadLine & ,

Петля

If strLoaded ＜＞ Then

strLoaded = Left(strLoaded, Len(strLoaded) - 1)

m_astrWords(iSenPart) = Split(strLoaded, ,)

Еще

m_astrWords(iSenPart) = Empty

Конец, если

tsfWords.Close

iOpStatus = 0

Еще

'如果不存在纪录文件

iOpStatus = 1

Конец, если

LoadFile = iOpStatus

Конечная функция

%＞

＜%

'以下是服务器端脚本

'用于测试的函数和过程

Sub Show(strDef)

Response.Write strDef & : & Eval(strDef) & ＜br＞

Конец суб

Sub ShowMethod()

Response.Write Request Method: & Request.ServerVariables(REQUEST_METHOD) & ＜br＞

Конец суб

Sub ShowForm()

Dim Icount

Dim strProp

iCount = 0

Response.Write *********Form Information******＜br＞

For Each strProp In Request.Form

iCount = iCount 1

Response.Write iCount & . & strProp & : & Request.Form(strProp) & ＜br＞

Следующий

Response.Write *********Form End**************＜br＞

Конец суб

%＞