<%
'這是安全模塊，如果客戶不是管理員用戶，立即重定向到首頁.
'這樣可以防止某些客戶直接訪問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)
'執(zhí)行完畢后返回
Response.Redirect "kind_list.asp"      
%>