admindatabasesave.asp

来自「网络考试系统最终备份」· ASP 代码 · 共 81 行

<!--#include file="conn.inc"-->
<%
subjectview=request("subjectview")
v_sknow = request("sknow")
v_kname = request("kname")
v_dif = request("fdif_button")
sid = "select * from subject_info where SubName ='"&subjectview&"' "
set rsid = server.CreateObject("adodb.recordset")
rsid.open sid,conn,3,2
subid = rsid("SubID")
rsid.close()
set rsid = nothing

typeadd=request("typeadd")
  if typeadd="0" then
  sql="select * from question_database"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  rs("Sub_ID")=subid
  rs("Que_Type")=typeadd
  rs("Question")=request("Question")
  rs("Option1")=request("Option1")
  rs("Option2")=request("Option2")
  rs("Option3")=request("Option3")
  rs("Option4")=request("Option4")
  rs("Option5")=request("Option5")
  rs("Option6")=request("Option6")
  rs("StandKey")=request("answer")
  
  rs("DiffRate") = v_dif
  rs("Knowledge_ID") = v_sknow
  rs("setTime") = now
  rs("set_User_ID") = request.Cookies("userid")
  rs.update
  topage="admindatabaseadd.asp?sName=" & subjectview & "&typeadd=" & typeadd & "&sknow="&v_sknow &"&sdiff="&v_dif&"&subject="&subid &"&kname="&v_kname&"&str=添加成功！请继续添加题目！"
  response.redirect topage
end if
if typeadd="1" then
  sql="select * from question_database"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  rs("Sub_ID")=subid
  rs("Que_Type")=typeadd
  rs("Question")=request("Question")
  rs("Option1")=request("Option1")
  rs("Option2")=request("Option2")
  rs("Option3")=request("Option3")
  rs("Option4")=request("Option4")
  rs("Option5")=request("Option5")
  rs("Option6")=request("Option6")
  rs("StandKey")=request("answer")
  
  rs("DiffRate") = v_dif
  rs("Knowledge_ID") = v_sknow
  rs("setTime") = now
  rs("set_User_ID") = request.Cookies("userid")
  rs.update
  topage="admindatabaseadd.asp?sName=" & subjectview & "&typeadd=" & typeadd & "&sknow="&v_sknow &"&sdiff="&v_dif&"&subject="&subid &"&kname="&v_kname&"&str=添加成功！请继续添加题目！"
  response.redirect topage
end if
if typeadd="2" then
  sql="select * from question_database"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs.addnew
  rs("Sub_ID")=subid
  rs("Que_Type")=typeadd
  rs("Question")=request("Question")
  rs("StandKey")=request("answer")
  
  rs("DiffRate") = v_dif
  rs("Knowledge_ID") = v_sknow
  rs("setTime") = now
  rs("set_User_ID") = request.Cookies("userid")
  rs.update
  topage="admindatabaseadd.asp?sName=" & subjectview & "&typeadd=" & typeadd & "&sknow="&v_sknow &"&sdiff="&v_dif&"&subject="&subid &"&kname="&v_kname&"&str=添加成功！请继续添加题目！"
  response.redirect topage
end if
%>