8.2.6 在线考试

单击这里下载ASP在线考试系统（EOES）

1.register1.asp:

<%

dim objConn,rs,sql1,name,passwd

name = request("name")

passwd =request("passwd")

Session("username")=name

strProvider = "Provider=Microsoft.JET.OLEDB.4.0;Data Source=D:\InetPub\Wwwroot\fpdb\online.mdb;"

Set objConn = server.createobject("ADODB.Connection")

objConn.Open strProvider

sql1="select * from online where 姓名='" & name & "' and passwd='" & passwd & "'"

set rs=objConn.execute(sql1)

if rs.eof then

%>

2.onlinetest.asp:

3.oresult.asp:

<%

dim score,strCommand,name

score =0

name =Session("username")

if Request.QueryString("R1") ="V3" then

    score =score+20

end if

if Request.QueryString("R2")= "V2" then

    score =score+20

end if

if Request.QueryString("R3")= "V1" then

    score =score+20

end if

if Request.QueryString("R4")= "V2" then

    score =score+20

end if

if Request.QueryString("R5")= "V3" then

    score =score+20

end if

%>

用来显示用户的得分情况使用下面的代码：

<%= name %>

，您这一次考试的成绩是:

<%= score %>分<p>

用来将学生成绩记录到数据库中的代码如下：

<%

strProvider = "Provider=Microsoft.JET.OLEDB.4.0;

Data Source=D:\InetPub\Wwwroot\fpdb\online.mdb;"

 Set objConn = server.createobject("ADODB.Connection")

 objConn.Open strProvider

 strCommand = "UPDATE online SET 平时1 = '" & score & "' WHERE 姓名 = '" & name & "'"

 objConn.Execute strCommand

 Response.Write("该次成绩已经成功添加到数据库中去了。")

%>