stu_del2.asp

来自「C# SQL 齐齐哈尔职业学院学生成绩管理系统」· ASP 代码 · 共 32 行

<!--#include file="chkadmin.asp"-->
<!--#include file="conn.asp"-->
<%
Dim stuid
set rs=server.createobject("adodb.recordset")
rs.open "select * from [stu] where xid="&Request("id"),conn,1,3
stuid=rs("id")
rs.Delete
rs.Update
rs.Close
Set rs=nothing
Response.Write "成功删除该同学资料!<br>正在删除所有属于该同学的成绩信息,在完成之前请不要关闭本页面!<br>"

set rs=server.createobject("adodb.recordset")
rs.open "select * from [chengji]",conn,1,3
If rs.RecordCount=0 or rs.bof or rs.eof Then
  Response.Write "没有该同学成绩信息,完成操作!"
Else 
  Do while not rs.eof
    If rs("stuid")=stuid Then
      Response.Write "删除属于该同学考试类型编号为：" & rs("jecid") & "的信息,正在寻找下一个...<br>"
      rs.Delete
      rs.Update
    End If
    rs.MoveNext
  Loop
End If
rs.Close
Set rs=nothing
Response.Write "成功删除该属于该同学的成绩信息!<br>完成全部操作,请退出!"

%>