📄 left.asp
字号:
<TR>
<TD height=20>
<A href="Admin_UpFileManage.asp" target=list>┊ 附件管理 ┊</A>
</TD>
</TR>
<%else%>
<TR>
<TD height=20>
<A href="Manage.asp" target=list>┊ 管理登录 ┊</A>
</TD>
</TR>
<%end if%>
</TBODY>
</TABLE>
</DIV>
<DIV style="WIDTH: 135px">
<TABLE cellSpacing=0 cellPadding=0 width=135 align=center>
<TBODY>
<TR>
<TD height=10></TD>
</TR>
</TBODY>
</TABLE>
</DIV>
</TD>
</TR>
</TBODY>
</TABLE>
<%end if%>
<TABLE cellSpacing=0 cellPadding=0 width=135 align=center>
<TBODY>
<TR align=middle>
<TD class=menu_title id=menuTitle2 onMouseOver="this.className='menu_title2';" onclick=menuChange(menu2,320,menuTitle2); onMouseOut="this.className='menu_title';" background=images/admin_menu_03.gif height=25>
<SPAN>图文管理</SPAN>
</TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu2 style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 135px; HEIGHT: 0px">
<TABLE cellSpacing=0 cellPadding=0 width=135 align=center background=images/admin_menu_02.gif>
<TBODY>
<TR>
<TD height=5>
</TD>
</TR>
<TR>
<TD height=20>
<A title=展开/收缩菜单 onclick=showsubmenu(10) href="E_TypeManage.asp" target=list>┊ 文章管理 ┊</A>
</TD>
</TR>
<TR>
<TD id=submenu10 style="DISPLAY: none" vAlign=center height=20>
<%
response.write " <!--==========================-->"& chr(10)
response.write " <!-- 栏目菜单开始 -->"& chr(10)
response.write " <!--==========================-->"
sqltype="select * from "& db_Type_Table & " order by typeorder"
Set rstype= Server.CreateObject("ADODB.Recordset")
rstype.open sqltype,conn,1,1
dim Type_Content,BigClass_Content
Type_Content=""
BigClass_Content=""
typeNum=rstype.recordcount
if rstype.bof and rstype.eof then
response.write " 栏目正在建设中！"
else
menu_pic1="images/menu1.gif"
menu_pic2="images/menu2.gif"
menu_spacer_pic="images/spacer.gif"
do while not rstype.eof
SqlBigClass="select * from "& db_BigClass_Table & " where typeid="& rstype("typeid") &" Order by bigclassorder" '选择大组类
Set rsBigClass= Server.CreateObject("ADODB.Recordset")
rsBigClass.open SqlBigClass,conn,1,1
if rsBigClass.bof and rsBigClass.eof then
'总栏下无大组栏
Type_Content=Type_Content & chr(10)
Type_Content=Type_Content &"<DIV class=parent id=KB"& rstype("typeid") &"Parent>"& chr(10)
Type_Content=Type_Content &" <IMG src="& menu_pic1 &">"& chr(10)
Type_Content=Type_Content &" <A href='E_BigClassManage.asp?TypeID="& rstype("typeid") &"' target=list>"& rstype("typeName") &"</A>"& chr(10)
Type_Content=Type_Content &"</DIV>"& chr(10)
response.write Type_Content
Type_Content=""
else
'总栏下有大组栏
Type_Content=Type_Content & chr(10)
Type_Content=Type_Content &"<DIV class=parent id=KB"& rstype("typeid") &"Parent>"& chr(10)
Type_Content=Type_Content &" <IMG title='展开/收缩菜单' style='CURSOR: hand' onclick='expandIt("& chr(34) &"KB"& rstype("typeid") &""& chr(34) &")' src="& menu_pic2 &">"& chr(10)
Type_Content=Type_Content &" <A href='E_BigClassManage.asp?TypeID="& rstype("typeid") &"' target=list>"& rstype("typeName") &"</A>"& chr(10)
Type_Content=Type_Content &"</DIV>"& chr(10)
Type_Content=Type_Content &"<DIV class=child id=KB"& rstype("typeid") &"Child>"& chr(10)
response.write Type_Content
Type_Content=""
do while not rsBigClass.eof
SqlSmallClass="select * from "& db_SmallClass_Table & " where BigClassId="& rsBigClass("BigClassId") &" Order by smallclassorder" '选择小组类
Set rsSmallClass= Server.CreateObject("ADODB.Recordset")
rsSmallClass.open SqlSmallClass,conn,1,1
if rsSmallClass.bof and rsSmallClass.eof then
'大组下无小组栏
BigClass_Content=BigClass_Content &" "& chr(10)
BigClass_Content=BigClass_Content &" <IMG src="& menu_pic1 &">"& chr(10)
BigClass_Content=BigClass_Content &" <A href='E_SmallClassManage.asp?BigClassID="& rsBigClass("BigClassId") &"' target=list>"& rsBigClass("E_BigClassName") &"</A>"& chr(10)
BigClass_Content=BigClass_Content &" <BR>"& chr(10)
response.write BigClass_Content
BigClass_Content=""
else
'大组下有小组栏
BigClass_Content=BigClass_Content &" "& chr(10)
BigClass_Content=BigClass_Content &" <IMG title=展开/收缩菜单 style='CURSOR: hand' onclick=showsubmenu("& rstype("typeid") & rsBigClass("BigClassId") &") src="& menu_pic2 &">"& chr(10)
BigClass_Content=BigClass_Content &" <A href='E_SmallClassManage.asp?BigClassID="& rsBigClass("BigClassId") &"' target=list>"& rsBigClass("E_BigClassName") &"</A>"& chr(10)
BigClass_Content=BigClass_Content &" <BR>"& chr(10)
BigClass_Content=BigClass_Content &" <DIV id=submenu"& rstype("typeid") & rsBigClass("BigClassId") &" style='DISPLAY: none'>"& chr(10)
response.write BigClass_Content
BigClass_Content=""
rsSmallClass.movefirst
do while not rsSmallClass.eof
response.write " "
response.write " "& chr(10)
response.write " <IMG src="& menu_pic1 &">"& chr(10)
response.write " <A href='ListNews.asp?SmallClassID="& rsSmallClass("SmallClassId") &"' target=list>"& rsSmallClass("E_smallclassname") &"</A>"& chr(10)
response.write " <BR>"& chr(10)
rsSmallClass.movenext
loop
response.write " </DIV>"& chr(10)
end if
rsSmallClass.close
set rsSmallClass=nothing
rsBigClass.movenext
loop
response.write "</DIV>"& chr(10)
end if
rsBigClass.close
set rsBigClass=nothing
rstype.movenext
loop
end if
rstype.close
set rstype=nothing
conn.close
set conn=nothing
response.write " <!--==========================-->"& chr(10)
response.write " <!-- 栏目菜单结束 -->"& chr(10)
response.write " <!--==========================-->"
%>
</TD>
</TR>
<TR>
<TD height=20>
<A href="newsaddd1.asp" target=list>┊ 添加文章 ┊</A>
</TD>
</TR>
<TR>
<TD height=20>
<A href="MyNews.asp" target=list>┊ 我的文章 ┊</A>
</TD>
</TR>
</TBODY>
</TABLE>
</DIV>
<DIV style="WIDTH: 135px">
<TABLE cellSpacing=0 cellPadding=0 width=135 align=center>
<TBODY>
<TR>
<TD height=10></TD>
</TR>
</TBODY>
</TABLE>
</DIV>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=135 align=center>
<TBODY>
<TR align=middle>
<TD class=menu_title id=menuTitle4 onMouseOver="this.className='menu_title2';" onclick=menuChange(menu4,40,menuTitle4); onMouseOut="this.className='menu_title';" background=images/admin_menu_03.gif height=25>
<SPAN>个人事务</SPAN>
</TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu4 style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 135px; HEIGHT: 0px">
<TABLE cellSpacing=0 cellPadding=0 width=135 align=center background=images/admin_menu_02.gif>
<TBODY>
<TR>
<TD height=20>
<A href="Edit.asp" target=list>┊ 个人资料 ┊</A>
</TD>
</TR>
<TR>
<TD height=20>
<A href="wnl.asp" target=list>┊ 超级年历 ┊</A>
</TD>
</TR>
</TBODY>
</TABLE>
</DIV>
<DIV style="WIDTH: 135px">
<TABLE cellSpacing=0 cellPadding=0 width=135 align=center>
<TBODY>
<TR>
<TD height=10></TD>
</TR>
</TBODY>
</TABLE>
</DIV>
</TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=135 align=center>
<TBODY>
<TR align=middle>
<TD class=menu_title id=menuTitle10 onMouseOver="this.className='menu_title2';" onclick=menuChange(menu10,100,menuTitle10); onMouseOut="this.className='menu_title';" background=images/admin_menu_03.gif height=25>
<SPAN>系统信息</SPAN>
</TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu10 style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 135px; HEIGHT: 0px">
<TABLE cellSpacing=0 cellPadding=0 width=135 heigh="100%" align=center background=images/admin_menu_02.gif>
<TBODY>
<TR>
<TD height=20>
<A href="http://www.kyuanma.com" title="酷源码下载" target=_blank>┊酷源码下载 ┊</A>
</TD>
</TR>
<TR>
<TD height=20>
<A href="help.asp" target=list>┊ 新手上路 ┊</A>
</TD>
</TR>
<TR>
<TD height=20>
<A onClick="checkclick('您是否要重新登录？')" href="Login.asp" target=list>┊ 重新登录 ┊</A>
</TD>
</TR>
<TR>
<TD height=20>
<A onClick="checkclick('您真的退出网站？')" href="Admin_Exit.asp" target=list>┊ 退出管理 ┊</A>
</TD>
</TR>
<TR>
<TD height=20>
<A href="javascript:about()">┊ 关于系统 ┊</A>
</TD>
</TR>
</TBODY>
</TABLE>
</DIV>
</TD>
</TR>
</TBODY>
</TABLE>
</TABLE>
</BODY>
</HTML>
<%else%>
<script language=javascript>
history.back()
alert("对不起，管理员尚未开通您的帐号，请稍候！")
</script>
<%end if%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -