admindatabasesaveedit.asp

来自「基于遗传算法」· ASP 代码 · 共 65 行

<!--#include file="conn.inc"-->
<%
id=request("id")
subjectview=request("subjectview")
typeadd=request("typeadd")
if typeadd="单选题" then
  sql="select * from exam_database where id="& id
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  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("fenzhi")=request("fenzhi")
  rs("nandu")=request("nandu")
  rs("shijian")=request("shijian")
  rs("qufendu")=request("qufendu")
  rs("chapt")=request("chapt")
  rs.update
end if
if typeadd="多选题" then
  sql="select * from exam_database where id="& id
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  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("fenzhi")=request("fenzhi")
  rs("nandu")=request("nandu")
  rs("qufendu")=request("qufendu")
  rs("chapt")=request("chapt")
  rs.update
end if
if typeadd="判断题" then
  sql="select * from exam_database where id="& id
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs("subject")=subjectview
  rs("type")=typeadd
  rs("question")=request("question")
  rs("answer")=request("answer")
  rs("fenzhi")=request("fenzhi")
  rs("nandu")=request("nandu")
  rs("qufendu")=request("qufendu")
  rs("chapt")=request("chapt")
  rs.update
end if

%>
<script language="javascript">
self.close();
</script>