question_save.asp

网络考试系统 （１）用户注册（２）在线考试（３）在线练习等等。后端通过系统管理员管理包括：（１）用户及权限管理（２）试卷管理（３）成绩管理（４）试题管理（５）题库管理（６）考生信息管理等等。

<!--#include file="conn.asp"-->
<!--#include file="../seeadmin.asp"-->
<%
if request.form("QuestionType")="" then
response.write "<script>alert('请选择试题分类');history.go(-1);</script>"
response.end
end if
artical=Request.Form("content")
Score=trim(request.form("Score"))
Answer=trim(request.form("Answer"))
if not isnumeric(trim(request.form("Score"))) then
response.write "<script>alert('分数为数字');history.go(-1);</script>"
response.end
end if
if trim(request.form("content"))="" then
response.write "<script>alert('请输入试题内容');history.go(-1);</script>"
response.end
end if
if(trim(request.form("QuestionType"))="填空题") then
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from [Question0]",conn,1,3
elseif(trim(request.form("QuestionType"))="单项选择") then
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from [Question]",conn,1,3
elseif (trim(request.form("QuestionType"))="多项选择") then
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from [Question1]",conn,1,3
elseif (trim(request.form("QuestionType"))="判断") then
	set rs=server.createobject("adodb.recordset")
	rs.open "select * from [Question2]",conn,1,3
end if
	rs.addnew
	'rs("QuestionType")=trim(request.form("QuestionType"))
	rs("Question")=artical
	rs("Answer")=Answer
	rs("Score")=cint(Score)
	rs("Major")=trim(request.form("Major"))
	rs("Flag")=trim(request.form("Flag"))
	rs("QuestionType")=trim(request.form("Flag1"))
	rs.update
	rs.close
	set rs=nothing		
response.write "<script>alert('添加试题成功');self.location.href='../question_add.asp';</script>"

%>