大小类产品调用删除代码

-------------显示小类名称-----------------------
<%=rsSmallClass("SmallClassName")%>
---------------删除小类-----------------------
ClassDelSmall.asp?SmallClassID=<%=rsSmallClass("SmallClassID")%>
--------------ClassDelSmall.asp内容------------
<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file="Admin.asp"-->
<%
dim SmallClassID,sql
SmallClassID=trim(Request("SmallClassID"))
sql = "select CenterClassName,SmallClassName from SmallClass where SmallClassID=" & Cint(SmallClassID)
set rs = conn.execute(sql)
if not rs.eof then
    bigClassName = rs(0)
   else
    response.End()
   end if
 conn.execute "delete from  price  where CenterClassName='" & rs(0) & "' and SmallClassName='" & rs(1) & "'"
 conn.execute "delete from  product  where CenterClassName='" & rs(0) & "' and SmallClassName='" & rs(1) & "'"
   if SmallClassID<>"" then
 sql="delete from SmallClass where SmallClassID="&Cint(SmallClassID)&""
 conn.Execute sql
end if
call CloseConn()     
response.redirect "ClassManage.asp"
%>
-----------调用大类列表---------------------
<%=rsBigClass("BigClassName")%> 
-------------删除大类包括小类-----------------   
ClassDelBig.asp?BigClassID=<%=rsBigClass("BigClassID")%>
-----------------------------------
ClassDelBig.asp内容
---------------------------------
<%@language=vbscript codepage=936 %>
<!--#include file="Conn.asp"-->
<!--#include file="Admin.asp"-->
<%
dim BigClassName,sql
BigClassName=trim(Request("BigClassName"))
if BigClassName<>"" then
 sql="delete from BigClass where BigClassName='" & BigClassName & "'"
 conn.Execute sql
 sql="delete from CenterClass where BigClassName='" & BigClassName & "'"
 conn.Execute sql
 sql="delete from SmallClass where BigClassName='" & BigClassName & "'"
 conn.Execute sql
end if
call CloseConn()     
response.redirect "ClassManage.asp"
%>
-------------------------------------