www.gusucode.com > ASP毕业设计在线考试管理系统源码 > ASP毕业设计在线考试管理系统源码\code\admin\question_save.asp

    <!--#include file="db.asp"-->
<%
subjectview=request("subjectview")
typeadd=request("typeadd")

if typeadd="单选题" then
  sql="select * from question where question='"&trim(request("question"))&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2

if Not rs.EOF then
	topage="question_add.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=试题已经存在"
Else
  rs.addnew
  rs("subject")=subjectview
  rs("type")=typeadd
  rs("question")=request("question")
  rs("text1")=request("text1")
  rs("text2")=request("text2")
  rs("text3")=request("text3")
  rs("text4")=request("text4")
  rs("text5")=request("text5")
  rs("text6")=request("text6")
  rs("answer")=request("answer")
rs("mark")=0
  rs.update
  topage="question_add.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！"
 End if
  response.redirect topage
end if
if typeadd="多选题" then
  sql="select * from question where question='"&trim(request("question"))&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
if Not rs.EOF then
	topage="question_add.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=试题已经存在"
Else
  rs.addnew
  rs("subject")=subjectview
  rs("type")=typeadd
  rs("question")=request("question")
  rs("text1")=request("text1")
  rs("text2")=request("text2")
  rs("text3")=request("text3")
  rs("text4")=request("text4")
  rs("text5")=request("text5")
  rs("text6")=request("text6")
  rs("answer")=request("answer")
rs("mark")=0
  rs.update
  topage="question_add.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！"
end if
  response.redirect topage
end if
if typeadd="判断题" then
  sql="select * from question where question='"&trim(request("question"))&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
if Not rs.EOF then
	topage="question_add.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=试题已经存在"
Else
  rs.addnew
  rs("subject")=subjectview
  rs("type")=typeadd
  rs("question")=request("question")
  rs("answer")=request("answer")
rs("mark")=0
  rs.update
  topage="question_add.asp?subjectview=" & subjectview & "&typeadd=" & typeadd & "&str=添加成功！请继续添加题目！"
  end if
  response.redirect topage
end if

%>