📄 sevalue.asp
字号:
<%@ Language=VBScript %>
<HTML>
<HEAD>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY>
<%
'在提交答卷后，首先要对答卷内容进行统计，答对多少题目
'应该得多少分，然后将统计结果写入到表score（stid,score,teachid,sub）中，
'然后将记录学生回答的表tbanswer中的相应字段删除
dim rightnum '该变量记录答对的题目的数量
dim totalques '该变量记录的是做的总的题目的数量
dim getscore '学生应得得分数
db="testsys.MDB"
rightnum=0
set mcmd=server.CreateObject("adodb.command")
mcmd.ActiveConnection="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.Open connstr
Set mrs = Server.CreateObject("ADODB.Recordset")
sqlstr = "SELECT * FROM question,tbanswer where question.questionid=tbanswer.questionid"
mrs.Open sqlstr,conn
do while not mrs.eof
if mrs("question.answer")=mrs("tbanswer.answer") then
rightnum=rightnum+1
end if
mrs.movenext
loop
sqlstr="DELETE * FROM tbanswer WHERE stid='" & session("stid") & "'"
Set rs1 = Server.CreateObject("ADODB.Recordset")
rs1.open sqlstr,conn
getscore=rightnum*100/session("testnum")
'以下为将分数写入到表score中
sqlstr="insert into score (stid,score,sub,teachid) values('" & session("stid") & "','" & getscore & "','" & session("subname") & "','" & session("teachid") & "')"
rs1.open sqlstr,conn
%>
<P align=center><STRONG><FONT color=crimson face=""
size=4>评分统计</FONT></STRONG></P>
<P align=center>
<TABLE border=1 cellPadding=1 cellSpacing=1 width=75%>
<TR>
<TD>学生姓名</TD>
<TD><%=session("stname")%></TD></TR>
<TR>
<TD>考试科目</TD>
<TD><%=session("subname")%></TD></TR>
<TR>
<TD>题目总数
<TD><%=session("testnum")%>
<TR>
<TD>做对题数
<TD><%=rightnum%>
<TR>
<TD>得分
<TD><%=getscore%>
<TR>
<TD></TD>
<TD></TD></TR></TABLE></P>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -