admindatabasesaveedit.asp

一套在线考试系统

<!--#include file="conn.asp"-->
<%
Dim id,subject,subjecttype,knowledge,difficulty,distinction,perception,question
dim instruction,text1,text2,text3,text4,text5,text6,answer,standard,testtime,score,department,makeuserid,maketime
Dim topage,str
id=request.form("id")
subject=request.form("subject")
subjecttype=request.form("subjecttype")
knowledge=request.form("knowledge")
difficulty=request.form("difficulty")
distinction=request.form("distinction")
perception=request.form("perception")
question=request.form("question")
instruction=request.form("instruction")
text1=request.form("text1")
text2=request.form("text2")
text3=request.form("text3")
text4=request.form("text4")
text5=request.form("text5")
text6=request.form("text6")
answer=request.form("answer")
standard=request.form("standard")
testtime=request.form("testtime")
score=request.form("score")
if subjecttype="单选题" then
  sql="select * from exam_database where id='"&id&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs("id")="S"&year(date())&month(date())&day(date())&hour(time())&minute(time())&second(time())
  rs("subject")=subject
  rs("type")=subjecttype
  rs("knowledge")=knowledge
  rs("difficulty")=difficulty
  rs("distinction")=distinction
  rs("perception")=perception
  rs("instruction")=instruction
  rs("question")=question
  rs("text1")=text1
  rs("text2")=text2
  rs("text3")=text3
  rs("text4")=text4
  rs("text5")=text5
  rs("text6")=text6
  rs("answer")=answer
  rs("standard")=standard
  rs("testtime")=testtime
  rs("score")=score
  rs.update
  topage="admindatabase.asp"
  response.redirect topage
end if
if subjecttype="多选题" then
  sql="select * from exam_database where id='"&id&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs("id")="M"&year(date())&month(date())&day(date())&hour(time())&minute(time())&second(time())
  rs("subject")=subject
  rs("type")=subjecttype
  rs("knowledge")=knowledge
  rs("difficulty")=difficulty
  rs("distinction")=distinction
  rs("perception")=perception
  rs("instruction")=instruction
  rs("question")=question
  rs("text1")=text1
  rs("text2")=text2
  rs("text3")=text3
  rs("text4")=text4
  rs("text5")=text5
  rs("text6")=text6
  rs("answer")=answer
  rs("standard")=standard
  rs("testtime")=testtime
  rs("score")=score
  rs.update
  topage="admindatabase.asp"
  response.redirect topage
end if
if subjecttype="判断题" then
  sql="select * from exam_database where id='"&id&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  rs("id")="J"&year(date())&month(date())&day(date())&hour(time())&minute(time())&second(time())
  rs("subject")=subject
  rs("type")=subjecttype
  rs("knowledge")=knowledge
  rs("difficulty")=difficulty
  rs("distinction")=distinction
  rs("perception")=perception
  rs("instruction")=instruction
  rs("question")=question
  rs("answer")=answer
  rs("standard")=standard
  rs("testtime")=testtime
  rs("score")=score
  rs.update
  topage="admindatabase.asp"
  response.redirect topage
end if
%>