statusmod.asp

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

<%
  if request("back")<>"" then
     response.redirect "../teacherroom.asp"
  end if   
   Set objConn = Server.CreateObject ("ADODB.Connection")
   strConnection = "Data Source = ks;"
   strConnection = strConnection & "User ID =lili;Password=;"
   objConn.Open strConnection
   set objRS = CreateObject("ADODB.Recordset") 

      for i=1 to Request("mark").count
          sql="Select Status from TestPaper where PaperID="&request("mark")(i)
          objRS.open sql,objConn,2,3
          status=objRS("Status") 
         if request("lock")<>"" then
            if status=0 then
                objRS("Status")=1
            end if
            if status=2 then
                  objRS("Status")=3
            end if
         end if  
         if request("unlock")<>"" then
            if status=1 then
                objRS("Status")=0
            elseif status=3 then
                  objRS("Status")=2
            end if
         end if
          if request("visible")<>"" then
            if status=0 then
                objRS("Status")=2
            elseif status=1 then
                  objRS("Status")=3
            end if
         end if
          if request("invisible")<>"" then
            if status=2 then
                objRS("Status")=0
            elseif status=3 then
                  objRS("Status")=1
            end if
         end if
         objRS.Update
         objRS.Close
        next                            
      response.redirect ("Paperwh.asp")
%>