用ASP实现网上考试系统

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