大小类产品调用删除代码

1

本文作者:laibu 发布于:2007-8-24 分类:网站制作点击:

-------------显示小类名称-----------------------
<%=rsSmallClass("SmallClassName")%>
---------------删除小类-----------------------
ClassDelSmall.asp?SmallClassID=<%=rsSmallClass("SmallClassID")%>
--------------ClassDelSmall.asp内容------------
<%@language=vbscript codepage=936 %>


<%
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 %>


<%
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"
%>
-------------------------------------