📄 examprint.asp

📁 一套在线考试系统
💻 ASP
字号:
<!--#include file="conn.asp"-->
<%
dim MyComm,MyRst,TestID,examname,PType,subject,difficulty,totalper
dim singlecount,singleper,multicount,multiper,judgecount,judgeper,sortcount,sortper,inputcount,inputper
dim examtime,starttime,endtime

Set MyComm = Server.CreateObject("ADODB.Command")
MyComm.ActiveConnection = conn
MyComm.CommandText = "P_TestView" 
MyComm.CommandType = 4 
MyComm.Prepared = true 	
MyComm.Parameters.append MyComm.CreateParameter("@TestID",200,1,10,request.querystring("Testid"))
MyRst = MyComm.Execute
Set MyComm = Nothing 

TestID=MyRst("TestID")
examname=MyRst("Title")
subject=MyRst("subject")
totalper=MyRst("totalScore")
difficulty=MyRst("AvgDiff")
singlecount=MyRst("singlecount")
singleper=MyRst("singleper")
multicount=MyRst("multicount")
multiper=MyRst("multiper")
judgecount=MyRst("judgecount")
judgeper=MyRst("judgeper")
sortcount=MyRst("sortcount")
sortper=MyRst("sortper")
inputcount=MyRst("inputcount")
inputper=MyRst("inputper")
examtime=MyRst("TimeLen")
starttime=MyRst("starttime")
endtime=MyRst("endtime")

set MyRst=nothing
%>
<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">
</head>

<body>
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#007CD0" width="100%" id="AutoNumber1">
  <tr>
    <td width="100%" colspan="6" class="border_blue" align="center">考 试 信 息</td>
  </tr>
  <tr>
    <td width="100%" colspan="6">
    <p style="line-height: 150%; margin: 12">考试名称：<font color="#FF0000"><%=examname%></font><br>
    有 效 期：<font color="#FF0000"><%=starttime%></font> 至 <font color="#FF0000"><%=endtime%></font><br>
    考试编号：<font color="#FF0000"><%=Testid%></font> 考试科目：<font color="#FF0000"><%=subject%></font><br>
    卷面总分： <font color="#FF0000"><%=totalper%></font> 分 考试时间： 
    <font color="#FF0000"><%=examtime%></font> 小时 平均难度： 
    <font color="#FF0000"><%=difficulty%></font><br>
    题型分布：单选题 <font color="#FF0000"><%=singlecount%></font> 道，每题 
    <font color="#FF0000"><%=singleper%></font> 分；多选题 <font color="#FF0000">
    <%=multicount%></font> 道，每题 <font color="#FF0000"><%=multiper%></font> 分；判断题 
    <font color="#FF0000"><%=judgecount%></font> 道，每题 <font color="#FF0000">
    <%=judgeper%></font> 分<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
	排序题 <font color="#FF0000"><%=Sortcount%></font> 道，每题 
    <font color="#FF0000"><%=Sortper%></font> 分；录入题 <font color="#FF0000">
    <%=Inputcount%></font> 道，每题 <font color="#FF0000"><%=Inputper%></font> 分</td>
  </tr>
  <tr>
    <td width="100%" colspan="6" class="border_blue" align="center">试卷列表</td>
  </tr>
  <tr>
    <td width="20%" class="border" align="center">试卷编号</td>
    <td width="30%" class="border" align="center">操 作</td>
    <td width="20%" class="border" align="center">试卷编号</td>
    <td width="30%" class="border" align="center">操 作</td>
  </tr>
  <% sql="select * from T_TestPaper where Testid='"&request("Testid")&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,1
  do while not rs.eof %>
  <tr>
    <td width="20%" align="center" bgcolor="#F1F1F1"><%=rs("BH")%>　</td>
    <td width="30%" align="center">
      <a href="printpaper.asp?PaperID=<%=rs("PaperID")%>&PType=0">打印试卷</a>
      <a href="printpaper.asp?PaperID=<%=rs("PaperID")%>&PType=1">打印答案</a>	
    <% rs.movenext
    if rs.eof then
        exit do
    end if %>　</td>
    <td width="20%" align="center" bgcolor="#F1F1F1"><%=rs("BH")%>　</td>
    <td width="30%" align="center">
      <a href="printpaper.asp?PaperID=<%=rs("PaperID")%>&PType=0">打印试卷</a>
      <a href="printpaper.asp?PaperID=<%=rs("PaperID")%>&PType=1">打印答案</a>	
    <% rs.movenext
    if rs.eof then
        exit do
    end if %>　</td>
  </tr>
  <% loop
  rs.close
  set rs=nothing
  set conn=nothing %>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2">
</table>

</body>
</html>
⌨️ 快捷键说明

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