三级菜单的删除页面问题
来源:百度知道 编辑:UC知道 时间:2024/06/14 10:17:41
我有个站是三级产品菜单程序
分为大类,小类 ,和三类 bigclass smallclass thrdclass
三类产品类别的删除页面程序分别的
一 、bigclassname
<%
dim BigClassName,sql
BigClassName=trim(Request("BigClassName"))
if BigClassName<>"" then
sql="delete from BigClass where BigClassName='" & BigClassName & "'"
conn.Execute sql
sql="delete from SmallClass where BigClassName='" & BigClassName & "'"
conn.Execute sql
sql="delete from thrdClass where BigClassName='" & BigClassName & "'"
conn.Execute sql
end if
call CloseConn()
response.redirect "ClassManage.asp"
%>
二类产品类别删除程序为
<%
dim SmallClassname,sql
SmallClassname=trim(Request("SmallClassName"))
if SmallClassname<>"" then
sql="delete from SmallClass where SmallClassname=&q
分为大类,小类 ,和三类 bigclass smallclass thrdclass
三类产品类别的删除页面程序分别的
一 、bigclassname
<%
dim BigClassName,sql
BigClassName=trim(Request("BigClassName"))
if BigClassName<>"" then
sql="delete from BigClass where BigClassName='" & BigClassName & "'"
conn.Execute sql
sql="delete from SmallClass where BigClassName='" & BigClassName & "'"
conn.Execute sql
sql="delete from thrdClass where BigClassName='" & BigClassName & "'"
conn.Execute sql
end if
call CloseConn()
response.redirect "ClassManage.asp"
%>
二类产品类别删除程序为
<%
dim SmallClassname,sql
SmallClassname=trim(Request("SmallClassName"))
if SmallClassname<>"" then
sql="delete from SmallClass where SmallClassname=&q
语句没有问题,关键是双引号和单引号的问题.
<%
dim SmallClassname,sql
SmallClassname=trim(Request("SmallClassName"))
if SmallClassname<>"" then
sql="delete from SmallClass where SmallClassname='"&Cint(smallClassName)&"'"
conn.Execute sql
sql="delete from thrdClass where SmallClassname='"&Cint(smallClassName)&"'"
conn.Execute sql
end if
call CloseConn()
response.redirect "ClassManage.asp"
%>