📄 dianpin.asp
字号:
<!--#include file="open.asp" -->
<!--#include file="inc/md5.inc" -->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!--#include file="inc/css.css" -->
<title>试卷点评</title>
</head>
<body topmargin="1">
<!--#include file="inc/top.asp" -->
<!--#include file="inc/menu.asp" -->
<%
dpid=trim(request.form("dpid"))
dppage=request.form("dppage")
if dpid="" or dppage="" then
session("zzstudent")=false
end if
if session("zzstudent")=false then
if dpid<>"" and dppage<>"" then
str="select * from user_st where xj_id='"&dpid&"'"
set rs=conn.execute(str)
if rs.eof then
msg="学籍卡号出错，请正确输入学籍卡号"
session("zzstudent")=false
else
dpbj=rs("class")
str="select * from test_gl where 数据表名='"&dppage&"' and 考试班级='"&dpbj&"'"
set rs=conn.execute(str)
if not rs.eof then
session("zzstudent")=true
else
msg="没有适合你的试卷"
session("zzstudent")=false
end if
end if
end if
end if
'若未登录显示登录
if session("zzstudent")=false then
str="select * from config"
set rs=conn.execute(str)
school=rs("school_name")
testkemo=rs("kemo")
id_config=rs("student_id")
str="select * from test_gl where 批改='1'"
set rs=conn.execute(str)
%>
<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="ff99cc" bgcolor="edebeb">
<tr>
<td valign="top">
<form name="form1" method="post" action="">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="unnamed6"> </td>
</tr>
</table>
<table width="499" border="1" align="center" cellpadding="0" cellspacing="0" bgcolor="#FF6600">
<tr>
<td width="491" height="40" colspan="2" bgcolor="#CCCCCC" class="unnamed18"><div align="center"><%=school&testkemo%>在线考试试卷点评</div></td>
</tr>
<% if not rs.eof then%>
<tr>
<td height="30" class="unnamed14"><div align="right">学籍卡号： </div></td>
<td class="unnamed14">
<input name="dpid" type="text" id="dpid" value="<%=id_config%>" size="20" maxlength="19"></td>
</tr>
<tr>
<td height="30" class="unnamed14"><div align="right">选择试卷： </div></td>
<td height="30" class="unnamed14">
<select name="dppage" id="dppage">
<%do while not rs.eof%>
<option value=<%=rs("数据表名")%> selected><%=rs("考试名称")%></option>
<%rs.movenext
loop%>
</select></td>
</tr>
<tr>
<td height="30" colspan="2" bgcolor="#CCCCCC" class="unnamed14"><div align="center">
<input type="submit" name="Submit" value=" 进 入 ">
</div></td>
</tr>
<%else%>
<tr>
<td height="30" colspan="2" class="unnamed14"><div align="center">没有任何已批改的试卷可点评
</div></td>
</tr>
<%end if%>
</table>
</form>
</td>
</tr>
</table>
<div align="center">
<%if msg<>"" then%>
<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="ff99cc" bgcolor="edebeb">
<tr>
<td height="30" >
<div align="center"> <font color="#FF0000"> <span class="unnamed14">
<%response.write msg%>
</span> </font> </div></td></tr></table>
<%end if
end if%>
<%if session("zzstudent")=true then%>
<%str="select * from "&dppage&" where xj_id='"&dpid&"'"
set rs=conn.execute(str)%>
<table width="770" border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="ff99cc" bgcolor="edebeb">
<tr>
<td width="200" valign="top">
<table width="163" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td colspan="2" class="unnamed4"> </td>
</tr>
<tr>
<td colspan="2" background="images/nxmt_lj_46.gif" class="unnamed10"> </td>
</tr>
<tr>
<td height="20" colspan="2" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center">班级：<%=rs("class")%></div></td>
</tr>
<tr>
<td height="20" colspan="2" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center">姓名：<%=rs("name")%></div></td>
</tr>
<tr>
<td height="20" colspan="2" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center">答对试题：<%=rs("答对数")%>个</div></td>
</tr>
<tr>
<td height="20" colspan="2" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center">答错试题：<%=rs("答错数")%>个 </div></td>
</tr>
<tr>
<td colspan="2" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center">总得分：<%=rs("总得分")%></div></td>
</tr>
<tr>
<td height="20" colspan="2" valign="bottom" background="images/nxmt_lj_44.gif" class="unnamed12">
<div align="center"><a href="quit.asp" class="unnamed14">退 出</a></div></td>
</tr>
<tr>
<td colspan="2" background="images/nxmt_lj_45.gif" class="unnamed10"> </td>
</tr>
<tr>
<td colspan="2" class="unnamed6"> </td>
</tr>
</table></td>
<td width="570" valign="top"><div align="center" class="unnamed18">
<table width="400" border="0" cellspacing="0" cellpadding="0">
<tr>
<td class="unnamed6"> </td>
</tr>
</table>
<font color="#0000FF"><strong>详 细 情 况</strong></font>
<%
all_da_ok=rs("正确答案")
test_count=len(all_da_ok)
all_test_no=rs("试题编号")
response.write rs("正确答案")
all_da=rs("答案")
test_no=1
%>
<table width="500" border="1" cellpadding="0" cellspacing="0" class="unnamed12">
<tr>
<% do while test_no<=test_count
da_ok=mid(all_da_ok,test_no,1)
da=mid(all_da,test_no,1)
test_bh=mid(all_test_no,test_no*4-3,4)
test_bh=cint(test_bh)
if da_ok=da then yn="<font color=#0000FF> 正确</font>" else yn="<font color=#FF0000> 错误</font>" end if
%>
<td height="25">
<div align="center"><a href=disp_tm.asp?tm_no=<%=test_bh%>&your_da=<%=da%>>第<%=test_no%>题</a><%=yn%></div></td>
<% if test_no/5=int(test_no/5) then response.write "</tr><tr>" end if
test_no=test_no+1
loop%>
</tr>
</table>
</div></td>
</tr>
</table>
<%end if%>
<%conn.close%>
<!--#include file="inc/bottom.asp" -->
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -