sj.asp

这是用asp做的一个网上考试题库系统

  if request.QueryString("ID")<>"" then
       sql="Select * from TestPaper where PaperID="&request.QueryString("ID")
    else
        sql="Select * from TestPaper"
    end if       
	objRS.Open sql,objConn,2,3
    if request.QueryString("ID")="" then
      objRS.AddNew
    end if 
   objRS("SelectCourseID")=Session("course_id")
   objRS("PaperType")=2
   objRS("PaperHeader")=request("Title")
   Session("Title")=request("Title")
   
   objRS("StartDate")=request("csjtime")
   Session("csjtime")=request("csjtime")
   
  objRS("TotalMark")=request("TotalMark")
  Session("TotalScore")=request("TotalMark")
  
  objRS("TotalTime")=request("TotalTime")
  Session("TotalTime")=request("TotalTime")
  
  objRS("Author")=request("csjr")
  Session("csjr")=request("csjr")
  
  objRS("selectvalue")=request("dxfs")
  Session("dxfs")=request("dxfs")
  
  objRS("multivalue")=request("dufs")
  Session("dufs")=request("dufs")
  
  objRS("tkvalue")=request("tkfs")
  Session("tkfs")=request("tkfs")
  
  objRS("pdvalue")=request("pdfs")
  Session("pdfs")=request("pdfs")
  
  objRS("fxvalue")=request("fxfs")
  Session("fxfs")=request("fxfs")
 objRS.Update
 objRS.Close
  if request.QueryString("ID")="" then
     sql="Select MAX(PaperID) as id from TestPaper"
  end if       
  objRS.Open sql,objConn
  if request.QueryString("ID")="" then
    id=objRS("id")
  end if  
  objRS.Close
    if request.QueryString("ID")<>"" then
       sql="Select * from RandomPara where PaperID="&request.QueryString("ID")
    else
        sql="Select * from RandomPara"
    end if       
	objRS.Open sql,objConn,2,3
    if request.QueryString("ID")="" then
      objRS.AddNew
      objRS("PaperID")=id
    end if 
      objRS("Difficulty")=request("nd")
      objRS("Division")=request("qfd")
      objRS("dxCount")=TxCount(0)
      objRS("duCount")=TxCount(1)
      objRS("tkCount")=TxCount(2)
      objRS("pdCount")=TxCount(3)
      objRS("fxCount")=TxCount(4)
      objRS("Know")=RzArray(0)
      objRS("Grasp")=RzArray(1)
      objRS("Applicate")=RzArray(2)
      objRS("Evaluate")=RzArray(3)
      objRS("Synthetize")=RzArray(4)
      objRS("Analyse")=RzArray(5)
      objRS("Checkman")=request("ssjr")
      objRS("Checktime")=request("ssjtime")
      objRS.Update
      objRS.Close