📄 admin_cx_test_yued.asp
字号:
<!--#include file="conn.asp"-->
<%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
%>
<%
userid=request("userid")
sql1="SELECT * from tbuser where userid="&userid
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
username=rs1("username")
kcid=request("kcid")
nianji=rs1("nianji")
banji=rs1("banji")
chapter=request("chapter")
category=request("category")
sql_count="SELECT tbtk.tmid,userdata.dataid FROM tbkc,userdata ,tbtk where username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid=tbkc.kcid and tbkc.kcid="&kcid&" and chapter="&chapter&" and category=8 and kao=0"
set rs_count=server.createobject("adodb.recordset")
rs_count.open sql_count,conn,3,2
xiaotino=0
yued_fen=0
do while not rs_count.eof
sql_fen1="SELECT * FROM userdataread where username='"&username&"' and dataid="&rs_count("dataid")&" and tmid="&rs_count("tmid")&" and paperno=0 "
set rs_fen1=server.createobject("adodb.recordset")
rs_fen1.open sql_fen1,conn,3,2
xiaotino=rs_fen1.recordcount+xiaotino
rs_count.movenext
loop
%>
<html>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>查看练习成绩——阅读理解</title>
<link rel="stylesheet" type="text/css" href="css.css">
<script language="JavaScript">
<!--
function FP_swapImg() {//v1.0
var doc=document,args=arguments,elm; for(var n=2; n<args.length; n+=2) {
elm=FP_getObjectByID(args[n]); if(elm) { if(!doc.$imgSwaps)doc.$imgSwaps=new Array();
doc.$imgSwaps[doc.$imgSwaps.length]=elm; elm.$src=elm.src; elm.src=args[n+1]; } }
}
function FP_preloadImgs() {//v1.0
var d=document,a=arguments; if(!d.FP_imgs) d.FP_imgs=new Array();
for(var i=0; i<a.length; i++) { d.FP_imgs[i]=new Image; d.FP_imgs[i].src=a[i]; }
}
function FP_getObjectByID(id,o) {//v1.0
var c,el,els,f,m,n; if(!o)o=document; if(o.getElementById) el=o.getElementById(id);
if(o.layers) c=o.layers; else if(o.all) el=o.all[id]; if(el) return el;
if(o.id==id || o.name==id) return o; if(o.childNodes) c=o.childNodes; if(c)
for(n=0; n<c.length; n++) { el=FP_getObjectByID(id,c[n]); if(el) return el; }
f=o.forms; if(f) for(n=0; n<f.length; n++) { els=f[n].elements;
for(m=0; m<els.length; m++){ el=FP_getObjectByID(id,els[n]); if(el) return el; } }
return null;
}
// -->
</script>
</head>
<body><center><b><%=nianji%>级--<%=banji%>——<%=username%></b></center>
<%
sql="SELECT tbtk.tmid, tbtk.title,tbtk.category, tbkc.kcid, tbkc.kcm, tbtk.chapter,a,b,c,d,e,f,photo FROM tbkc, userdata, tbtk WHERE username='"&username&"' and userdata.tmid=tbtk.tmid and tbtk.kcid=tbkc.kcid and tbkc.kcid="&kcid&" and chapter="&chapter&" and kao=0 and category=8;"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
%><center>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">当前位置：成绩查询 > <%=rs("kcm")%>> 第<%=rs("chapter")%>章
</td>
</tr>
</table></center>
<center><form name="viewdatabase" ACTION="<%=Myself%>" method="post">
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="100%" id="AutoNumber1" height="373">
<tr class="trh">
<td width="49" align="center" bgcolor="#799AE1" height="22">
<font color="#FFFFFF"><b>序号</b></font></td>
<td align="center" bgcolor="#799AE1" width="702" height="22">
<p align="center"><font color="#FFFFFF"><b>阅读理解（共<%=rs_count.recordcount&"大题--"&xiaotino&"小题"%>）</b></font></td>
</tr>
<%
rs.PageSize =1
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*0
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize
%>
<tr>
<td align="center" bgcolor="#FFFDE8" height="68" width="59" bordercolor="#215DC6"><%=i%> </td>
<td align="center" bgcolor="#FFFDE8" height="68" width="691" bordercolor="#215DC6">
<table border="0" cellpadding="0" width="89%">
<tr>
<td><br>试题——<%=htmlencode(rs("title"))%><br>
<% if len(rs("photo")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rs("photo")%>"></center>
<br><% end if %><hr color="#000000">
</td>
</tr>
<%
sqlyued1="SELECT * FROM tbread WHERE tmid="&rs("tmid")&""
set rsyued1=server.createobject("adodb.recordset")
rsyued1.open sqlyued1,conn,3,2
do while not rsyued1.eof
sqlyued3="SELECT * FROM userdataread WHERE username='"&username&"' and paperno=0 and noid="&rsyued1("noid")&" and tmid="&rsyued1("tmid")
set rsyued3=server.createobject("adodb.recordset")
rsyued3.open sqlyued3,conn,3,2
%>
<tr>
<td>(<%=rsyued1("readno")%>)、<%=htmlencode(rsyued1("xiaoti"))%>——(难度:<%
if rsyued1("slevel")=1 then
response.write "容易"
end if
if rsyued1("slevel")=2 then
response.write "中等"
end if
if rsyued1("slevel")=3 then
response.write "较难"
end if
if rsyued1("slevel")=4 then
response.write "最难"
end if
%>) <br><% if len(rsyued1("pic")) > 1 then
%> <center>
<img border="0" src="examimage/<%=rsyued1("pic")%>">
</center>
<br><% end if %>
<% if rsyued1("a")<>"" then %> A.<%=rsyued1("a")%><br><%end if%>
<% if rsyued1("b")<>"" then %> B.<%=rsyued1("b")%><br><%end if%>
<% if rsyued1("c")<>"" then %> C.<%=rsyued1("c")%><br><%end if%>
<% if rsyued1("d")<>"" then %> D.<%=rsyued1("d")%><br><%end if%>
<% if rsyued1("e")<>"" then %> E.<%=rsyued1("e")%><br><%end if%>
<% if rsyued1("f")<>"" then %> F.<%=rsyued1("f")%><br><%end if%>
标准答案： <b><% if trim(rsyued3("rans"))="A" then %>A.<%=rsyued1("a")%><%end if%>
<% if trim(rsyued3("rans"))="B" then %>B.<%=rsyued1("b")%><%end if%>
<% if trim(rsyued3("rans"))="C" then %>C.<%=rsyued1("c")%><%end if%>
<% if trim(rsyued3("rans"))="D" then %>D.<%=rsyued1("d")%><%end if%>
<% if trim(rsyued3("rans"))="E" then %>E.<%=rsyued1("e")%><%end if%>
<% if trim(rsyued3("rans"))="F" then %>F.<%=rsyued1("f")%><%end if%></b><br>
您的答案：<%
'--------------------------------
if trim(rsyued3("ruans"))="A" then %>
<% if trim(rsyued3("ruans"))<>trim(rsyued3("rans")) then
response.write "<font color=red>"%>
A.<%=rsyued1("a")%>
<% response.write "</font>"
else
%>
A.<%=rsyued1("a")%>
<%end if%>
<%end if%>
<% '--------------------------------
if trim(rsyued3("ruans"))="B" then %>
<% if trim(rsyued3("ruans"))<>trim(rsyued3("rans")) then
response.write "<font color=red>"%>
B.<%=rsyued1("b")%>
<% response.write "</font>"
else
%>
B.<%=rsyued1("b")%>
<%end if%>
<%end if%>
<%'------------------------------------
if trim(rsyued3("ruans"))="C" then %>
<% if trim(rsyued3("ruans"))<>trim(rsyued3("rans")) then
response.write "<font color=red>"%>
C.<%=rsyued1("c")%>
<% response.write "</font>"
else
%>
C.<%=rsyued1("c")%>
<%end if%>
<%end if%>
<% '-------------------------------------
if trim(rsyued3("ruans"))="D" then %>
<% if trim(rsyued3("ruans"))<>trim(rsyued3("rans")) then
response.write "<font color=red>"%>
D.<%=rsyued1("d")%>
<% response.write "</font>"
else
%>
D.<%=rsyued1("d")%>
<%end if%><%end if%>
<% '---------------------------------------
if trim(rsyued3("ruans"))="E" then %>
<% if trim(rsyued3("ruans"))<>trim(rsyued3("rans")) then
response.write "<font color=red>"%>
E.<%=rsyued1("e")%>
<% response.write "</font>"
else
%>
E.<%=rsyued1("e")%>
<%end if%><%end if%>
<% '-----------------------------------
if trim(rsyued3("ruans"))="F" then %>
<% if trim(rsyued3("ruans"))<>trim(rsyued3("rans")) then
response.write "<font color=red>"%>
F.<%=rsyued1("f")%>
<% response.write "</font>"
else
%>
F.<%=rsyued1("f")%>
<%end if%><%end if%>
<br><hr color="#4455AA"> </td>
</tr>
<% rsyued1.movenext
loop
%></table>
</td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
<tr>
<td align="center" bgcolor="#FFFFFF" height="35" width="48" bordercolor="#FFFFFF">
</td>
<td align="center" bgcolor="#FFFFFF" height="35" width="700" bordercolor="#FFFFFF">
<img border="0" id="img1" src="images/button2.gif" height="19" width="95" alt="关闭窗口" onmouseover="FP_swapImg(1,0,/*id*/'img1',/*url*/'images/button4.gif')" onmouseout="FP_swapImg(1,0,/*id*/'img1',/*url*/'images/button2.gif')" onmousedown="FP_swapImg(1,0,/*id*/'img1',/*url*/'images/button6.gif')" onmouseup="self.close()" fp-style="fp-btn: Embossed Rectangle 1; fp-font: 宋体-方正超大字符集; fp-font-style: Bold; fp-transparent: 1; fp-orig: 0" fp-title="关闭窗口"></td>
</tr>
<caption></caption>
</table>
</form>
</center>
<center> <form ACTION="<%=Myself%>" METHOD="GET">
<table style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<tr>
<td width="576">
<p ALIGN="center"><%If Page <> 1 Then ' 如果不是位于第一页%>
<a href="<%=Myself%>?Page=1&kcid=<%=kcid%>&chapter=<%=chapter%>&userid=<%=userid%>">第一页</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&kcid=<%=kcid%>&chapter=<%=chapter%>&userid=<%=userid%>">上一页</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一页
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&kcid=<%=kcid%>&chapter=<%=chapter%>&userid=<%=userid%>">下一页</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&kcid=<%=kcid%>&chapter=<%=chapter%>&userid=<%=userid%>">最后一页</a>
<% End If %>
<font SIZE="2">页次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
<p> </td>
</tr>
</table>
</form>
</center>
<%
%>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -