📄 databaseinfo.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<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="../Default.css">
<script language="javascript">
function dis(id)
{
  if (document.all(id).style.display=="")
  {
    document.all(id).style.display="none";
  }
  else
  {
    document.all(id).style.display="";
  }
}
</script>
</head>

<body>

<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%">当前位置：题库管理 &gt; <font color="#FF0000">题库统计</font></td>
  </tr>
</table>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber2" bgcolor="#F1F1F1">
  <tr>
    <td class="border_blue" colspan="3">&nbsp;选择科目（题库名称）浏览统计结果</td>
  </tr>
  <tr>
    <td width="8%" class="border" align="center">序号</td>
    <td width="40%" class="border" align="center">科目名称（题库名称）</td>
    <td class="border" align="center">所属部门</td>
  </tr>
  <% dim i,sql1,rs1
  i=1
  sql="select * from exam_subject"
  rs.open sql,conn,3,1
  do while not rs.eof %>
  <tr>
    <td width="8%" align="center"><%=i%>　</td>
    <td width="40%">&nbsp;<a href="javascript:dis('info<%=i%>')"><%=rs("exam_subject")%></a></td>
    <td align="center"><%=rs("department")%>　</td>
  </tr>
  <tr>
    <td colspan="3" style="display: none" id="info<%=i%>" bordercolor="#007CD0">
    <% sql1="select count(*) as number from exam_database where havepass=1 and subject='"&rs("exam_subject")&"'"
    set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,3,1
    if not rs.eof then
      response.write "<br><ul>总题数："&rs1("number")&"道</ul>"
    end if
    rs1.close
    
    sql1="select count(*) as number,type from exam_database where havepass=1 and subject='"&rs("exam_subject")&"'group by type"
    set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,3,1
    response.write "<ul>"
    response.write "<font color=#ff0000>题型分布：</font>"
    do while not rs1.eof
      response.write "&nbsp;<li>"&rs1("type")&"："&rs1("number")&"道</li>"
    rs1.movenext
    loop
    response.write "</ul>"
    rs1.close

    sql1="select count(*) as number,difficulty from exam_database where havepass=1 and subject='"&rs("exam_subject")&"'group by difficulty"
    set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,3,1
    response.write "<ul>"
    response.write "<font color=#ff0000>难度分布：</font>"
    do while not rs1.eof
      response.write "&nbsp;<li>"&rs1("difficulty")&"："&rs1("number")&"道</li>"
    rs1.movenext
    loop
    response.write "</ul>"
    rs1.close

    sql1="select count(*) as number,distinction from exam_database where havepass=1 and subject='"&rs("exam_subject")&"'group by distinction"
    set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,3,1
    response.write "<ul>"
    response.write "<font color=#ff0000>区分度分布：</font>"
    do while not rs1.eof
      response.write "&nbsp;<li>"&rs1("distinction")&"："&rs1("number")&"道</li>"
    rs1.movenext
    loop
    response.write "</ul>"
    rs1.close

    sql1="select count(*) as number,knowledge from exam_database where havepass=1 and subject='"&rs("exam_subject")&"'group by knowledge"
    set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,3,1
    response.write "<ul>"
    response.write "<font color=#ff0000>知识点分布：</font>"
    do while not rs1.eof
      response.write "&nbsp;<li>"&rs1("knowledge")&"："&rs1("number")&"道</li>"
    rs1.movenext
    loop
    response.write "</ul>"
    rs1.close

    sql1="select count(*) as number,perception from exam_database where havepass=1 and subject='"&rs("exam_subject")&"'group by perception"
    set rs1=server.createobject("adodb.recordset")
    rs1.open sql1,conn,3,1
    response.write "<ul>"
    response.write "<font color=#ff0000>认知分类分布：</font>"
    do while not rs1.eof
      response.write "&nbsp;<li>"&rs1("perception")&"："&rs1("number")&"道</li>"
    rs1.movenext
    loop
    response.write "</ul>"
    rs1.close
    
     %>　</td>
  </tr>
  <% rs.movenext
  i=i+1
  loop
  rs.close
  set rs=nothing
  set conn=nothing %>
</table>

</body>

</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -