kind_delete.asp

实验教学系统 很好用 有学生 老师 管理等模块 便于学校使用

<%
'这是安全模块，如果客户不是管理员用户，立即重定向到首页.
'这样可以防止某些客户直接访问admin下面的文件。
If Session("UserType")<>"A" Then
	Response.Redirect "../index.asp"
End If
%>
<!--#INCLUDE FILE="../odbc_connection2.asp"-->
<%
'首先获取传过来的记录编号kindId
Dim kindId
kindId=Request.QueryString("kindId")
'下面首先删除栏目名称
strSql ="Delete From kind Where kindId=" & kindId
db.Execute(strSql)
'下面再删除该类别的所有书
strSql="Delete From Book Where kindId=" & kindId
db.Execute(strSql)
'执行完毕后返回
Response.Redirect "kind_list.asp"      
%>