您所在位置：主题：谁进来帮我看看－－－谢谢
endlessrain
[专家分：10] 发布于 2007-05-01 15:55:00
目的就是根据上个页面传来的id号，删除相关的类，如果该类为大类，就删除它所包含的所有的小类，如果不是就直接删除．
<%dim s
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from class where id="&id,conn,1,2
s=rs("parentid")
if s="num" then%>
<script language="vbscript">
dim i
i=msgbox ("这是一个大类，确定要全部删除!",vbyesno+48,"系统提示")
</script>
<%if i=vbyes then
rs.delete
conn.execute"delete * from class where parentid='"&rs("classid")&"'"
end if%>
<%else
rs.delete
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
server.Transfer("class.asp")
%>
总是达不到自己想要的效果，要么删除了全部的大类．．．．．
还有<script>.... </script>中可不可以加<%...%>啊
<%dim s
id=request.QueryString("id")
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from class where id="&id,conn,1,2
s=rs("parentid")
if s="num" then%>
<script language="vbscript">
dim i
i=msgbox ("这是一个大类，确定要全部删除!",vbyesno+48,"系统提示")
</script>
<%if i=vbyes then
rs.delete
conn.execute"delete * from class where parentid='"&rs("classid")&"'"
end if%>
<%else
rs.delete
end if
rs.close
conn.close
set rs=nothing
set conn=nothing
server.Transfer("class.asp")
%>
总是达不到自己想要的效果，要么删除了全部的大类．．．．．
还有<script>.... </script>中可不可以加<%...%>啊
