Direkomendasikan: ASP 3.0 Pemrograman Lanjutan (41) 9.2.3 Penggunaan prosedur tersimpan Penggunaan prosedur tersimpan adalah area di mana objek perintah diterapkan. Prosedur tersimpan (kadang -kadang disebut kueri penyimpanan) adalah pernyataan kueri SQL yang telah ditentukan sebelumnya dalam database. Mengapa prosedur tersimpan harus dibuat dan digunakan alih -alih langsung menggunakannya dalam kode
Ini adalah permainan tentang pengkodean kata, yang ditulis dalam ASP, VBScript dan JavaScript.
Tidak ada masalah besar yang ditemukan diuji di bawah Win98 OEM2, PWS, dan IE5.
Bagaimana menggunakan:
Metode 1: Misalnya, direktori layanan 3W Anda adalah C:/inetpub/wwwroot, buat direktori di bawah ini, seperti WordAsb; Salin file game (wordasb.asp) ke direktori; Ketik http: // Nama mesin Anda/Wordasb/wordasb.asp atau http://127.0.0.1/wordasb/wordasb.asp di bilah alamat IE, dan tekan ENTER untuk memulai permainan.
Metode 2: Salin file game (wordasb.asp) ke direktori yang baru dibuat. Klik kanan direktori, pilih properti di menu, klik halaman Properti Berbagi Web, klik Bagikan Item Folder ini, dan klik OK. Ketik http: // Nama mesin Anda/nama direktori baru/wordasb.asp atau http://127.0.0.1/ Di bilah alamat IE. Masuk dan mulai game.
Catatan: OS mesin Anda harus NT atau Win2000 Server atau OS lainnya tetapi PWS diinstal
Metode Game:
Klik instruksi game di game untuk diketahui; Jika halaman terkadang kosong, silakan tekan F5 untuk menyegarkannya (ini juga bug terbesar saat ini).
Kodenya adalah sebagai berikut:
| Berikut ini adalah konten yang dikutip: <%@ 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 %> |
分享:ASP 3.0高级编程(十二) 4.2.3 服务器端包含指令的例子本节提供了一些示例页面,可以用来对各种服务器端包含语句进行实验。打开示例网页的子目录Chapter04,显示SSI Directives and the ASP Server Object&rdqu