📄 classmana.asp

📁 采用三级目录
💻 ASP
字号:
<!-- #include file="conn.asp" -->
<%
 if session("admin")="" then
  response.redirect "admin.asp"
  else
	if session("flag")>1 then
		response.write "<br><p align=center>您没有操作的权限</p>"
		response.end
	end if
  end if
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<title>文章类别</title>
<link rel="stylesheet" type="text/css" href="inc/admin.css">
<script language="JavaScript">
<!--
function suredo(src,q)
    {
      var ret;
      ret = confirm(q);
      if(ret!=false)window.location=src;
    }
//-->
</script>
</head>

<body>
 <table align="center" width="95%" align="center" border="1" cellspacing="0" cellpadding="4" class=lanyubk style="border-collapse: collapse">
    <tr>
      <td colspan="4" class=lanyuss>文章类别</td>
    </tr>
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from artclass where classid=0 order by list"
rs.open sql,conn,1,1
if rs.bof and rs.eof then
    	response.write "<tr><td colspan='4' align=center>没有类别，请<a href='addartclass.asp'>添加类别</a></td</tr>"
else
%>
<% 
        do while not rs.eof
%>
        <tr class=lanyuqs><td><%=rs("class")%></td><td><a href="editartclass.asp?id=<%=rs("id")%>">修改</a></td><td><a href='javascript:suredo("delartclass.asp?id=<%=rs("id")%>","确定删除？删除类别会删除类别下的文章和类别下的小类")'>删除</a></td><td>
<%
set rs3=server.createobject("adodb.recordset")
sql="select * from guanggao where classid='"&rs("id")&"'"
rs3.open sql,conn,1,1
if rs3.bof and rs3.eof then
response.write "没广告"
else
response.write "有广告"
end if
%>
</td></tr>
<%
set rs2=server.createobject("adodb.recordset")
sql = "select * from artclass where classid="&rs("id")&" order by list"
rs2.open sql,conn,1,1
if rs2.bof and rs2.eof then
    	response.write ""
	else
        do while not rs2.eof
%>
       <tr class=lanyuds><td>&#12288;&#12288;&#12288;&#12288;<%=rs2("class")%></td><td><a href="editartclass.asp?id=<%=rs2("id")%>">修改</a></td><td><a href='javascript:suredo("delartclass.asp?id=<%=rs2("id")%>","确定删除？删除类别会删除类别下的文章和类别下的小类")'>删除</a></td><td>
<%
set rs4=server.createobject("adodb.recordset")
sql="select * from guanggao where classid='"&rs2("id")&"'"
rs4.open sql,conn,1,1
if rs4.bof and rs4.eof then
response.write "没广告"
else
response.write "有广告"
end if
%>
</td></tr>

<%
set rs5=server.createobject("adodb.recordset")
sql = "select * from artclass where classid="&rs2("id")&" order by list"
rs5.open sql,conn,1,1
if rs5.bof and rs5.eof then
    	response.write ""
	else
        do while not rs5.eof
%>
       <tr class=lanyuds><td>&#12288;&#12288;&#12288;&#12288;&#12288;&#12288;&#12288;&#12288;<%=rs5("class")%></td><td><a href="editartclass.asp?id=<%=rs5("id")%>">修改</a></td><td><a href='javascript:suredo("delartclass.asp?id=<%=rs5("id")%>","确定删除？删除类别会删除类别下的文章")'>删除</a></td><td>
<%
set rs6=server.createobject("adodb.recordset")
sql="select * from guanggao where classid='"&rs5("id")&"'"
rs6.open sql,conn,1,1
if rs6.bof and rs6.eof then
response.write "没广告"
else
response.write "有广告"
end if
%>
</td></tr>

<%
	rs5.movenext
	loop
	end if



	rs2.movenext
	loop
	response.write "<tr class=lanyuqs><td colspan='4'>"
	end if

        rs.movenext
        loop
%>
	</td></tr>

     </table>
      </td>
    </tr>
 </table>
</body>
</html>
<%
	end if
	rs.close
	conn.close
	set rs=nothing
	set conn=nothing

%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -