teacherdel.asp

来自「学生管理功能: 1.添加单个成绩 2.批量添加成绩 3.通过搜索并修改与删除」· ASP 代码 · 共 38 行

<!--#include file="a25175_conn.asp"-->
<%
on error resume next
dim ID
ID=trim(request("ID"))
if ID="" then
response.write"<script>alert('不要错误操作！');location='ADDTeacher.asp'</script>"	
else
'----------------------------------------------------------------------------------------
'----------------------------------------------------------------------------------------
db.CommandTimeout=0
strsql="select TEACHERname from TEACHER where id="&id
set rs=db.execute(strsql)
TEACHERname=rs("TEACHERname")
strsql="Delete from TEACHER where ID="&ID
db.execute(strsql)
'-----------------------------------------------------------------------------------------
strsql="Delete from Teacherscore where TEACHERID='"&TEACHERname&"'"
db.execute(strsql)
strsql="Delete from Teachernew where TEACHERID='"&TEACHERname&"'"
db.execute(strsql)
strsql="Delete from TeacherCourse where TEACHERname='"&TEACHERname&"'"
db.execute(strsql)

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

%>