用ASP實現網上考試系統(tǒng)_ASP教程

教程Tag：暫無Tag,歡迎添加,賺取U幣!

推薦：ASP 3.0高級編程(三十六)
第8章 ADO基礎在本書前7章中，已經講述了ASP的有關內容，以及ASP如何為Web站點帶來動態(tài)的內容。已經見到其腳本程序允許自定義Web頁面，使我們能夠構建功能更為強大的ASP頁面。現在，將研究ASP

隨著互連網技術的發(fā)展網上教學將成為人們接受再教育和終身教育的主要形式。在網上學校中，人們可以不受時間和空間的限制，隨時隨地選學任何地方的任何課程。網上學校的發(fā)展對網上考試的發(fā)展提出了迫切的要求。這里是我用Asp和Access數據庫實現的一個網上考試系統(tǒng)。當用戶憑用戶名和口令登錄時，系統(tǒng)首先檢查該用戶是否已參加過考試，若是則進行成績查詢，若否則從題庫中提取考題供用戶解答。等用戶提交答卷后，系統(tǒng)進行評分并將成績登記入庫。

一．數據庫設計

首先建立一數據庫exercise.mdb，其中包括兩個表：user和test，user表中有包括三個字段：

字段名稱：user；字段類型：文本；字段大�。�20。存儲用戶名

字段名稱：passwd；字段類型：文本；字段大�。�20。存儲用戶密碼

字段名稱：score；字段類型：數字；字段大�。赫�。存儲用戶成績
test表中有五個字段：
字段名稱：question；字段類型：文本；字段大小：255。存儲考試題目

字段名稱：a；字段類型：文本；字段大�。�100。存儲選項A的答案

字段名稱：b；字段類型：文本；字段大�。�100。存儲選項B的答案

字段名稱：c；字段類型：文本；字段大�。�100。存儲選項C的答案

字段名稱：d；字段類型：文本；字段大�。�100。存儲選項D的答案

字段名稱：ans；字段類型：文本；字段大�。�2。存儲正確答案

二．程序原代碼
　　
下面是該系統(tǒng)中較核心的三段原程序，希望對開發(fā)類似系統(tǒng)的讀者取到拋磚引玉的作用，讀者也可對其進行改進以適應自己的系統(tǒng)。

以下為引用的內容：
‘Login.asp源程序，檢驗用戶是否合法
< %@ Language=VBScript % >
< %
name=trim(request("name"))
passwd=trim(request("passwd"))
‘檢查用戶是否輸入信息
if name< >"" and passwd< >"" then
Set conn = Server.CreateObject
("ADODB.Connection")
conn.Open "driver={Microsoft Access
Driver (*.mdb)};dbq=" &
Server.MapPath("exercise.mdb")
set rs= server.createobject("adodb.recordset")
sql= "select * from user where user='" &name&
"' and passwd='" & passwd & "'"
‘檢查用戶的合法性
Set rs= conn.Execute(sql)
if not(rs.eof) then
檢查用戶是否已參加過考試，
若是則進行成績查詢
if rs(“score”)< >0 then
response.write rs(“user”)&
“的考試成績是”&rs(“score”)
else
session("pass")=1
session(“user”)=name
response.redirect “test.asp”
end if
else
Response.Write "對不起，
用戶或口令不正確�。�！"
end if
else
end if
% >
< HTML >
< HEAD >
< META NAME="GENERATOR"
Content="Microsoft Visual Studio 6.0" >
< TITLE >用戶口令檢查< /TITLE >
< /HEAD >
< BODY >
< FORM action="login.asp" id=FORM1
method=post name=FORM1 >
< P title="" > < /P >
< P title="" > < /P >
< P title="" align=center >用戶：
< INPUT id=text1 name=name
style="HEIGHT: 22px; WIDTH: 103px" >< /P >
< P title="" align=center >口令：
< INPUT id=password1 name=passwd
style="HEIGHT: 23px; WIDTH: 101px"
type=password >< /P >
< P title="" align=center >
< INPUT id=submit1 name=submit1
type=submit value=" 進入 " style="FONT-SIZE:
medium; FONT-STYLE: normal;
FONT-VARIANT: normal; FONT-WEIGHT:
bold" title="" >< /P >
< P title="" align=center >
< /P >
< /FORM >
< /BODY >
< /HTML >

‘test.asp源程序，從題庫中提取試題供解答
< %@ Language=VBScript % >
< %
if session(“pass”)< >1 then
response.redirect “login.asp”
else
end if
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "driver={Microsoft Access Driver
(*.mdb)};dbq=" &
Server.MapPath("exercise.mdb")
‘提取試題
sql="select * from test"
Set rs = conn.Execute( sql )
% >
‘計時函數
< SCRIPT LANGUAGE="JavaScript" >
var isn1=null;
var isn2=false;
today=new Date();

function stopit(){
if(isn2){
　　clearTimeout(isn1);
　　}
isn2 = false;
}
function startit(){
stopit();
isnclock();
}

function isnclock(){
var now=new Date();
var hrs=now.getHours();
var min=now.getMinutes();
var sec=now.getSeconds();
document.clckh.disp.value="" ((hrs >12) ?
hrs-12 : hrs);
document.clckm.disp.value=((min< 10) ? "0" : "") min;
document.clcks.disp.value=((sec< 10) ? "0" : "") sec;
document.clck.disp.value=(hrs >=12) ? "p.m." : "a.m.";
isn1=setTimeout("isnclock()",1000);
isn2=true;
}
< /SCRIPT >

< HTML >
< HEAD >
< META NAME="GENERATOR"
Content="Microsoft Visual Studio 6.0" >
< /HEAD >
< BODY onLoad="startit()" BGCOLOR="FFFFFF" >
< center >
‘調用計時函數顯示時間
< TABLE BORDER=2 >
< TR >
< TD >Time< /TD >< TD >Hour< /TD >< TD >Min
< /TD >< TD >Sec< /TD >< TD >< /TD >
< /TR >
< TR >
< TD >< /TD >
< TD VALIGN=TOP >< FORM NAME="clckh" onSubmit="0" >
< INPUT TYPE="text" NAME="disp" SIZE=2 VALUE ="" >
< /FORM >< /TD >
< TD VALIGN=TOP >< FORM NAME="clckm" onSubmit="0" >
< INPUT TYPE="text" NAME="disp" SIZE=2 VALUE ="" >
< /FORM >< /TD >
< TD VALIGN=TOP >< FORM NAME="clcks" onSubmit="0" >
< INPUT TYPE="text" NAME="disp" SIZE=2 VALUE ="" >
< /FORM >< /TD >
< TD VALIGN=TOP >< FORM NAME="clck"
onSubmit="0" >
< INPUT TYPE="text" NAME="disp" SIZE=4 VALUE ="" >
< /FORM >< /TD >< /TR >
< /center >
‘顯示試題供解答
< FORM action="result.asp" id=FORM1
method=post name=FORM1 >
< P > < /P >
< P >
　　< %
　　i=1
　　rs.movefirst
　　do while not rs.eof% >
　　< P > < %=rs("question")% >< /P >
< TABLE align=center border=1 cellPadding=1
cellSpacing=1
width="80%" >
　　< TR >
　　 < TD style="WIDTH: 50%" width="50%"
< INPUT name=ans< %=i% > type=radio value="A" >
< %=rs("a")% >< /TD >
　　 < TD >< INPUT name=ans< %=i% >
type=radio value="B" >
　　 < %=rs("b")% >< /TD >< /TR >
　　< TR >
　　 < TD >< INPUT name=ans< %=i% >
type=radio value="C" >
　　 < %=rs("c")% >< /TD >
　　 < TD >< INPUT name=ans< %=i% >
type=radio value="D" >
　　 < %=rs("d")% >< /TD >
　　< /TR >
< /TABLE >
< %
i=i 1
rs.movenext
loop
% >
< /P >
< P > < /P >
< P align=center >< INPUT id=submit1 name=submit1
type=submit
value=Submit >< INPUT id=reset1 name=reset1
type=reset value=Reset >< /P >< /FORM >
< /BODY >
< /HTML >

分享：ASP進階：用ASP制作統(tǒng)計餅圖、柱狀圖等
我們工作中經常需要將數據轉化成柱狀圖，餅圖等，以方便直觀的分析數據，這里給大家介紹一個ASP中制作餅圖、柱狀圖的組件：csDrawGraph，csdgt.zip,因為是組件，所以我們在使用之前需要用REGSV