save.asp

基于ASP的网上考试系统源码

<!-- #include file="connect.asp" -->
<%
Subject=request("Subject")
questiontype=request("questiontype")
questionNo=request("questionNo")
question=request("question")
fen=request("fen")
s1=request("s1")
s2=request("s2")
s3=request("s3")
s4=request("s4")
answer=request("answer")
if questiontype="" or questionNo="" or question="" or fen="" or s1="" or s2="" or s3="" or s4="" or answer="" then
%>
<script language="vbscript">
msgbox "所填信息不完整,请查正!"
location.href="javascript:history.back()"
</script>
<%else
rs.open "select * from "&Subject&" where 题目序号="&questionNo,conn,2,2
if (not rs.eof) and (not rs.bof) then   
  rs("题目类型")=questiontype
  rs("题目")=question
  rs("本题分数")=fen
  rs("选择项1")=s1
  rs("选择项2")=s2
  rs("选择项3")=s3
  rs("选择项4")=s4
  rs("正确答案")=answer
  rs.update

else
rs.addnew
  rs("题目类型")=questiontype
  rs("题目")=question
  rs("题目序号")=questionNo
  rs("本题分数")=fen
  rs("选择项1")=s1
  rs("选择项2")=s2
  rs("选择项3")=s3
  rs("选择项4")=s4
  rs("正确答案")=answer
  rs.update

end if  
rs.close
end if %>
<script language="vbscript">
msgbox"你已经成功修改了本题！"
location.href="modifile.asp?id=<%=Subject%>"
</script>