www.gusucode.com > 黑鹰自助链管理系统 1.1 商业版码程序 > adminhymm/admin_class_del.asp
<!--#include file="mdb.asp"--> <!--#include file="aq.asp"--> <% if session("adminlogin")<>sessionvar then Response.Write("<script language=javascript>alert('你尚未登录,或者超时了!请重新登录');this.location.href='index.asp';</script>") Response.End End if %> <HTML> <HEAD> <TITLE>类别删除管理</TITLE> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <LINK REL="stylesheet" HREF="css.css" TYPE="text/css"> </HEAD> <% dim rs(5) function listunder(i) set rs(i)=server.createobject("adodb.recordset") rs(i).open "select classid,classname,verity from feilei where topclass="&rs(i-1)("classid"),conn,1,3 while not rs(i).eof dim topclassname topclassname="" for x=0 to i-1 topclassname=topclassname&rs(x)("classname")&">" next fujia="" response.write "<option value='"&rs(i)("classid")&"'>"&topclassname&rs(i)("classname")&fujia&"</option>"&vbCrLf if i<Ubound(rs) then call listunder(i+1) end if rs(i).movenext wend end function %> <BODY> <table width="96%" border="0" cellspacing="1" cellpadding="8" align="center" bgcolor="#D3D3D3"> <tr> <td bgcolor="#eeeeee" align="center">类别删除管理</td> </tr> <tr> <td bgcolor="#FFFFFF"> <% dim action,classname,leibie,memo,newname action=request("action") classname=request("classname") leibie=request("leibie") memo=request("memo") newname=request("newname") if action="delete" then if leibie=0 then Response.Write("<script language=javascript>alert('请选择一个类别!');this.location.href='admin_class_del.asp';</script>") Response.End end if if Session("lastdeleted")<>leibie then conn.execute "delete from feilei where classid="&leibie conn.execute "delete from detail where classid="&leibie Session("lastdeleted")=leibie Response.Write("<script language=javascript>alert('分类已经成功删除!');this.location.href='admin_class_del.asp';</script>") Response.End end if end if %> <form action="admin_class_del.asp" method="post"> <p>选择删除类别:<select name="leibie"> <option selected value="0">请选择一个类别</option> <% set rs(0)=server.createobject("adodb.recordset") rs(0).open "select classid,classname,verity from feilei where topclass=0",conn,1,3 while not rs(0).eof fujia="" response.write "<option value='"&rs(0)("classid")&"'>"&rs(0)("classname")&fujia&"</option>"&vbCrLf call listunder(1) rs(0).movenext wend %> </select><br> <input type="hidden" name="action" value="delete"> <input type="submit" value="删除此类别"> </p> </form> </td> </tr> </table> </BODY> </HTML>