<%
dim PD_TJ(10),XZ_TJ(90),PD_FS,PD_DA(10),XZ_DA(90)
PD_FS = 0
XZ_FS = 0
response.write(Session("NameT_Stu")&"你好,本次考试你的情况如下:<br><br>")
response.Write "<font color = #ff0000>★ 判定题中做错的有:</font><br><br>"
for d1 = 1 to 10
PD_TJ(d1) = request("PD"&d1)
PD_DA(d1) = request("PD_DA"&d1)
if PD_TJ(d1) = "" then PD_TJ(d1) = "D"
if PD_TJ(d1)=PD_DA(d1) then
PD_FS = PD_FS + 1
else
response.Write "<font color = ff0000>"&d1&"</font>题 答案是"&PD_DA(d1)&" | "
end if
next
response.Write "<br><font color = 0000ff>判断题:"&PD_FS&"分<br></font>"
response.Write "<br><font color = ff0000>★ 选择题中做错的有:</font><br><br>"
for d2 = 1 to 90
XZ_TJ(d2) = request("XZ"&d2)
XZ_DA(d2) = request("XZ_DA"&d2)
if XZ_TJ(d2) = "" then XZ_TJ(d2) = "D"
if XZ_TJ(d2)=XZ_DA(d2) then
XZ_FS = XZ_FS + 1
else
response.Write "<font color = ff0000>"&d2&"</font>题错,正确答案是"&XZ_DA(d2)&" | "
end if
next
response.Write "<br><font color = 0000ff>选择题:"&XZ_FS&"分</font>"
response.Write("<br><font color = 0000ff>总得分:"&XZ_FS+PD_FS&"分</font>")
zongfen=XZ_FS+PD_FS
sql="update Verification set STU_SCORE='"&zongfen&"' where STU_NUM='"&Session("NumT_Stu")&"'"
set rsT=conn.execute(Sql)
sql1="update score set STU_SCORE='"&zongfen&"' where STU_NUM='"&Session("NumT_Stu")&"'"
set rsT=conn.execute(Sql1)
%>