📄 showmeresult.asp
字号:
<!--#include file=Conn.asp !-->
<!--#include file=FuncTions.asp !-->
<%
TestID=request("TestID")'自测ID号
SQls="Select * from TestName where TestID="&TestID
Set Rss=Server.CreateObject("Adodb.RecordSet")
Rss.open SQLs,Conn,1,1
TopResult=Rss("TotalResult")'卷面分
TestName = Rss("TestName")
Subject = Rss("Subject")
ResultA = Rss("ResultA")
ResultB = Rss("ResultB")
ResultC = Rss("ResultC")
Rss.close()
Set Rss=Nothing
%>
<html>
<head>
<title><%=application("TestVerSion")%>_自测成绩</title>
<meta http-equiv="Content-Language" content="zh-cn">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
<style type="text/css">
BODY
{
FONT-FAMILY: "宋体";
FONT-SIZE: 9pt;
background-color: #B1DB99;
}
.p1{FONT-FAMILY: "宋体";font-size:9pt ; }
.INPUT {
BACKGROUND-COLOR: #f0f1f7; BORDER-BOTTOM-WIDTH: 1px; BORDER-LEFT-WIDTH: 1px; BORDER-RIGHT-WIDTH: 1px; BORDER-TOP-WIDTH: 1px; CURSOR: hand; FONT-FAMILY: 宋体, Arial, Helvetica; FONT-SIZE: 9pt; HEIGHT: 20px; PADDING-BOTTOM: 1px; PADDING-LEFT: 1px; PADDING-RIGHT: 1px; PADDING-TOP: 1px
}
</style>
</head>
<body topmargin="0">
<!--#include file="Menu.asp"-->
<table border=0 width="760" align=center cellpadding=0 cellspacing=0>
<table align=center width=98% class=p1 >
<tr><td colspan=6 align=center bgcolor="#66C06D"><br>测试标题：<font color=blue size=5><%=TestName%></font>
<br><BR>
</td></tr>
<tr height=25 bgcolor="#66FF99">
<td >ID</td><td>标题</td><td>正确答案</td><td>您所选答案</td><td>判断</td><td>最后得分</td>
</tr>
<%
score=0
j=0
iTrTd=""
ID1=Trim(Request.Form("ID1"))
ID2=Trim(Request.Form("ID2"))
ID3=Trim(Request.Form("ID3"))
Scores=0
Sub ShowMeResult(IDS,iResult,Scores,iType)
s=Split(IDS,";")
U=uBound(s)
iTrTd=""
Response.Write "<tr height=25><td colspan=6 bgcolor=#CAE4FF>"&iType&"</td></tr>"&chr(10)&chr(13)
For i=U-1 To 0 Step -1
sql="select question,answer from TestTopic where id="& clng(s(i))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
a=rs(1)
b=Request.Form("NO"&s(i))
c=cint(iResult)
iScore=GetScore(a,b,c)
iTrTd=iTrTd&"<tr height=25><td> 第 "&u-i&" 题</td><td><a href='ShowMeOneTest.asp?ID="&s(i)&"&iResult="&a&"' target=_blank>"&rs(0)&"</td><td align=center>"&a&"</td><td align=center>"&b&"</td><td align=center>"&YesOrNo(iScore,c)&"</td><td align=center>"&iScore&"</td></tr>"&chr(10)&chr(13)
Scores=Scores+iScore
Next
Response.Write iTrTd
End Sub
If ID1<>"" Then Call ShowMeResult(ID1,ResultA,Scores,"单项选择题,每题"&ResultA&"分")
If ID2<>"" Then Call ShowMeResult(ID2,ResultB,Scores,"多项选择题,每题"&ResultA&"分")
If ID3<>"" Then Call ShowMeResult(ID3,ResultC,Scores,"判断题,每题"&ResultA&"分")
Response.Write "<tr><td colspan=6>"
Response.Write "感谢您的参与，该卷满分为："& TopResult &" 分。<BR>"
Response.Write "您的成绩是：<font color=red size=5>" & Scores &"</font> 分</b><BR>"
If TopResult<>100 Then '提供参考作用
iPer=FormatNumber(Scores/TopResult,2)*100
Response.Write "<font color=#cccccc>您的得分比例为："&iPer&"%，即如果该卷为100的话，您就得了："& iper &"分</font><br>"
End If
%>
<BR><BR>
<%
'分数判断，并选择
Set rs=Server.CreateObject("Adodb.RecordSet")
oSql="Select * from AboutResult where TestID="& TestID &" and Result1<="& score &" and Result2>="&score
'Response.Write oSql
rs.open oSql,Conn,1,1
If rs.eof Then Response.Write "无符合条件的分数说明！"
While Not rs.eof
Response.Write "<font color=red>说明：</font><font color=#009966>"&rs("Intro")&"</font>"
rs.MoveNext
Wend
rs.close()
Set rs=Nothing
%>
<br><BR>
<input type=button value="重新测试" onClick="Javascript:history.go(-1);" class=input>
</td></tr>
</table><br>
<br>
</td></tr>
</table>
<br>
<%
'更新记录试卷表_自测记录
'on error resume next
Sql="update TestName set TestCount=TestCount+1 where TestID="&TestID
conn.execute (sql)
DoTime=now()
StartTime=Request.form("StartTime")
EndTime=DateDiff("n", StartTime, DoTime)
if EndTime<1 then EndTime=1
ip=Request.ServerVariables("REMOTE_ADDR")
sql="insert into TestCount (UserName,DoTime,EndTime,DoTitle,DoResult) values ('"&Session("UserName")&"','"&DoTime&"','"&EndTime&"','"&Trim(TestName)&"','"&scores&"')"
conn.execute(sql)'增加自测人数
conn.close()
%>
<!--#include file=Foot.asp !-->
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -