Contoh ASP: Produksi Game Kombinasi Kata

＜%@ bahasa = vbscript%＞

＜%

Opsi eksplisit

'Terakhir Diperbarui oleh Recon pada 03/16/2001

Redup m_ipartcnt

Redup m_strprompt

Dim m_astrsenpart (), m_astrfileName ()

Redup m_astrwords (), m_aiopstatus ()

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

'Deskripsi variabel konstan

'm_ipartcnt: Jumlah kategori kosa kata. Bilangan bulat

'M_STRPROMPT: Prompt setelah operasi file selesai. Tipe string

'm_astrsenpart: Nama klasifikasi kosa kata. Array karakter

'm_astrfileName: merekam nama file dari berbagai file kosa kata. Array karakter

'm_astrwords: Rekam semua jenis kosa kata. Array karakter dua dimensi

'm_aiopstatus: mencatat status setelah beroperasi pada setiap file. Array Integer

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

'Showmethod

m_ipartcnt = 4

m_strpromppt =

Redim m_astrsenpart (m_ipartcnt)

Redim m_astrfilename (m_ipartcnt)

Redim m_astrwords (m_ipartcnt)

Redim m_aiopstatus (m_ipartcnt)

'Tentukan nama berbagai kategori kosa kata

m_astrsenpart (0) = subjek

m_astrsenpart (1) = gelar kata keterangan

m_astrsenpart (2) = tempat adverbial

m_astrsenpart (3) = predikat

'Tentukan nama berbagai dokumen kosa kata

m_astrfileName (0) = who.txt

m_astrfileName (1) = how.txt

m_astrfileName (2) = where.txt

m_astrfileName (3) = what.txt

Jika request.serverVariable (request_method) = posting lalu

'Jika metode permintaan halaman adalah posting

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

'Dapatkan informasi klien

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

Redup m_isenpart

Redup m_stropway

Redup m_brpteddata

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

'Deskripsi variabel konstan

'm_isenpart: Angka yang mewakili klasifikasi kosa kata. Bilangan bulat

'Klasifikasi kosa kata berasal dari array m_astrsenpart

'Nilai yang mungkin adalah:

'0: Subjek

'1: Gelar Adverbial

'2: Tempat Adverbial

'3: Predikat

'm_stropway: metode operasi file. Tipe string

'Nilai yang mungkin adalah:

'1. Simpan: Simpan jenis kosa kata tertentu ke dalam file

'2. Saveall: Simpan semua kategori kosa kata ke dalam file

'3. Muat: Muat jenis kosa kata tertentu dari file

'4. LoadAll: Muat semua kategori kosa kata dari file

'm_brpteddata: menunjukkan apakah data formulir yang dikirimkan kali ini sama dengan yang terakhir kali. Tipe boolean

'Nilai yang mungkin adalah:

'1. Salah: Data formulir tidak digandakan

'2. Benar: Data formulir diulang (mis. Formulir diserahkan berulang kali)

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

'Showform

'Cara Mendapatkan Permintaan Pengguna

m_stropway = request.form (txtopway)

'Tampilkan (m_stropway)

'Dapatkan kata -kata dalam berbagai kategori

Untuk m_icount = 0 hingga (m_ipartcnt - 1)

Jika request.form (txtwords & m_icount) ＜＞ lalu

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

Akhiri jika

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

Berikutnya

'Deteksi pengajuan formulir berulang

'Jika sesi (forminf) = request.form lalu

'' Formulir ini adalah pengajuan yang diulangi

'm_brptedData = true

'Kalau tidak

'' Formulirnya adalah pengiriman yang tidak diulang

'Sesi (forminf) = request.form

'm_brptedData = false

'Akhiri jika

'Tampilkan (m_brpteddata)

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

'Operasi file kata

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

'Jika m_brptedData = false maka

Redup m_icount, m_ierrcnt

Redup m_strfilepath

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

'Deskripsi variabel konstan

'm_icount: counter. Bilangan bulat

'm_ierrcnt: berapa kali operasi gagal. Bilangan bulat

'm_strfilePath: Rekam jalur berbagai file kosa kata. Tipe string

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

'Dapatkan jalur untuk menempatkan file kosa kata

m_strfilePath = request.serverVariable (path_translated)

m_strfilePath = kiri (m_strfilePath, instrrev (m_strfilePath, /))

'm_strfilePath = m_strfilePath & Words/

'Tampilkan (m_strfilepath)

'Mulai operasi file

'Response.write mulai mengoperasikan file kata <br>

Pilih case m_stropway

Simpan Kasus

'Simpan kata untuk mengajukan

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

m_aiopstatus (m_isenpart) = saveFile (m_isenpart)

'Menurut status operasi, dapatkan informasi prompt

Pilih case m_aiopstatus (m_isenpart)

Kasus 0

m_strpromppt = [& m_astrsenpart (m_isenpart) &] Beberapa kata telah berhasil disimpan ke file tersebut

Kasus 1

m_strpromppt = [& m_astrsenpart (m_isenpart) &] menyimpan beberapa file gagal

Akhiri Pilih

Case Saveall

'Simpan semua kategori kata ke dalam file

m_ierrcnt = 0

Untuk m_icount = 0 hingga (m_ipartcnt - 1)

m_aiopstatus (m_icount) = saveFile (m_icount)

Jika m_aiopstatus (m_icount) = 1 lalu

m_ierrcnt = m_ierrcnt 1

Akhiri jika

Berikutnya

'Menurut status operasi, dapatkan informasi prompt

Pilih case m_ierrcnt

Kasus 0

m_strpromppt = semua kategori kata telah berhasil disimpan ke file

Case m_ipartcnt

m_strpromppt = file kata di semua kategori gagal menyimpan

Kasus lain

m_strpromppt = di mana,

Untuk m_icount = 0 hingga (m_ipartcnt - 1)

Jika m_aiopstatus (m_icount) = 1 lalu

m_strpromppt = m_strpromppt & [& m_astrsenpart (m_icount) &],

Akhiri jika

Berikutnya

m_strprompt = kiri (m_strpromppt, len (m_strpromppt) - 1)

m_strpromppt = m_strpromppt & beberapa file gagal menyimpan

Akhiri Pilih

Beban kasus

'Muat kata -kata dari file

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

m_aiopstatus (m_isenpart) = loadFile (m_isenpart)

'Menurut status operasi, dapatkan informasi prompt

Pilih case m_aiopstatus (m_isenpart)

Kasus 0

m_strpromppt = [& m_astrsenpart (m_isenpart) &] Beberapa kata telah berhasil dimuat

Kasus 1

m_strpromppt = [& m_astrsenpart (m_isenpart) &] Beberapa file tidak ada dan memuat gagal

Akhiri Pilih

Case loadAll

'Muat kata dari setiap file

m_ierrcnt = 0

Untuk m_icount = 0 hingga (m_ipartcnt - 1)

m_aiopstatus (m_icount) = loadfile (m_icount)

Jika m_aiopstatus (m_icount) = 1 lalu

m_ierrcnt = m_ierrcnt 1

Akhiri jika

Berikutnya

'Menurut status operasi, dapatkan informasi prompt

Pilih case m_ierrcnt

Kasus 0

m_strpromppt = semua kategori kata telah berhasil dimuat

Case m_ipartcnt

m_strpromppt = file kata di semua kategori tidak ada, memuat sepenuhnya gagal

Kasus lain

m_strpromppt = di mana,

Untuk m_icount = 0 hingga (m_ipartcnt - 1)

Jika m_aiopstatus (m_icount) = 1 lalu

m_strpromppt = m_strpromppt & [& m_astrsenpart (m_icount) &],

Akhiri jika

Berikutnya

m_strprompt = kiri (m_strpromppt, len (m_strpromppt) - 1)

m_strpromppt = m_strpromppt & beberapa file tidak ada, beberapa pemuatan gagal

Akhiri Pilih

Akhiri Pilih

'Akhiri jika

Akhiri jika

'Response.write Akhir untuk mengoperasikan file kata <br>

'Response.write mulai menulis halaman klien <br>

%＞

＜ html ＞

＜ kepala ＞

＜ Judul ＞ Game Pencocokan Kata ＜/Judul ＞

＜ Meta name = Content generator = Editplus ＞

＜ Meta name = konten penulis =>

＜ Meta name = Kata kunci konten =>

＜ Meta name = Deskripsi konten =>

＜!-Meja gaya->

＜ Gaya>

＜!-

/*Font bahasa Inggris 1*/

.fonteng1

{

Font-Family: Times New Roman;

Font-style :;

}

/*Font bahasa Inggris 2*/

.fonteng2

{

Font-Family: Times New Roman;

Font-style: Italic;

}

/*Patuhi font*/

.fontemp

{

Warna: Merah;

}

/*Link*/

.link

{

Font-Family: Times New Roman;

Font-style: Italic;

Dekorasi Teks: Tidak Ada;

}

/* Daftar kata -kata yang ditampilkan*/

.listshown

{

Posisi: Absolute;

Lebar: 140px;

Tinggi: 200px;

Tampilan: inline;

Perbatasan: Lightcoral 1px padat;

Latar Belakang-Color: Gainsboro;

}

/*Daftar Kata Tersembunyi*/

.listi

{

Posisi: Absolute;

Lebar: 140px;

Tinggi: 200px;

Tampilan: Tidak Ada;

Perbatasan: Lightcoral 1px padat;

Latar Belakang-Color: Gainsboro;

}

/*Memperbaiki daftar kata*/

.listfixed

{

Posisi: Absolute;

Lebar: 140px;

Tinggi: 200px;

Tampilan: inline;

Perbatasan: Red 1px padat;

Latar Belakang-Color: Gainsboro;

}

/*Menunjukkan daftar bantuan*/

.helpshown

{

Posisi: Absolute;

lebar: ;

tinggi: ;

Tampilan: Blok;

Perbatasan: Lightcoral 1px padat;

Latar Belakang-Color: Gainsboro;

}

/*Daftar Bantuan Tersembunyi*/

.helphidden

{

Posisi: Absolute;

lebar: ;

tinggi: ;

Tampilan: Tidak Ada;

Perbatasan: Lightcoral 1px padat;

Latar Belakang-Color: Gainsboro;

}

/*Daftar bantuan yang disematkan*/

.helpfixed

{

Posisi: Absolute;

lebar: ;

tinggi: ;

Tampilan: Blok;

Perbatasan: Red 1px padat;

Latar Belakang-Color: Gainsboro;

}

/*Tag disorot*/

.lblmover

{

Dekorasi Teks: Tidak Ada;

Warna: Lightcoral;

Latar Belakang-Color :;

}

/*Tag tampilan normal*/

.lblmout

{

Dekorasi Teks: Tidak Ada;

warna: ;

Latar Belakang-Color :;

}

/*Tag yang diklik*/

.lblClicked

{

Dekorasi Teks: Garis Besar;

Warna: Merah;

Latar Belakang-Color :;

}

/* Tombol disorot*/

.btnlighted

{

Lebar: 105px;

Warna: Biru;

Latar Belakang-Color :;

}

/*Tombol tampilan biasa*/

.btndelighted

{

Lebar: 105px;

warna: ;

Latar Belakang-Color :;

}

/* Item daftar kata yang disorot*/

.optlighted

{

Dekorasi Teks: Garis Besar;

Warna: Biru;

Latar Belakang-Color :;

Kursor: Tangan;

}

/*Item daftar kata yang ditampilkan normal*/

.optdelighted

{

Dekorasi Teks: Tidak Ada;

warna: ;

Latar Belakang-Color :;

Kursor :;

}

->

＜/gaya>

＜!-Script Klien->

＜ Bahasa skrip = JavaScript>

＜!-

// Fungsi Publik dan Uji Klien

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

// Nama fungsi: ltrim

// Fungsi: Lepaskan ruang di sisi kiri string

// Input: 1. Strtemp: String menjadi teratur. Tipe string

// Output: String biasa. Tipe string

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

fungsi ltrim (strtemp)

{

var icount, ilength;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

// ilength: Panjang string. Bilangan bulat

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

ilength = strtemp.length;

untuk (icount = 0; icount ＜ ilength; icount)

if (strtemp.charat (icount)! =)

return strtemp.substring (icount, ilength);

kembali ;

}

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

// Nama fungsi: rtrim

// Fungsi: Lepaskan ruang di sisi kanan string

// Input: 1. Strtemp: String menjadi teratur. Tipe string

// Output: String biasa. Tipe string

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

fungsi rtrim (strtemp)

{

var icount, ilength;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

// ilength: Panjang string. Bilangan bulat

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

ilength = strtemp.length;

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

if (strtemp.charat (icount)! =)

return strtemp.substring (0, icount 1);

kembali ;

}

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

// Nama Fungsi: Trim

// Fungsi: Lepaskan spasi di kedua sisi string

// Input: 1. Strtemp: String menjadi teratur. Tipe string

// Output: String biasa. Tipe string

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

function trim (strtemp)

{

return rtrim (ltrim (strtemp));

}

// Konversi angka 2 digit menjadi string 2 digit

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

// Nama fungsi: get2bnumstr

// Fungsi: Konversi angka 2-bit menjadi string angka 2-bit

// Input: 1. Inumber: Nomor yang akan dikonversi. Bilangan bulat

// Output: String numerik yang dikonversi. Bilangan bulat

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

fungsi get2bnumstr (inumber)

{

var str2bnum;

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

// Deskripsi Variabel Konstan

// str2bnum: string numerik. Tipe string

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

if (parseInt (Inumber) ＜ 10)

str2bnum = 0 Inumber;

kalau tidak

str2bnum = Inumber;

mengembalikan str2bnum;

}

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

// FUNC FUNGSI NAME: Assignfunc

// Fungsi: Tentukan fungsi penanganan acara elemen

// Input: 1. ELE: Elemen fungsi penanganan acara yang akan ditentukan. Tipe objek

// 2. Func: Fungsi Penanganan Acara. Fungsional

// 3. Acara: Jenis acara. Tipe string

// Output: Tidak ada

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

fungsi penetapan (ele, func, acara)

{

var icount, ielecount;

var strevent;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

// ielecount: Jumlah elemen dalam kumpulan elemen dengan nama yang sama. Bilangan bulat

// Strevent: Jenis acara. Tipe string

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

if (event == null)

Strevent = OnClick;

kalau tidak

strevent = event;

ielecount = ele.length;

if (ielecount == tidak ditentukan)

eval (ele. strevent = func);

kalau tidak

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

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

}

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

// Nama Fungsi: GETELEINDEX

// Fungsi: Dapatkan indeks elemen di mana peristiwa terjadi dalam koleksi nama yang sama

// Input: 1. ELESRC: Elemen tempat peristiwa terjadi. Tipe objek

// Output: Indeks elemen tempat peristiwa terjadi dalam koleksi nama yang sama

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

Function GeteleIndex (ELESRC)

{

var colsrc;

var icount, ielecount;

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

// Deskripsi Variabel Konstan

// colsrc: Koleksi elemen dengan nama yang sama. Array tipe objek

// icount: Counter. Bilangan bulat

// ielecount: Jumlah elemen dalam kumpulan elemen dengan nama yang sama. Bilangan bulat

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

colsrc = eval (elesrc.id);

ielecount = colsrc.length;

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

{

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

mengembalikan icount;

}

kembali -1;

}

// Tunjukkan nilai variabel konstan (untuk debugging)

//! Bersiaplah untuk menghapus

Function Show (Strdef1, Strdef2, Strdef3, Strdef4)

{

var icount, idefcnt;

var strshow, strtemp;

idefcnt = 4;

strshow = [nilai variabel konstan];

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

{

strtemp = eval (strdef icount);

if (strtemp! = tidak terdefinisi && strtemp! = null)

strshow = /n strtemp: eval (strtemp);

}

waspada (strshow);

}

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

// Nama Fungsi: Showarray

// Fungsi: Tampilan elemen array satu dimensi (untuk debugging)

// Input: 1. Array: Array satu dimensi yang akan ditampilkan. Array

// Output: Tidak ada

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

fungsi showarray (array)

{

var icount, ielecount;

var strshow;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

// ielecount: Jumlah elemen array. Bilangan bulat

// Strshow: String yang terdiri dari nilai elemen array. Tipe string

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

ielecount = array.length;

strshow = panjang array: ielecount;

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

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

{

if (typeof (array [icount]) == objek)

strshow = array [icount] .id;

kalau tidak

strshow = array [icount];

}

waspada (strshow);

}

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

// Nama Fungsi: Show2Darray

// Fungsi: Elemen tampilan array dua dimensi (untuk debugging)

// Input: 1. Array: Array dua dimensi yang akan ditampilkan. Array

// Output: Tidak ada

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

Function Show2Darray (Array)

{

var ix, iy, ilen1, ilen2;

var strshow;

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

// Deskripsi Variabel Konstan

// IX: Counter. Bilangan bulat

// IY: Counter. Bilangan bulat

// ilen1: Jumlah array satu dimensi. Bilangan bulat

// ILEN2: Jumlah array dua dimensi. Bilangan bulat

// Strshow: String yang terdiri dari nilai elemen array. Tipe string

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

ilen1 = array.length;

strshow = array 1d panjang: ilen1;

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

untuk (ix = 0; ix ＜ ilen1; ix)

{

strshow = /n;

ilen2 = array [ix] .length;

untuk (iy = 0; iy ＜ ilen2; iy)

strshow = array [ix] [iy];

}

waspada (strshow);

}

//->

＜/skrip>

＜ Bahasa skrip = JavaScript>

＜!-

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

// window_onload

//

// Getword

//mengatur ulang

//menyimpan

//memuat

//

// Daftar SHOWN

// Hidelist

// fixlist

// valuelist

//

// Showhelp

// HideHelp

// fixhelp

//

// Resetall

// Saveall

// loadall

//berkumpul

//

// lightbtn

// DelightBtn

// LightOpt

// Delightopt

//

// makeopt

// lepas

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

var m_ipartcnt;

var m_astrsenpart, m_astrwords;

var m_strprompt;

var m_ilistfixed, m_ihelpfixed;

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

// Deskripsi Variabel Konstan

// m_ipartcnt: Jumlah kategori kosa kata. Bilangan bulat

// m_astrsenpart: Nama klasifikasi kosa kata. Array karakter

// m_astrwords: Rekam berbagai kosa kata. Array karakter dua dimensi

// M_STRPROMPT: Pesan cepat setelah operasi file selesai. Tipe string

// m_ilistfixed: Nomor yang mewakili daftar kata tetap. Bilangan bulat

// -1 berarti tidak ada daftar kata yang diperbaiki

// m_ihelpfixed: nomor yang mewakili keadaan tetap dari daftar bantuan. Bilangan bulat

// -1 berarti daftar bantuan tidak diperbaiki

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

window.onload = window_onload;

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

// Inisialisasi halaman

function window_onload ()

{

var icount, ielecnt;

var Colbutton;

var strhelp;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

// ielecnt: Jumlah elemen dalam koleksi. Bilangan bulat

// Colbutton: Koleksi elemen tombol. Array tipe objek

// Strhelp: Bantuan konten file. Tipe string

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

m_ipartcnt = ＜%= m_ipartcnt%>;

m_strpromppt = ＜%= m_strpromppt%>;

m_ilistfixed = -1;

m_ihelpfixed = -1;

m_astrsenpart = array baru ();

m_astrwords = array baru ();

// alert (m_ipartcnt: m_ipartcnt /nm_strpromppt: m_strpromppt);

// Dapatkan nama klasifikasi kosa kata dan berbagai kosakata yang telah dimuat

＜%untuk m_icount = 0 hingga (m_ipartcnt - 1)%>

// Dapatkan semua jenis kosa kata dimuat

＜%Jika isEmpty (m_astrwords (m_icount)) = true maka%>

m_astrwords [＜%= m_icount%>] = array baru ();

＜%lain%>

m_astrwords [＜%= m_icount%>] = ＜%= gabungkan (m_astrwords (m_icount) ,,)%>. split (,);

＜%berakhir jika%>

// Dapatkan nama klasifikasi kosa kata

m_astrsenpart [＜%= m_icount%>] = ＜%= m_astrsenpart (m_icount)%>;

＜%NEXT%>

// show2darray (m_astrwords);

// showarray (m_astrsenpart);

// Tulis semua jenis kosa kata yang dimuat ke halaman

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

valuelist (m_astrwords [icount], icount);

// Muat file bantuan

// strhelp = tblhelp.outerHtml;

// strhelp = divHelp1.innerhtml;

//tblhelp.outerHtml =;

//divhelp.innerhtml = strhelp;

//tblhelp.style.display =;

//divhelp.style.display = tidak ada;

//divhelp.style.left = divHelp1.style.left;

// waspada (kiri: divhelp.style.left /nleft: divhelp1.style.left);

// peringatan (pixelleft: divhelp.style.pixelleft /npixelleft: divhelp1.style.pixelleft);

// Peringatan (Posleft: Divhelp.Style.Posleft /nposleft: divhelp1.style.posleft);

// alert (offsetleft: DivHelp.Offsetleft /noffsetleft: divHelp1.offsetleft);

// peringatan (clientleft: divhelp.clientleft /nclientleft: divHelp1.clientleft);

// Tentukan fungsi penanganan acara dari elemen halaman

fecugeFunc (txtword, getword, onKeypress);

fecugeFunc (btngetWord, getWord);

assignfunc (btnreset, reset);

assignfunc (btnsave, save);

assignfunc (btnload, muat);

assignfunc (lblwordlist, showlist, onmouseover);

fecadfunc (lblwordlist, hidelist, onmouseout);

fecugeFunc (lblwordlist, fixlist);

assignfunc (lblhelp, showhelp, onmouseover);

assignfunc (lblhelp, hideHelp, onmouseout);

assignfunc (lblhelp, fixhelp);

assignfunc (btnresetall, resetall);

assignfunc (btnsaveall, saveall);

berikan (btnloadAll, loadAll);

assignfunc (btnasb, rakitan);

colbutton = document.all.tags (tombol);

ielecnt = colbutton.length;

// showarray (colbutton);

// alert (ielecnt: ielecnt);

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

{

assignfunc (colbutton [icount], lightbtn, onmouseover);

assignfunc (colbutton [icount], delightbtn, onmouseout);

}

// Atur status awal halaman

if (m_strpromppt! =)

alert (m_strprompt);

txtword [0] .focus ();

}

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

// Dapatkan kata yang dimasukkan oleh pengguna

fungsi getword ()

{

// Hanya saat tekan enter atau di kotak input kata

// Terus lakukan saat menekan tombol simpan

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

kembali;

kalau tidak

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

var elesrc;

var iindex, inxtwrdidx;

var strword;

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

// Deskripsi Variabel Konstan

// elesrc: elemen tempat peristiwa terjadi

// IIndex: Nomor yang mewakili klasifikasi kosa kata. Bilangan bulat

// inxtwrdidx: indeks kata baru dalam array kata. Bilangan bulat

// strword: Kata yang dimasukkan oleh pengguna. Tipe string

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

elesrc = window.event.srcelement;

iIndex = geteleIndex (elesrc); // Dapatkan indeks

strword = trim (txtword [iindex] .value); // Dapatkan kata yang dimasukkan oleh pengguna

// Mendeteksi apakah kata yang dimasukkan legal

// Jika itu kata ilegal, keluar

if (strword ==)

{

// Jika kata yang dimasukkan kosong atau string ruang

waspada (kata -kata tidak bisa kosong atau string spasi);

txtword [iindex] .select ();

kembali;

}

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

{

// Jika kata yang dimasukkan berisi koma atau spasi

waspada (kata -kata tidak dapat berisi koma atau spasi);

txtword [iindex] .select ();

kembali;

}

// Simpan kata ke dalam array kosa kata

inxtwrdidx = m_astrwords [iIndex] .length;

m_astrwords [iIndex] [inxtwrdidx] = strword;

// showarray (m_astrwords [iindex]);

// Tulis kata ke halaman

valuelist (m_astrwords [iindex], iindex);

txtword [iindex] .value =;

txtword [iindex] .focus ();

}

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

// Hapus semua kata dalam kategori saat ini dari memori

fungsi reset ()

{

var elesrc;

var Iindex, icount;

var strprompt;

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

// Deskripsi Variabel Konstan

// elesrc: elemen tempat peristiwa terjadi

// IIndex: Nomor yang mewakili klasifikasi kosa kata. Bilangan bulat

// icount: Counter. Bilangan bulat

// StrPrompt: Prompt Operasi. Tipe string

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

elesrc = window.event.srcelement;

iIndex = geteleIndex (elesrc);

strPrompt = apakah Anda yakin ingin menghapus semua kata di bagian [m_astrsenpart [iindex]] dari memori? ;

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

m_astrwords [iIndex] = array baru ();

valuelist (m_astrwords [iindex], iindex);

// showarray (m_astrwords [iindex]);

strPrompt = kata dibersihkan;

waspada (strprompt);

txtword [iindex] .select ();

}

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

// Simpan kosa kata saat ini dari kategori yang dipilih ke dalam file

fungsi save ()

{

var elesrc;

var Iindex, icount;

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

// Deskripsi Variabel Konstan

// elesrc: elemen tempat peristiwa terjadi

// IIndex: Nomor yang mewakili klasifikasi kosa kata. Bilangan bulat

// icount: Counter. Bilangan bulat

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

elesrc = window.event.srcelement;

iIndex = geteleIndex (elesrc);

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

{

// Jika jumlah kata saat ini dalam kategori yang dipilih adalah nol

var strprompt;

strPrompt = [m_astrsenpart [iindex]] sekarang tidak memiliki kata opsional, apakah Anda yakin ingin menyimpannya? ;

strPrompt = /n (ini akan menghasilkan file baru yang kosong);

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

}

// Simpan semua kata dalam memori saat ini

untuk (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 ();

}

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

// Baca catatan kata kategori yang dipilih dari file

function load ()

{

var elesrc;

var Iindex, icount;

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

// Deskripsi Variabel Konstan

// elesrc: elemen tempat peristiwa terjadi

// IIndex: Nomor yang mewakili klasifikasi kosa kata. Bilangan bulat

// icount: Counter. Bilangan bulat

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

elesrc = window.event.srcelement;

iIndex = geteleIndex (elesrc);

// Simpan semua kata dalam memori saat ini

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

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

frmwords.txtsenpart.value = iindex;

frmwords.txtopway.value = muat;

frmwords.submit ();

}

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

// Tunjukkan daftar kosa kata

Function ShowList (IIndex)

{

// Jika parameter, iindex tidak diberikan

// Dapatkan iindex

if (iindex == tidak ditentukan)

{

// Jika daftar kata sudah diperbaiki, keluar dari fungsi

if (m_ilistfixed! = -1) kembali;

var elesrc;

var iindex;

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

// Deskripsi Variabel Konstan

// elesrc: elemen tempat peristiwa terjadi

// IIndex: Nomor yang mewakili klasifikasi kosa kata. Bilangan bulat

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

elesrc = window.event.srcelement;

iIndex = geteleIndex (elesrc);

}

// peringatan (iindex: iindex);

// Tunjukkan daftar kosa kata

//lblwordlist AITIIndexace.innerText = [lblwordlist [iIndex] .innerText];

//lblwordlist ASiIndexace.innerText = lblwordlist [iIndex] .innerText ＞;

lblwordlist [iindex] .className = lblMover;

divwordlist [iindex] .className = listShown;

}

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

// Sembunyikan daftar kosa kata

Fungsi Hidelist (IIndex)

{

// Jika parameter, iindex tidak diberikan

// Dapatkan iindex

if (iindex == tidak ditentukan)

{

// Jika daftar kata sudah diperbaiki, keluar dari fungsi

if (m_ilistfixed! = -1) kembali;

var elesrc;

var iindex;

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

// Deskripsi Variabel Konstan

// elesrc: elemen tempat peristiwa terjadi

// IIndex: Nomor yang mewakili klasifikasi kosa kata. Bilangan bulat

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

elesrc = window.event.srcelement;

iIndex = geteleIndex (elesrc);

}

// peringatan (iindex: iindex);

// Sembunyikan daftar kosa kata

//lblwordlist ASIIndexace.innerText = lblwordlist [iIndex] .innerText.slice (0, -1);

lblwordlist [iindex] .className = lblmout;

divwordlist [iindex] .className = listhidden;

}

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

// Memperbaiki daftar kosa kata

Function fixList ()

{

var elesrc;

var iindex;

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

// Deskripsi Variabel Konstan

// elesrc: elemen tempat peristiwa terjadi

// IIndex: Nomor yang mewakili klasifikasi kosa kata. Bilangan bulat

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

elesrc = window.event.srcelement;

iIndex = geteleIndex (elesrc);

sakelar (m_ilistfixed)

{

Kasus -1:

// Jika belum ada daftar kata

// Perbaiki daftar saat ini

m_ilistfixed = iindex;

lblwordlist [iindex] .className = lblClicked;

divwordlist [iindex] .className = listFixed;

merusak;

case iindex:

// Jika daftar kata tetap adalah daftar saat ini

// selesaikan daftar saat ini

m_ilistfixed = -1;

lblwordlist [iindex] .className = lblMover;

divwordlist [iindex] .className = listShown;

merusak;

bawaan:

// Jika daftar kata tetap bukan daftar saat ini

// Daftar perbaikan tetap

hidelist (m_ilistfixed);

m_ilistfixed = -1;

lblwordlist [iindex] .className = lblMover;

SHOWLIST (IIndex);

merusak;

}

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

}

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

// Tulis kata -kata yang dimuat dalam jenis kosakata tertentu

fungsi valuelist (Awords, isenpart)

{

var icount, iwrdcnt;

var strlistppt;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

// Iwrdcnt: Jumlah kata dari jenis kosa kata tertentu. Bilangan bulat

// strlistppt: prompt in word list. Tipe string

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

// Persiapan Data

iwrdcnt = awords.length;

lblwordcount [isenpart] .innertext = iwrdcnt;

strlistppt = ＜ div ＞＜ span style = 'color: red; Font-style: Italic; ukuran font: 10.5pt; '>;

strlistppt = klik dua kali kata untuk menghapusnya </span> </div>;

// Tulis kata -kata untuk daftar

if (iwrdcnt! = 0)

{

divwordlist [isenpart] .innerhtml = strlistppt;

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

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

}

kalau tidak

divwordlist [isenpart] .innerhtml = strlistppt;

}

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

// Tunjukkan daftar bantuan

fungsi showhelp ()

{

// Jika daftar bantuan telah diperbaiki, keluar dari fungsi

if (m_ihelpfixed == 0) kembali;

// Tunjukkan Bantuan

lblhelp.classname = lblmover;

Divhelp.className = Helpshown;

}

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

// Sembunyikan daftar bantuan

fungsi hideHelp ()

{

// Jika daftar bantuan telah diperbaiki, keluar dari fungsi

if (m_ihelpfixed == 0) kembali;

// Sembunyikan bantuan

lblhelp.classname = lblmout;

divhelp.classname = helphidden;

}

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

// Memperbaiki daftar bantuan

Fungsi fixhelp ()

{

if (m_ihelpfixed == -1)

{

// Jika daftar bantuan belum diperbaiki

// perbaiki

m_ihelpfixed = 0;

lblhelp.classname = lblClicked;

divhelp.classname = helpfixed;

}

kalau tidak

{

// Jika daftar bantuan telah diperbaiki

// menyelesaikannya

m_ihelpfixed = -1;

lblhelp.classname = lblmover;

Divhelp.className = Helpshown;

}

}

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

// Setel ulang halaman ke keadaan awal

fungsi resetall ()

{

var icount;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

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

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

{

txtword [icount] .value =;

m_astrwords [icount] = array baru (); // Kosongkan kata array

valuelist (m_astrwords [icount], icount);

}

txtsentence.value =;

txtword [0] .focus ();

}

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

// Simpan semua kategori kata ke dalam file

function saveall ()

{

var icount, iemptycnt;

var strprompt;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

// iemptycnt: Jumlah kategori dengan 0 kata. Bilangan bulat

// StrPrompt: Prompt Operasi. Tipe string

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

iemptycnt = 0;

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

{

// Simpan semua kata dalam memori saat ini

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

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

iemptycnt;

}

// waspada (iemptycnt: iemptycnt);

if (iemptycnt ＞ 0)

{

sakelar (iemptycnt)

{

case m_ipartcnt:

strPrompt = jumlah kata kosa kata di semua kategori adalah 0, dan operasi akan menghasilkan file kosong m_ipartcnt;

strPrompt = /n Apakah Anda yakin ingin melakukan ini? ;

merusak;

bawaan:

strPrompt = di mana,;

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

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

strPrompt = [m_astrsenpart [icount]] ,;

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

strPrompt = jumlah beberapa kata adalah 0;

STRPROMPT = /N Operasi akan menghasilkan file kosong iemptycnt;

strPrompt =, apakah Anda yakin ingin melakukan ini? ;

}

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

}

frmwords.txtopway.value = saveAll;

frmwords.submit ();

}

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

// Muat semua kategori kata dari file

function loadAll ()

{

var icount;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

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

// Simpan semua kata dalam memori saat ini

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

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

frmwords.txtopway.value = loadAll;

frmwords.submit ();

}

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

// Mohon pertandingan kosakata dan dapatkan kalimat

fungsi rakitan ()

{

var icount, iwrdcnt, irndindex;

var strsentence;

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

// Deskripsi Variabel Konstan

// icount: Counter. Bilangan bulat

// Iwrdcnt: Jumlah kata dari jenis kosa kata tertentu. Bilangan bulat

// irndindex: indeks kata yang dihasilkan secara acak. Bilangan bulat

// Strsentence: Kalimat yang terdiri dari kata -kata acak di setiap kategori kosa kata. Tipe string

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

strsentence =;

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

{

// Jika jumlah kosa kata saat ini dalam kategori adalah 0

// Berikan prompt dan batalkan kolokasi

iwrdcnt = m_astrwords [icount] .length;

if (iwrdcnt == 0)

{

var strprompt;

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

// Deskripsi Variabel Konstan

// StrPrompt: Prompt Operasi. Tipe string

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

strPrompt = [m_astrsenpart [icount]] Bagian tidak memiliki kata opsional;

strPrompt = /nPlease masukkan setidaknya satu kata;

waspada (strprompt);

txtWord[iCount].select();

kembali;

}

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

//加入到句子中

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. Bilangan bulat

//iWrdIdx: The index of words in word array. Bilangan bulat

//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＞

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

Gameplaynya sangat sederhana. Make some paper pieces, divide them into four piles, and write the names of relatives and friends </span>, the words "span class=fontEmp> to describe the degree of the word "/span", the words "span class=fontEmp> about the place" and the things "span class=fontEmp> do </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. Ha ha

这个版本我大概地测试了一下，没发现大的＜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. Ha ha.

＜/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＞

＜/bentuk ＞

＜!--版权--＞

＜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. Bilangan bulat

' 可能的值有：

' 0：主语

' 1：程度状语

' 2：地点状语

' 3：谓语

'Output: The status value after the file operation. Bilangan bulat

' 可能的值有：

' 0：操作成功

' 1：操作失败

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

Function SaveFile(iSenPart)

Dim fsoMain, tsfWords

Dim iCount, iWrdCnt

Dim iOpStatus

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

'常变量说明

'fsoMain ：FSO对象

'tsfWords ：TEXTSTREAM对象

'iCount : Counter. Bilangan bulat

'iWrdCnt: The number of words of a certain type of vocabulary. Bilangan bulat

'iOpStatus: The status after the file operation is completed. Bilangan bulat

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

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))

Berikutnya

Akhiri jika

tsfWords.Close

iOpStatus = 0

SaveFile = iOpStatus

Fungsi akhir

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

'函数名：LoadFile

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

'Input: 1. iSenPart: a number representing the vocabulary classification. Bilangan bulat

' 可能的值有：

' 0：主语

' 1：程度状语

' 2：地点状语

' 3：谓语

'Output: The status value after the file operation. Bilangan bulat

' 可能的值有：

' 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. Bilangan bulat

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

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 & ,

Lingkaran

If strLoaded ＜＞ Then

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

m_astrWords(iSenPart) = Split(strLoaded, ,)

Kalau tidak

m_astrWords(iSenPart) = Empty

Akhiri jika

tsfWords.Close

iOpStatus = 0

Kalau tidak

'如果不存在纪录文件

iOpStatus = 1

Akhiri jika

LoadFile = iOpStatus

Fungsi akhir

%＞

＜%

'以下是服务器端脚本

'用于测试的函数和过程

Sub Show(strDef)

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

Akhir sub

Sub ShowMethod()

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

Akhir sub

Sub ShowForm()

Redup 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＞

Berikutnya

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

Akhir sub

%＞