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

📄 ksjc.asp

📁 这是ASP的网上考试系统。 希望大家来分享
💻 ASP
字号:
<!-- #include file="cookies.asp" -->
<!-- #include file="kstime.asp" -->
<!-- #include file="conn.asp" -->
<html>
<head>
<title>检查您的答卷</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body bgcolor="#FFFFFF" text="#000000">
<%
set rs=server.createobject("adodb.recordset")
sql="select * from kstype where id="&request.cookies("kstypeid")
rs.open sql,conn,1,1
if not rs.eof then
dim kstype
kstype=trim(rs("kstype"))
end if
rs.close
set rs=nothing
%>
<div align="center">
  <table width="90%" border="0">
    <tr> 
      <td height="30" bgcolor="#86A294">
        <div align="center"><b>检查您的试卷</b>(试卷内容:<%=kstype%>,考生姓名:<%=request.cookies("studentname")%>)</div>
      </td>
    </tr>
  </table>
    
  您的考试时间还剩下:<font color="#ff0000"><%=stime%></font>分钟<br>
  <input type="button" name="Submit" value="重新做题" onClick="location.href='ksright.asp?tt=again';">
  <input type="button" name="Submit32" value="交卷" onClick="location.href='end.asp?t=s';">
  <table width="90%" border="0">
    <%
  set rs=server.createobject("adodb.recordset")
  sql="select * from ks where kstypeid="&request.cookies("kstypeid")
  rs.open sql,conn,1,1
  if not rs.eof then
  dim i
  i=1
  do while not rs.eof 
  %>
    <tr> 
      <td height="25" bgcolor="#DBE3DF"><b>(<%=i%>)题目:</b><font color="0000ff"><%=trim(rs("title"))%></font></td>
    </tr>
    <tr> 
      <td height="25" bgcolor="#DBE3DF"><b>可选择答案:</b><font color="#0000FF">A、</font><%=trim(rs("a"))%> <font color="#0000FF">B、</font><%=trim(rs("b"))%> <font color="#0000FF">C、</font><%=trim(rs("c"))%> <font color="#0000FF">D、</font><%=trim(rs("d"))%></td>
    </tr>
    <tr> 
      <%
	set rs1=server.createobject("adodb.recordset")
	sql1="select * from ksa where ksid="&rs("id")&" and student='"&request.cookies("studentname")&"'"
	rs1.open sql1,conn,1,1
	if not rs1.eof then
	dim da
	da=trim(rs1("da"))
	end if
	rs1.close
	set rs1=nothing
	%>
      <td height="25" bgcolor="#DBE3DF"><b>您的答案:</b><font color="#FF0000">[<%=da%>]</font>
          
        <input type="button" name="Submit3" value="修改" onclick="location.href='ksright3.asp?ksid=<%=trim(rs("id"))%>';">
      </td>
    </tr>
    <tr>
      <td height="25">&nbsp;</td>
    </tr>
	<%
	i=i+1
	rs.movenext
	loop
	end if
	rs.close
	set rs=nothing
	conn.close
	set conn=nothing
	%>
  </table>
</div>
</body>
</html>

⌨️ 快捷键说明

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