tre_adm_updatequestion.asp

教学在线系统

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../../conndb/conn.asp"-->
<%
gethid_proid = request("hid_proid")
gethid_lessid = request("hid_lessid")
gethid_id = request("hid_id")
'处理修改选择题
getsubject = replace(trim(request("subject")),"'","")
geta = replace(trim(request("A")),"'","")
getb = replace(trim(request("B")),"'","")
getc = replace(trim(request("C")),"'","")
getd = replace(trim(request("D")),"'","")
getnote = replace(trim(request("note")),"'","")
getques_type = replace(trim(request("ques_type")),"'","")
if(instr(getques_type,"单选题") > 0)then
getques_answer = replace(trim(request("ques_answer_dan")),"'","")
else
getques_answer = replace(trim(request("ques_answer_duo")),"'","")
end if

if(getsubject = "" or geta = "" or getb = "" or getc = "" or getd = "")then
response.redirect("../adm_QueryQuestion.asp")
end if

rssql = "update Tab_questions set que_subject = '"&getsubject&"',que_type = '"&getques_type&"',que_lessonid = '"&gethid_lessid&"',"_
		&"que_professionid = '"&gethid_proid&"',optionA = '"&geta&"',optionB = '"&getb&"',"_
		&"optionC = '"&getc&"',optionD = '"&getd&"',que_answer = '"&getques_answer&"',note = '"&getnote&"' where id = "&gethid_id
response.write(rssql)
conn.Execute(rssql)
response.redirect("../adm_QueryQuestion.asp")
%>