delpaper.asp

来自「这是用asp做的一个网上考试题库系统」· ASP 代码 · 共 26 行

<%
   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 * from Paper_Item where PaperID="&request("mark")(i)
          objRS.open sql,objConn,2,3
          while not objRS.EOF
             objRS.delete
             objRS.MoveNext
          wend
          objRS.Close
          sql="Select * from TestPaper where PaperID="&request("mark")(i)
          objRS.open sql,objConn,2,3
          objRS.delete
          objRS.Close
      next
  Response.Redirect ("Paperdel.asp")
%>