📄 typegetresult.asp
字号:
<!--#include file="conn.asp"-->
<!--#include file="Checkuser.asp"-->
<%
dim yijiao
yijiao=session("yikao")
if yijiao=112 then
response.write "您是否按了浏览器上的后退按钮，你已经交过了试卷，请不要再按了。"
else
dim subjectname, endtime, score, typeid, textfielda, textfieldb, textfieldc, textfieldd, countwords, aright
studentname=session("studentname")
endtime=now()
input1=request.form("input1")
typeid=request.form("typeid")
textfielda=mid(request.form("textfielda"),2)
textfieldb=mid(request.form("textfieldb"),2)
textfieldc=mid(request.form("textfieldc"),2)
textfieldd=mid(request.form("textfieldd"),2)
session("passtime")=session("passtime")+input1
'#############################如果一行全部正确，就计算成绩
sql="select * from question where subjectname='"&session("selectsubjectname")&"'"
'where id=typeid"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
countwords=4
aright=0
a="1"
b="2"
c="3"
d="4"
if textfielda=trim(rs("A")) then
countwords=countwords+len(TRIM(textfielda))
aright=aright+1
a=""
end if
if textfieldb=trim(rs("B")) then
countwords=countwords+len(TRIM(textfieldb))
aright=aright+1
b=""
end if
if textfieldc=trim(rs("C")) then
countwords=countwords+len(TRIM(textfieldc))
aright=aright+1
c=""
end if
if textfieldd=trim(rs("D")) then
countwords=countwords+len(TRIM(textfieldd))
aright=aright+1
d=""
end if
if aright<4 then
'删除空纪录
'sql="delete from score where studentname='"&session("studentname")&"' and score=0"
'conn.execute sql
'结束删除
response.write("<center>"&studentname&" 对不起！必须打完全部文字而且不能有错才能记录成绩,请重新测试!</center><br>")
response.write("<center>错误行号："&a&" "&b&" "&c&" "&d&"</center><br>")
%><body background="images/backimage.gif">
<p> </p>
<p> </p>
<form method="POST" action="selectsubject.asp" name="form">
<p align=center>
<input type="submit" value="重新考试" name="submit12" >
<a href=# onclick='javascript:window.history.go(-1)'>
<input type="button" value=" 返回检查 " name="submit1" >
</a></p>
</form> <%
else
'response.Redirect("type.asp")
rs.close
set rs=nothing
session("yikao")=1
'sql="select Max(score) as maxscore from score where subjectname='"&session("selectsubjectname")&"' "
'计算最高分、平均分
sql="select * from score where score=(select Max(score) as maxscore from score where subjectname='"&session("selectsubjectname")&"' )"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
session("maxscore")=rs("score")
session("maxname")=rs("name")
session("maxstudentname")=rs("studentname")
'计算平均分
set rs=server.createobject("adodb.recordset")
sql="select Avg(score) as avgscore from score where name<>'' and subjectname='"&session("selectsubjectname")&"' "
rs.open sql,conn,3,2
session("avgscore")=rs("avgscore")
'rs.open "select Avg(score) as avgscore from score where subjectname='"&trim(session("selectsubjectname"))&"' )",conn,3,2
'session("avgscore")=rs("avgscore")
sql="select * from score where studentname='"&session("studentname")&"' and subjectname='"&session("selectsubjectname")&"' and score=0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
'rs("endtime")=endtime
passtime=session("passtime")
score=round(countwords/passtime,2)
session("countwords")=countwords
session("passtime")=passtime
rs("score")=score
rs("name")=session("name")
rs("avgscore")=session("avgscore")
rs.update
rs.close
set rs=nothing
call endConnection()
session("score")=score
'session("total")=10
response.Redirect "typeresult.asp"
'response.write("<center>"&studentname&"你好！你的考试成绩为："&score&"字/分钟</center><br>")
end if
end if
%>
<p align="center"> </p>
<p> </p>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -