?? result.asp
字號:
<!--#include file="conn.asp"-->
<html>
<head>
<title>考試界面</title>
</head>
<body background=images/backimage.gif bgcolor="#FFFFFF">
<%
subjectname=session("selectsubjectname")
studentname=session("studentname")
singlenumber=session("singlenumber")
singleper=session("singleper")
multinumber=session("multinumber")
multiper=session("multiper")
endtime=now()
score=0
selectstr1=request.form("hidQuestID1")
selectstr2=request.form("hidQuestID2")
len1=len(selectstr1)
len2=len(selectstr2)
str1=left(selectstr1,len1-1)
str2=left(selectstr2,len2-1)
dim id1,id2
id1=split(str1,",")
id2=split(str2,",")
for i=1 to singlenumber
result=request.form("no"&id1(i-1))
if not isempty(result) then
sql="select * from question where id="& clng(id1(i-1))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if result=rs("answer") then
score=score+cint(singleper)
end if
rs.close
set rs=nothing
else
end if
next
for i=1 to multinumber
result=request.form("no"&id2(i-1))
if not isempty(result) then
sql="select * from question where id="& clng(id2(i-1))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
if result=rs("answer") then
score=score+cint(multiper)
end if
rs.close
set rs=nothing
else
end if
next
sql="select * from score"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
rs.addnew
rs("studentname")=studentname
rs("subjectname")=subjectname
rs("endtime")=endtime
rs("score")=score
rs.update
rs.close
set rs=nothing
call endConnection()
total=singlenumber*singleper+multinumber*multiper
response.write("<center>"&studentname&"你好！你的考試成績為："&score&"分，總分為"&total&"分</center><br>")
%>
<p align=center><a href="default.asp"><font color=red size=+0 face=楷體>返回登錄界面</font></a></p>
<p align=center><a href="selectsubject.asp"><font color=red size=+0 face=楷體>返回考試界面繼續考試</font></a></p>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -