departdel.asp

学生管理功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除

<!--#include file="a25175_conn.asp"-->
<%
on error resume next
dim id
id=trim(request("id"))
if id="" then
response.write"<script>alert('不要错误操作！');location='addDEPART.asp'</script>"	
else
db.CommandTimeout=0
db.Begintrans
strsql="select * from DEPARTMENT where id="&id
set rs=db.execute(strsql)
DEPARTMENT=rs("DEPARTMENT")
strsql="delete from DEPARTMENT where id="&id
db.execute(strsql)
'-----------------------------------------------------------------------------------
'-----------------------------------------------------删除院系
strsql="Select Classname from Class where DEPARTMENT='"&DEPARTMENT&"'"
set rs=db.execute(strsql)
Do while not rs.eof
Classname=rs("Classname")
strsql="Delete from CLASS where Classname='"&Classname&"'"
db.execute(strsql)
strsql="Delete from UserInfo where Class1='"&Classname&"'"
db.execute(strsql)
rs.Movenext
Loop
'-----------------------------------------------------------------------------------
'-----------------------------------------------------删除班级和班级的所有学生
strsql="Delete from Teacher where depart='"&DEPARTMENT&"'"
db.execute(strsql)
strsql="Delete from Teacherscore where depart='"&DEPARTMENT&"'"
db.execute(strsql)
strsql="Delete from Teachernew where depart='"&DEPARTMENT&"'"
db.execute(strsql)
strsql="Delete from userlog where depart='"&DEPARTMENT&"'"
db.execute(strsql)
strsql="Delete from TeacherCourse where department='"&DEPARTMENT&"'"
db.execute(strsql)

'--------------------------------------------------------------------------------------
'-----------------------------------------------------------------删除教师和课程
if db.Errors.count=0 then
db.CommitTrans
response.write"<script>alert('删除"&DEPARTMENT&"成功！');location='addDEPART.asp'</script>"	
else
db.RollbackTrans
response.write"<script>alert('删除失败！');location='addDEPART.asp'</script>"
end if	
end if
'---------------------------------------------------------------------------------------
'-----------------------------------------------------------------------事务处理删除是否成功

%>