<%@ Language=vbscript%>
<HTML>
<HEAD>
<meta name= "generator" content= "Microsoft Visual Studio 6.0" >
</HEAD>
<BODY>
<%
' After submitting the answer, first of all, the answer to the statistics, how many questions
' How many points should you get, and then write the statistics to table score (stid,score,teachid,sub),
' Then delete the corresponding field in the table Tbanswer that records the student answer
Dim Rightnum ' The variable records the number of correct questions
Dim totalques ' The variable records the number of total topics done
Dim Getscore ' Students deserve the number of points
Set Mcmd=server. CreateObject ("Adodb.command")
Mcmd. activeconnection= "Dsn=testsys"
Mcmd.commandtext= "Right"
The CommandText property of the Command object is right for the stored query procedure, which is designed in an Access database with
' Parameter StudentID query right
Set Mprama=mcmd. CreateParameter ("StudentID", 200,1,8,session ("Stid"))
' Create parameter StudentID, pass this parameter to the query stored procedure
Mcmd. Parameters.Append Mprama
Set Mrs=mcmd. Execute
If not mrs.eof then
Rightnum=mrs ("Rightnum")
End If
Mcmd. Parameters.delete "StudentID"
Set mprama=nothing
mcmd.commandtext= "DELETE * tbanswer WHERE stid= '" & Session ("Stid") & "'"
Mcmd. Execute
' Delete records that are stored in the database table Tbanswer
Set mrs=nothing
Getscore=rightnum*100/session ("Testnum")
' The following is to write fractions into table score
Mcmd. commandtext= "INSERT into score (Stid,score,sub,teachid) VALUES ('" & Sessions ("Stid") & "', '" & Getscore & " ', ' & Session ("SubName") & "', '" & Session ("Teachid") & "')"
Mcmd. Execute
Set mcmd=nothing
Session. Abandon
%>
<p align=center><strong><font Color=crimson face= ""
Size=4> Score Statistics </FONT></STRONG></P>
<p align=center>
<table border=1 cellpadding=1 cellspacing=1 width=75%>
