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>