Direkomendasikan: Asp 3.0 Programming Advanced (Tiga Puluh Enam) Bab 8 Dasar -dasar ADO dalam 7 bab pertama buku ini, buku ini telah berbicara tentang konten ASP dan bagaimana ASP membawa konten dinamis ke situs web. Telah terlihat bahwa program skripnya memungkinkan halaman web khusus, memungkinkan kami untuk membangun halaman ASP yang lebih kuat. Sekarang, ASP akan dipelajari
Dengan pengembangan teknologi internet, pengajaran online akan menjadi bentuk utama pendidikan ulang orang dan pendidikan seumur hidup. Di sekolah online, orang dapat memilih kursus apa pun di mana saja, di mana saja tanpa dibatasi oleh ruang dan waktu. Pengembangan sekolah online telah mengajukan persyaratan mendesak untuk pengembangan ujian online. Berikut adalah sistem pemeriksaan online yang saya implementasikan menggunakan basis data ASP dan akses. Ketika pengguna masuk dengan nama pengguna dan kata sandi, sistem pertama -tama memeriksa apakah pengguna telah mengikuti ujian. Jika demikian, melakukan kueri skor. Jika tidak, ekstrak pertanyaan tes dari bank pertanyaan untuk dijawab oleh pengguna. Setelah pengguna mengirimkan lembar jawaban, sistem akan mencetak dan mendaftarkan hasilnya ke dalam database.
satu. Desain Basis Data
Pertama, buat latihan basis data.mdb, yang mencakup dua tabel: pengguna dan tes. Tabel pengguna berisi tiga bidang:
Nama Bidang: Pengguna; Jenis Bidang: Teks; Ukuran Lapangan: 20. Simpan Nama Pengguna
Nama Lapangan: Passwd; Jenis Bidang: Teks; Ukuran Bidang: 20. Simpan Kata Sandi Pengguna
Nama lapangan: skor; Jenis Bidang: Nomor; Ukuran Bidang: Integer. Menyimpan hasil pengguna
Ada lima bidang di tabel uji:
Nama Lapangan: Pertanyaan; Jenis Bidang: Teks; Ukuran Lapangan: 255. Pertanyaan Ujian Toko
Nama Lapangan: A; Jenis Bidang: Teks; Ukuran Bidang: 100. Opsi Penyimpanan Jawaban A
Nama Lapangan: B; Jenis Bidang: Teks; Ukuran Bidang: 100. Opsi Penyimpanan B Jawaban
Nama Lapangan: C; Jenis Bidang: Teks; Ukuran Bidang: 100. Opsi Penyimpanan C Jawaban
Nama Lapangan: D; Jenis Bidang: Teks; Ukuran Bidang: 100. Jawaban untuk Opsi Penyimpanan D
Nama Lapangan: ANS; Jenis Bidang: Teks; Ukuran Lapangan: 2. Simpan jawaban yang benar
dua. Kode program asli
Di bawah ini adalah tiga program asli inti dalam sistem. Saya berharap untuk mengambil peran sebagai pembaca yang merangsang yang mengembangkan sistem serupa, dan pembaca juga dapat meningkatkannya untuk beradaptasi dengan sistem mereka sendiri.
| Berikut ini adalah konten yang dikutip: 'Program Sumber Login.asp, verifikasi apakah pengguna legal < %@ Bahasa = vbscript %> < % name = trim (request (name)) passwd = trim (permintaan (passwd)) 'Periksa apakah pengguna memasukkan informasi Jika nama <> dan passwd <> lalu Setel conn = server.createObject (ADODB.Connection) Conn.open driver = {Microsoft Access Driver (*.mdb)}; dbq = & Server.mappath (olahraga.mdb) Set RS = Server.CreateObject (ADODB.Recordset) SQL = SELECT * dari pengguna di mana pengguna = '& nama & 'dan passwd =' & passwd & ' 'Periksa legalitas pengguna Set RS = Conn.Execute (SQL) Jika tidak (rs.eof) lalu Periksa apakah pengguna telah mengikuti ujian. Jika demikian, lakukan kueri kelas Jika RS (skor) <> 0 lalu response.write rs (pengguna) & Skor tes adalah & RS (skor) kalau tidak sesi (pass) = 1 sesi (pengguna) = Nama response.redirect test.asp akhiri jika kalau tidak Response.write Sorry, Pengguna atau kata sandi salah! Lai Lai akhiri jika kalau tidak akhiri jika %> <Html> <head> <Meta name = generator Konten = Microsoft Visual Studio 6.0> <iteme> Periksa kata sandi pengguna </iteme> </head> <body> <Form Action = Login.asp ID = Form1 Metode = Nama Posting = Form1> <P title => </p> <P title => </p> <P title = align = center> pengguna: <Input ID = Text1 Name = Name style = tinggi: 22px; Lebar: 103px> </p> <P title = align = center> kata sandi: <Input ID = kata sandi1 nama = passwd style = tinggi: 23px; Lebar: 101px type = password> </p> <P title = align = center> <Input id = submit1 name = kirim1 type = kirim nilai = enter style = font-size: sedang; Font-style: Normal; Font-Variant: Normal; Font-Weight: judul tebal => </p> <P title = align = center> </p> </form> </body> </html> Program Sumber Test.asp, mengekstrak pertanyaan tes dari bank pertanyaan untuk dijawab < %@ Bahasa = vbscript %> < % Jika sesi (lulus) <> 1 lalu response.redirect login.asp kalau tidak akhiri jika Set Conn = Server.CreateObject (AdodB.Connection) conn.open driver = {Microsoft Access Driver (*.mdb)}; dbq = & Server.mappath (olahraga.mdb) 'Ekstrak pertanyaan tes SQL = Pilih * dari tes Set RS = Conn.Execute (SQL) %> Fungsi pengatur waktu <Bahasa skrip = javascript> var isn1 = null; var isn2 = false; hari ini = tanggal baru (); fungsi stopit () { if (isn2) { ClearTimeout (ISN1); } isn2 = false; } fungsi startit () { stopit (); isnclock (); } fungsi isnclock () { var sekarang = tanggal baru (); var hrs = now.getHours (); var min = now.getMinutes (); var sec = now.getSeconds (); document.clckh.disp.value = ((hrs> 12)? jam-12: jam); document.clckm.disp.value = ((min <10)? 0 :) min; document.clcks.disp.value = ((detik <10)? 0 :) detik; document.clck.disp.value = (hrs> = 12)? PM: AM; isn1 = setTimeout (isNclock (), 1000); isn2 = true; } </script> <Html> <head> <Meta name = generator Konten = Microsoft Visual Studio 6.0> </head> <Body onload = startit () bgcolor = ffffff> <senter> 'Panggil fungsi waktu untuk menampilkan waktu <Tabel perbatasan = 2> <tr> <td> waktu </td> <td> jam </td> <td> min </td> <td> Sec </td> <td> </td> </tr> <tr> <td> </td> <Td valign = top> <bentuk nama = clckh onsubmit = 0> <Jenis input = nama teks = ukuran disp = 2 nilai => </form> </td> <Td valign = top> <bentuk nama = clckm onsubmit = 0> <Jenis input = nama teks = ukuran disp = 2 nilai => </form> </td> <Td valign = top> <bentuk nama = clcks onsubmit = 0> <Jenis input = nama teks = ukuran disp = 2 nilai => </form> </td> <Td valign = top> <bentuk nama = clck Onsubmit = 0> <Jenis input = nama teks = ukuran disp = 4 value => </form> </td> </tr> </penter> 'Tampilkan pertanyaan tes untuk menjawab <Form Action = result.asp id = Form1 Metode = Nama Posting = Form1> <p> </p> <p> < % i = 1 rs.movefirst lakukan sementara tidak rs.eof%> <p> < % = rs (pertanyaan) %> </p> <Tabel align = batas tengah = 1 cellpadding = 1 CellSpacing = 1 lebar = 80%> <tr> <Gaya TD = Lebar: Lebar 50% = 50% <Input name = ans < % = i %> type = nilai radio = a> < % = rs (a) %> </td> <td> <input name = ans < % = i %> type = nilai radio = b> < % = RS (B) %> </td> </tr> <tr> <td> <input name = ans < % = i %> type = nilai radio = c> < % = rs (c) %> </td> <td> <input name = ans < % = i %> type = nilai radio = d> < % = rs (d) %> </td> </tr> </boable> < % i = i 1 rs.movenext lingkaran %> </p> <p> </p> <P align = center> <input id = submit1 name = submit1 ketik = kirim value = kirim> <input id = reset1 name = reset1 type = reset value = reset> </p> </form> </body> </html> |
Bagikan: ASP Advanced: Gunakan ASP untuk membuat diagram lingkaran statistik, diagram batang, dll. Dalam pekerjaan kami, kami sering perlu mengonversi data menjadi bagan batang, diagram lingkaran, dll. Untuk memfasilitasi dan analisis data intuitif. Di sini saya akan memperkenalkan kepada Anda komponen yang membuat diagram lingkaran dan diagram batang di ASP: CSDrawGraph, csdgt.zip. Karena ini adalah komponen, kita perlu menggunakan REGSV sebelum menggunakannya.
2 halaman Total halaman sebelumnya halaman berikutnya