admindatabasedelread.asp

该系统测试用户信息主要由数据库直接输入

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

%>
<%
 
readno=request("readno")
tmid=request("tmid")
 
 
 
    set rs2=server.createobject("adodb.recordset")
  sql2="select * from tbread where tmid="&tmid&" and readno="&readno
    rs2.open sql2,conn,3,2

  do while not rs2.eof  
  rs2.delete
  rs2.update
  rs2.movenext
  loop
  
    set rs3=server.createobject("adodb.recordset")
    sql3="select *  from tbtk  where  tmid="& tmid
    rs3.open sql3,conn,3,2

  no=cint(rs3("ans"))-1

  rs3("ans")=no
  rs3.update
 
      set rs4=server.createobject("adodb.recordset")
    sql4="select *  from tbread  where  tmid="& tmid
    rs4.open sql4,conn,3,2
    
    i=1
    do while not rs4.eof
    rs4("readno")=i
    rs4.update
    rs4.movenext
    i=i+1
    loop
 
 

 		 
response.redirect "admindatabaseedit.asp?success=删 除 成 功！&tmid="&tmid




%>