📄 admin_class_main.asp

📁 完整的网址站
💻 ASP
字号:
<!--#include file="config.asp"-->
<%
dim founderr,errmsg
founderr=false
errmsg=""
if session("adminlogin")<>sessionvar then
  founderr=true
  errmsg=errmsg+"<br>"+"<li>你尚未登录，或者超时了！请<a href='index.asp'>重新登录</a>！"
  call diserror()
  response.end
end if
if session("flag")>2 then
  errmsg=errmsg+"<br>"+"<li>你的管理权限不够！！</a>！"
  call diserror()
  response.end
  end if
dim n
set rss=server.CreateObject("adodb.recordset")
sqls="select count(sortid) as a  from happywz_SORT where reid=0"
rss.open sqls,conn,1,2
	if not rss.eof then
	n=rss("a")
	end if
rss.close
set rss=nothing
%>
<html>
<head>
<title>精彩网址·网址导航--管理中心--栏目管理</title> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> 
<LINK REL="stylesheet" HREF="css.css" TYPE="text/css">
</head>
<body leftmargin="0" topmargin="0" marginwidth="0" MARGINHEIGHT="0"><script>if(top==self)top.location="index.asp" </script>
<table width="100%" cellpadding="2" cellspacing="0" CLASS="HeaderTdStyle" BGCOLOR="#0099CF" > 
<tr > <td height="26" colspan="2" align="center"><b>网址库分类目录管理</b></td></tr> <tr> 
<td  width="70" height="30" BGCOLOR=""#0099CF""><b>管理导航：</b></td><td  height="30" BGCOLOR="#ffffff"><a href="admin_class_main.asp">栏目管理首页</a>&nbsp;|&nbsp;<a href="admin_class_edit.asp?action=add">添加一个分类</a>&nbsp;|&nbsp;<A HREF="admin_class_edit.asp?action=updat">更新各分类数据</A>&nbsp;|&nbsp;共计<FONT COLOR="#FF0000"><%=n%></FONT>个一级分类</td></tr> 
</table><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="26"></td></tr> 
</table>
<table cellspacing="1" cellpadding="3" width="99%" CLASS="table1" BGCOLOR="#0099CF" ALIGN="CENTER" >
  <tr BGCOLOR="#0099CF"> 
    <td height="25" class="title" width="300"><B>分类名称</B></td>
    <td class="title" ><B>操作</B></td>
  </tr>
  <%
sql="select * from happywz_SORT order by bigid,orders"
Set rs=Server.CreateObject("ADODB.RecordSet") 
rs.Open sql,conn,1,1 
if rs.eof then

Response.Write("<tr bgcolor=""#B0CBE6"">")
Response.Write("<td colspan=""6"" height=""50"">目前还没有分类，请<a href=""admin_class_edit.asp?a=add"">添加一个分类</a></td>")
Response.Write("</tr>")

end if
do while not rs.eof %>
  <tr BGCOLOR="#ffffff"> 
    <td height="22" > 
      <%if rs("sortstep")>0 then
for i=1 to rs("sortstep")%>
      　→ 
      <%next
end if%>
      <%=rs("sort")%></td>
    <td ALIGN="RIGHT" width="394"> 
      <%if rs("sortstep")=0 then
%>
      <a href="admin_class_edit.asp?action=add&editid=<%=rs("sortid")%>">添加下级分类</a> 
      <%end if%>
      　|　<A HREF="admin_class_edit.asp?action=edit&editsort=<%=rs("sort")%>&editid=<%=rs("sortid")%>">修改</A>　|　<A HREF="admin_class_edit.asp?action=unite&unitesort=<%=rs("sort")%>&editid=<%=rs("sortid")%>">转移数据</A>　|　<A HREF="admin_class_edit.asp?action=del&delsort=<%=rs("sort")%>&editid=<%=rs("sortid")%>">删除</A>　|　<A HREF="admin_class_edit.asp?action=updat&sort=<%=rs("sort")%>&sortid=<%=rs("sortid")%>" title="重新统计该分类的网址数据总数">更新数据</A></td>
  </tr>
  <%
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</table>
<BR><BR><TABLE WIDTH="99%" BORDER="0" CELLPADDING="2" CELLSPACING="1" BGCOLOR="#0099CF" ALIGN="CENTER" > 
<TR BGCOLOR="#0099CF"> <TD HEIGHT="22" 
COLSPAN="2" ALIGN="center"><B>操作说明</B></TD></TR> <TR BGCOLOR="#ffffff"> <TD WIDTH="87" HEIGHT="30"><B>操作说明：暂时只支持2级分类！！！</B></TD><TD 
HEIGHT="30"><LI><BR></TD></TR> 
</TABLE> 
</body>
</html>
⌨️ 快捷键说明

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