tre_adm_addquestion.asp

教学在线系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conndb/conn.asp"-->
<%
gethid_proid = request("hid_proid")           'gethid_proid: 所选专业
gethid_lessid = request("hid_lessid")           'gethid_proid: 所选课程 
'处理添加选择题
getsubject = replace(trim(request("subject")),"'","")                 'getsubject: 考试题目
geta = replace(trim(request("A")),"'","")                                   'geta: 选项A
getb = replace(trim(request("B")),"'","")
getc = replace(trim(request("C")),"'","")
getd = replace(trim(request("D")),"'","")
getnote = replace(trim(request("note")),"'","")                          'getnote: 注示
getques_type = replace(trim(request("ques_type")),"'","")         'getques_type: 考试类型
if(instr(getques_type,"单选题") > 0)then
getques_answer = replace(trim(request("ques_answer_dan")),"'","")                  'getques_answer: 单选题
else
getques_answer = replace(trim(request("ques_answer_duo")),"'","")                  'getques_answer: 多选题
end if
if(getsubject = "" or geta = "" or getb = "" or getc = "" or getd = "")then
response.redirect("../adm_AddQuestion.asp")
end if

rssql = "insert into Tab_questions(que_subject,que_type,que_joindate,que_lessonid,que_professionid,optionA,optionB,"_
		&"optionC,optionD,que_answer,note) values('"&getsubject&"','"&getques_type&"','"&Date()&"','"_
		&gethid_lessid&"','"&gethid_proid&"','"&geta&"','"&getb&"','"&getc&"','"&getd&"','"&getques_answer&"','"&getnote&"')"
conn.Execute(rssql)

response.redirect("../adm_QueryQuestion.asp")
%>