cover3.asp

测试上除办公系统综合办公系统办公系统办公系统

<!--#include file="conn.asp"-->
 <%
  if session("username")="" then
  response.redirect "relogin.asp"
  end if

%>
<%
   username= request.Cookies("username")

'-----------删除没有打开的练习
sql="select * from tbkc where  isopen=0"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2



do while not rs.eof


 sql2="select  * from tbistest where  kcid="&rs("kcid")
set rs2=server.createobject("adodb.recordset")
rs2.open sql2,conn,3,2
    do while not rs2.eof
  rs2.delete
  rs2.update
  rs2.movenext
  loop

sql3="select  userdata.* from userdata,tbtk where tbtk.tmid=userdata.tmid and tbtk.kao=0 and tbtk.kcid="&rs("kcid")
set rs3=server.createobject("adodb.recordset")
rs3.open sql3,conn,3,2
    do while not rs3.eof
    
    '------------------
       if  rs3("isread")=1 then
            sql31="select * from userdataread   where paperno=0 and tmid="&rs3("tmid")
		set rs31=server.createobject("adodb.recordset")
		rs31.open sql31,conn,3,2
		
		do while not rs31.eof
		rs31.delete
  		rs31.update
  		rs31.movenext
		loop
		
	  end if
    '------------------
    
  rs3.delete
  rs3.update
  rs3.movenext
  loop

rs.movenext
loop

'----------------------------------删除没有打开的考试
sqlks="select * from tbpaper  where  isopen=0"
set rsks=server.createobject("adodb.recordset")
rsks.open sqlks,conn,3,2



do while not rsks.eof

sql1="select  * from tbscore where  paperno="&rsks("paperno")
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2

    do while not rs1.eof
  rs1.delete
  rs1.update
  rs1.movenext
  loop


 

sql4="select * from userdata where paperno="&rsks("paperno")
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
    do while not rs4.eof
    
       '------------------
       if  rs4("isread")=1 then
            sql41="select * from userdataread   where paperno="&rsks("paperno")&" and tmid="&rs4("tmid")
		set rs41=server.createobject("adodb.recordset")
		rs41.open sql41,conn,3,2
		
		do while not rs41.eof
		rs41.delete
  		rs41.update
  		rs41.movenext
		loop
		
	  end if
    '------------------

  rs4.delete
  rs4.update
  rs4.movenext
  loop

rsks.movenext
loop



    response.redirect "cover.asp"
%>