⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 admin_cx_test_mc.asp

📁 朱不正在线考试系统 2008源码
💻 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")




 %>   

<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,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=1;"

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%">当前位置:练习成绩 &gt; <%=rs("kcm")%>&gt; 第<%=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="173">
    <tr class="trh">
      <td width="38" align="center" bgcolor="#799AE1" height="23">
      <font color="#FFFFFF"><b>序号</b></font></td>
      <td align="center" bgcolor="#799AE1" width="598" height="23">
      <p align="center"><font color="#FFFFFF"><b>名词解释  (共<%=rs.recordcount%>题)</b></font></td>
    </tr>
    <%  



rs.PageSize =5

Page = CLng(Request("Page"))

If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*4
rs.AbsolutePage = Page
For iPage = 1 To rs.PageSize




  
 


     sql3="SELECT * FROM  userdata where username='"&username&"' and  tmid="&rs("tmid")
   set rs3=server.createobject("adodb.recordset")
   rs3.open sql3,conn,3,2

%>
    <tr class="trh1">
      <td align="center"   height="35" width="38"><%=i%> </td>
      <td align="left" width="598" height="35"><br>试题——<%=rs("title")%>
       <br><% if len(rs("photo")) > 1 then
            %> <center>
      <img border="0" src="examimage/<%=rs("photo")%>"></center> 
       <br><% end if %>
       标准答案:<b><%=rs3("ans")%></b>
   <br>您的答案: <%=rs3("uans")%><br><br></td>
    </tr>
    <% 
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
    <tr>
      <td align="center" bgcolor="#FFFFFF" height="34" width="640" colspan="2" 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 %>&nbsp;
        <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 + -