ASP网上考试系统源代码

admin管理员组

文章数量:1530845

2024年1月14日发(作者：)

ASP网上考试系统源代码

数据库设计

首先建立一数据库，其中包括两个表：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。存储正确答案

二．程序原代码

下面是该系统中较核心的三段原程序，希望对开发类似系统的读者取到抛砖引玉的作用，读者也可对其进行改进以适应自己的系统。

‘源程序，检验用户是否合法

< %@ Language=VBScript % >

< %

name=trim(request("name"))

passwd=trim(request("passwd"))

‘检查用户是否输入信息

if name< >"" and passwd< >"" then

Set conn = Object

("tion")

"driver={Microsoft Access

Driver (*.mdb)};dbq=" &

h("")

set rs= object("set")

sql= "select * from user where user='" &name&

"' and passwd='" & passwd & "'"

‘检查用户的合法性

Set rs= e(sql)

if not() then

检查用户是否已参加过考试，

若是则进行成绩查询

if rs(“score”)< >0 then

rs(“user”)&

“的考试成绩是”&rs(“score”)

else

session("pass")=1

session(“user”)=name

ct “”

end if

else

"对不起，

用户或口令不正确！！！"

end if

else

end if

% >

< HTML >

< HEAD >

< META NAME="GENERATOR"

Content="Microsoft Visual Studio 6.0" >

< TITLE >用户口令检查< /TITLE >

< /HEAD >

< BODY >

< FORM action="" 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 >

‘源程序，从题库中提取试题供解答

< %@ Language=VBScript % >

< %

if session(“pass”)< >1 then

ct “”

else

end if

Set conn = Object("tion")

"driver={Microsoft Access Driver

(*.mdb)};dbq=" &

h("")

‘提取试题

sql="select * from test"

Set rs = e( 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=rs();

var min=utes();

var sec=onds();

=""+((hrs >12) ?

hrs-12 : hrs);

=((min< 10) ? "0" : "")+min;

=((sec< 10) ? "0" : "")+sec;

=(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="" id=FORM1

method=post name=FORM1 >

< P > < /P >

< P >

< %

i=1

rst

do while not % >

< 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

xt

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 >

本文标签： 系统是否考试数据库