save0.asp

ASP写的在线考试系统

<!--#include file="connect.asp" -->
<%Subject=request("Subject")
  Name=request("Name")
  StudentID=request("StudentID")
  %>
  <%
  flag=false
  rs.Open "Select * From 成绩表 where StudentID='"& StudentID &"'", conn,3,2
  while not rs.eof
  'response.write rs("试卷名称")
  if rs("试卷名称")= Subject then
  flag=true
  end if
  rs.movenext
  wend
  'response.write flag
 rs.close%>
<% if flag=true then%>
<div align="center"><input type="button" onclick="window.close()" value="退出"></div>
<script language="vbscript">
 msgbox"该记录已写入数据库！"
 location.href="vbscript:window.close()"
 </script>
 <% else 
    rs.Open "Select * From 成绩表 where StudentID='"& StudentID &"'", conn,3,2
   'response.write Subject
  rs.addnew
  rs("Name")=name
  rs("StudentID")=StudentID
  rs("考试时间")=now()
  rs("成绩")=0
  rs("试卷名称")=Subject
  
  rs.update
  rs.close
  end if
  %>
  <div align="center"><font size="5"><b>你已经成功退出!<p>
  此次操作，系统即认为你要交白卷，<p>且你已无资格再次参加这门课的考试！
  <b></font>
  <p>
  <input type="button" onclick="javascript:window.close()" value="关闭窗口">