adminexamdel.asp

来自「一套在线考试系统」· ASP 代码 · 共 40 行

<!--#include file="conn.asp"-->
<%
Dim testid
Dim i
Dim j
testid=request("testid")
testid=split(testid,",")
i=ubound(testid)
for j=0 to i
  sql="select * from exam_test where examid='"& trim(testid(j))&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  if not rs.eof then
  rs.delete
  rs.update
  rs.close
  end if

  sql="select * from exam_testuser where examid='"& trim(testid(j))&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  do while not rs.eof
  rs.delete
  rs.update
  rs.movenext
  loop  
  rs.close

  sql="select * from waitforpass where objid='"& trim(testid(j))&"'"
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  if not rs.eof then
  rs.delete
  rs.update
  rs.close
  end if
  
next
response.redirect "adminexam.asp"
%>