gusucode.com > ASP毕业设计在线考试管理系统源码 > ASP毕业设计在线考试管理系统源码\code\admin\question_saveedit.asp
<!--#include file="db.asp"--> <% id=request("id") subjectview=request("subjectview") typeadd=request("typeadd") if typeadd="单选题" then sql="select * from question 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.update end if if typeadd="多选题" then sql="select * from question 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.update end if if typeadd="判断题" then sql="select * from question 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.update end if %> <script language="javascript"> self.close(); </script>