Gunakan ASP untuk mengimplementasikan sistem pemeriksaan online

Penulis：Eve Cole Waktu Pembaruan：2025-04-25 12:16:02

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

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

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

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>

'Panggil fungsi waktu untuk menampilkan waktu

<tr>

<td> waktu </td> <td> jam </td> <td> min

</td> <td> Sec </td> <td> </td>

</tr>

<tr>

</form> </td>

</form> </td>

</form> </td>

<Td valign = top> <bentuk nama = clck

Onsubmit = 0>

</form> </td> </tr>

</penter>

'Tampilkan pertanyaan tes untuk menjawab

<Form Action = result.asp id = Form1

Metode = Nama Posting = Form1>

<p>

< %

i = 1

rs.movefirst

lakukan sementara tidak rs.eof%>

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

type = nilai radio = b>

< % = RS (B) %> </td> </tr>

<tr>

type = nilai radio = c>

< % = rs (c) %> </td>

type = nilai radio = d>

< % = rs (d) %> </td>

</tr>

</boable>

< %

i = i 1

rs.movenext

lingkaran

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