📄 left.asp
字号:
<% option explicit %>
<!--#include file="../function1/DBOpen.asp"-->
<%
if session("purview")="" then
response.redirect "../login.asp"
response.end
end if
dim n
dim rs,sql,rsc
n=2
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="../function/style.css" rel=stylesheet type=text/css>
<title>东腾网站管理系统</title></head>
<body bgcolor="#e1e1e1" text="000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%" align="center">
<tr>
<td height="30" bgcolor="#000000">
<div align="center"><font color="#FFFFFF" size="2">
<script language="JavaScript1.2" src="../function/menu.js"></script>
<% if session("purview")="99999" then %>
<!--***************************显示管理员专栏*********************************-->
站点管理控制中心</font></div>
</td>
</tr>
<tr>
<td bgcolor="#e1e1e1" valign="top">
<div id="KB1Parent" class="parent"><a href="#" onClick="expandIt('KB1'); return false" onMouseOver="window.status='管理员配置工具';return true;" onMouseOut="window.status='';return true;"><img src="images/plus.gif" border=0>系统设置</a></div>
<div id="KB1Child" class="child"> <a href="changepwd.asp" target="right" onMouseOver="window.status='修改本用户的密码';return true;" onMouseOut="window.status='';return true;"><img src="images/spacer.gif" width=20 height=11 border=0 alt=""><img src="images/blank.gif" border=0>修改密码</a><br>
<a href="usermanage.asp" target="right" onMouseOver="window.status='管理用户';return true;" onMouseOut="window.status='';return true;"><img src="images/spacer.gif" width=20 height=11 border=0 alt=""><img src="images/blank.gif" border=0>管理用户</a><br>
<a href="link.asp" target="right" onMouseOver="window.status='栏目ID';return true;" onMouseOut="window.status='';return true;"><img src="images/spacer.gif" width=20 height=11 border=0 alt=""><img src="images/blank.gif" border=0>友情链接管理</a><br>
<a href="edit_vote.asp" target="_blank" onMouseOver="window.status='栏目ID';return true;" onMouseOut="window.status='';return true;"><img src="images/spacer.gif" width=20 height=11 border=0 alt=""><img src="images/blank.gif" border=0>投票调查管理</a> </div>
<% set rs = server.createobject("adodb.recordset")
rs.open "select * from type",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
response.end
else
do while not rs.eof
%>
<div id="KB<%=n%>Parent" class="parent"><a href="#" onClick="expandIt('KB<%=n%>'); return false" onMouseOver="window.status='<%=rs("typename") %>';return true;" onMouseOut="window.status='';return true;"><img src="images/plus.gif" border=0><%=rs("typename") %></a></div>
<% set rsc=server.createobject("adodb.recordset")
sql="select * from border where typeid=" & rs("typeid") & " order by borderid"
rsc.open sql,conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if not rsc.bof and not rsc.eof then %>
<div id="KB<%=n%>Child" class="child">
<% do while not rsc.eof %>
<a href="newsmanage.asp?typeid=<%=rs("typeid")%>&borderid=<%=rsc("borderid")%>" target="right" onMouseOver="window.status='<%=rsc("bordername") %>';return true;" onMouseOut="window.status='';return true;"><img src="images/spacer.gif" width=20 height=11 border=0 alt=""><img src="images/blank.gif" border=0><%=rsc("bordername") %></a><br>
<% rsc.movenext
loop %>
</div>
<% rsc.close
set rsc=nothing
end if
end if
rs.movenext
n=n+1
loop
rs.close
set rs=nothing
end if
end if
else if session("purview")="99998" then %>
<!--******************管理员栏目结束,显示审核员专栏****************************-->
<div id="KB1Parent" class="parent"><a href="#" onClick="expandIt('KB1'); return false" onMouseOver="window.status='审核员配置工具';return true;" onMouseOut="window.status='';return true;"><img src="images/plus.gif" border=0>审核员配置工具</a></div>
<div id="KB1Child" class="child"> <a href="changepwd.asp" target="right" onMouseOver="window.status='修改本用户的密码';return true;" onMouseOut="window.status='';return true;"><img src="images/spacer.gif" width=20 height=11 border=0 alt=""><img src="images/blank.gif" border=0>修改密码</a><br>
</div>
<% set rs = server.createobject("adodb.recordset")
rs.open "select * from type",conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
response.end
else
do while not rs.eof
%>
<div id="KB<%=n%>Parent" class="parent"><a href="#" onClick="expandIt('KB<%=n%>'); return false" onMouseOver="window.status='<%=rs("typename") %>';return true;" onMouseOut="window.status='';return true;"><img src="images/plus.gif" border=0><%=rs("typename") %></a></div>
<% set rsc=server.createobject("adodb.recordset")
sql="select * from border where typeid=" & rs("typeid") & " order by borderid"
rsc.open sql,conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if not rsc.bof and not rsc.eof then %>
<div id="KB<%=n%>Child" class="child">
<% do while not rsc.eof %>
<a href="newsmanage.asp?typeid=<%=rs("typeid")%>&borderid=<%=rsc("borderid")%>" target="right" onMouseOver="window.status='<%=rsc("bordername") %>';return true;" onMouseOut="window.status='';return true;"><img src="images/spacer.gif" width=20 height=11 border=0 alt=""><img src="images/blank.gif" border=0><%=rsc("bordername") %></a><br>
<% rsc.movenext
loop %>
</div>
<% rsc.close
set rsc=nothing
end if
end if
rs.movenext
n=n+1
loop
rs.close
set rs=nothing
end if
end if
else %>
<!--******************审核员栏目结束,显示其他用户专栏*****************-->
<div id="KB1Parent" class="parent"><a href="#" onClick="expandIt('KB1'); return false" onMouseOver="window.status='录入员配置工具';return true;" onMouseOut="window.status='';return true;"><img src="images/plus.gif" border=0>录入员配置工具</a></div>
<div id="KB1Child" class="child"> <a href="changepwd.asp" target="right" onMouseOver="window.status='修改本用户的密码';return true;" onMouseOut="window.status='';return true;"><img src="images/spacer.gif" width=20 height=11 border=0 alt=""><img src="images/blank.gif" border=0>修改密码</a><br>
</div>
<% set rs = server.createobject("adodb.recordset")
rs.open "select * from type where typeid=" & cstr(session("purview")),conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if rs.bof and rs.eof then
rs.close
response.write "没有类别"
response.end
else
%>
<div id="KB<%=n%>Parent" class="parent"><a href="#" onClick="expandIt('KB<%=n%>'); return false" onMouseOver="window.status='<%=rs("typename") %>';return true;" onMouseOut="window.status='';return true;"><img src="images/plus.gif" border=0><%=rs("typename") %></a></div>
<% set rsc=server.createobject("adodb.recordset")
sql="select * from border where typeid=" & rs("typeid") & " order by borderid"
rsc.open sql,conn,1,1
if err.number <> 0 then
response.write "数据库出错"
else
if not rsc.bof and not rsc.eof then %>
<div id="KB<%=n%>Child" class="child">
<% do while not rsc.eof %>
<a href="newsmanage.asp?typeid=<%=rs("typeid")%>&borderid=<%=rsc("borderid")%>" target="right" onMouseOver="window.status='<%=rsc("bordername") %>';return true;" onMouseOut="window.status='';return true;"><img src="images/spacer.gif" width=20 height=11 border=0 alt=""><img src="images/blank.gif" border=0><%=rsc("bordername") %></a><br>
<% rsc.movenext
loop %>
</div>
<% rsc.close
set rsc=nothing
end if
end if
n=n+1
rs.close
set rs=nothing
end if
end if
end if
end if %>
<!--***********************************其他公共选项***************************-->
<div id="KB<%=n%>Parent" class="parent"><a href="index.asp" target="_top" onMouseOver="window.status='刷新页面';return true;" onMouseOut="window.status='';return true;"><img src="images/blank.gif" border=0>刷新页面</a></div>
<div id="KB<%=n+1%>Parent" class="parent"><a href="quit.asp" target="right" onMouseOver="window.status='退 出';return true;" onMouseOut="window.status='';return true;"><img src="images/blank.gif" border=0>退
出</a></div>
<script language="JavaScript">
if (NS4) {
firstEl = "KB1Parent";
firstInd = getIndex(firstEl);
arrange();
}
</script>
</td>
</tr>
</table>
<div align="left"></div>
</body>
</html>
<!--#include file="../function/DBClose.asp"-->⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -