📄 admin_menu.asp
字号:
If Rs.Eof Then
exit For
End If
%>
<TR>
<TD height=20>>><a href="admin_btitle.asp?bid=<%=rs("id")%>" target="mainFrame"><%=rs("class")%></a></TD>
</TR>
<%
Rs.MoveNext
Next
%>
</TBODY>
</TABLE>
</DIV></TD></TR></TBODY></TABLE>
<%else%>
<% if session("flag")="1" or session("flag")="2" then%>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
<TBODY>
<TR style="CURSOR: hand">
<TD class=menu_title id=menuTitle2
onmouseover="this.className='menu_title2';"
onclick=menuChange(menu2,50,menuTitle2);
onmouseout="this.className='menu_title';"
background="images/pics/title_bg_show.gif"
height=25><SPAN>文章管理</SPAN> </TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu2
style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; top: 10px;" cellSpacing=0
cellPadding=0 width=135 align=center>
<TBODY>
<TR>
<TD height=20><a href="admin_add_btitle.asp?Action=add" target="mainFrame">添加栏目</a></TD>
</TR>
<TR>
<TD height=20><a href="admin_add_btitle.asp" target="mainFrame">栏目管理</a></TD>
</TR>
</TBODY>
</TABLE>
</DIV></TD></TR></TBODY></TABLE>
<%else%>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
<TBODY>
<TR style="CURSOR: hand">
<TD class=menu_title id=menuTitle2
onmouseover="this.className='menu_title2';"
onclick=menuChange(menu2,30,menuTitle2);
onmouseout="this.className='menu_title';"
background="images/pics/title_bg_show.gif"
height=25><SPAN>文章管理</SPAN> </TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu2
style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; top: 10px;" cellSpacing=0
cellPadding=0 width=135 align=center>
<TBODY>
<TR>
<TD height=20>没有栏目</TD>
</TR>
</TBODY>
</TABLE>
</DIV></TD></TR></TBODY></TABLE>
<% end if
end if
Rs.close
set rs=nothing
%>
<%
Set Rs = Server.CreateObject("Adodb.Recordset")
Sql = "SELECT * FROM uclass "
Rs.Open Sql,conn,1,3
if not (rs.bof and rs.eof) then
h=50+rs.RecordCount*20
%>
<% if session("flag")="1" or session("flag")="2" then%>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
<TBODY>
<TR style="CURSOR: hand">
<TD class=menu_title id=menuTitle6
onmouseover="this.className='menu_title2';"
onclick=menuChange(menu6,<%=h%>,menuTitle6);
onmouseout="this.className='menu_title';"
background="images/pics/title_bg_show.gif"
height=25><SPAN>文件管理</SPAN> </TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu6
style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; top: 10px;" cellSpacing=0
cellPadding=0 width=135 align=center>
<TBODY>
<TR>
<TD height=20><a href="admin_add_class.asp?Action=add" target="mainFrame">添加栏目</a></TD>
</TR>
<%else%>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
<TBODY>
<TR style="CURSOR: hand">
<TD class=menu_title id=menuTitle6
onmouseover="this.className='menu_title2';"
onclick=menuChange(menu6,<%=h-20%>,menuTitle6);
onmouseout="this.className='menu_title';"
background="images/pics/title_bg_show.gif"
height=25><SPAN>文件管理</SPAN> </TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu6
style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; top: 10px;" cellSpacing=0
cellPadding=0 width=135 align=center>
<TBODY>
<%end if%>
<TR>
<TD height=20><a href="admin_add_class.asp" target="mainFrame">栏目管理</a></TD>
</TR>
<%
For i=1 to rs.RecordCount
If Rs.Eof Then
exit For
End If
%>
<TR>
<TD height=20>>><a href="admin_class.asp?cid=<%=rs("cid")%>" target="mainFrame"><%=rs("class")%></a></TD>
</TR>
<%
Rs.MoveNext
Next
%>
</TBODY>
</TABLE>
</DIV></TD></TR></TBODY></TABLE>
<%else%>
<% if session("flag")="1" or session("flag")="2" then%>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
<TBODY>
<TR style="CURSOR: hand">
<TD class=menu_title id=menuTitle6
onmouseover="this.className='menu_title2';"
onclick=menuChange(menu6,50,menuTitle6);
onmouseout="this.className='menu_title';"
background="images/pics/title_bg_show.gif"
height=25><SPAN>文件管理</SPAN> </TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu6
style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; top: 10px;" cellSpacing=0
cellPadding=0 width=135 align=center>
<TBODY>
<TR>
<TD height=20><a href="admin_add_class.asp?Action=add" target="mainFrame">添加栏目</a></TD>
</TR>
<TR>
<TD height=20><a href="admin_add_class.asp" target="mainFrame">栏目管理</a></TD>
</TR>
</TBODY>
</TABLE>
</DIV></TD></TR></TBODY></TABLE>
<%else%>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
<TBODY>
<TR style="CURSOR: hand">
<TD class=menu_title id=menuTitle6
onmouseover="this.className='menu_title2';"
onclick=menuChange(menu6,30,menuTitle6);
onmouseout="this.className='menu_title';"
background="images/pics/title_bg_show.gif"
height=25><SPAN>文件管理</SPAN> </TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu6
style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; top: 10px;" cellSpacing=0
cellPadding=0 width=135 align=center>
<TBODY>
<TR>
<TD height=20>没有栏目</TD>
</TR>
</TBODY>
</TABLE>
</DIV></TD></TR></TBODY></TABLE>
<% end if
end if
Rs.close
set rs=nothing
%>
<%if session("flag")="1" then%>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
<TBODY>
<TR style="CURSOR: hand">
<TD class=menu_title id=menuTitle7
onmouseover="this.className='menu_title2';"
onclick=menuChange(menu7,110,menuTitle7);
onmouseout="this.className='menu_title';"
background="images/pics/title_bg_show.gif"
height=25><SPAN>数据库管理(Access)</SPAN> </TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menu7
style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; TOP: 10px;" cellSpacing=0
cellPadding=0 width=135 align=center>
<TBODY>
<TR><TD height=20>
<A href="admin_db_compact.asp" target="mainFrame">压缩数据库</A>
</TD></TR>
<TR><TD height=20>
<A href="admin_db_backup.asp" target="mainFrame">备份数据库</A>
</TD></TR>
<TR>
<TR><TD height=20>
<A href="admin_db_ubackup.asp" target="mainFrame">还原数据库</A>
</TD></TR>
<TR>
<TD height=20>
<A href="admin_db_executesql.asp" target="mainFrame">执行SQL语句</A>
</TD></TR>
<TR>
<TD height=20> <A href="admin_db_space.asp" target="mainFrame">系统空间占用</A>
</TD>
</TR>
</TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>
<%end if%>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
<TBODY>
<TR style="CURSOR: hand">
<TD class=menu_title id=menuTitlex
onmouseover="this.className='menu_title2';"
onclick=menuChange(menux,50,menuTitlex);
onmouseout="this.className='menu_title';"
background="images/pics/title_bg_show.gif"
height=25><SPAN>其他>></SPAN> </TD>
</TR>
<TR>
<TD>
<DIV class=sec_menu id=menux
style="DISPLAY: none; FILTER: alpha(Opacity=0); WIDTH: 158px; HEIGHT: 0px">
<TABLE style="POSITION: relative; TOP: 10px;" cellSpacing=0
cellPadding=0 width=135 align=center>
<TBODY>
<TR><TD height=20>
<A href="admin_body.htm" target="mainFrame">帮助文档</A>
</TD></TR>
<TR>
<TD height=20>
<A href="aspcheck.asp" target="mainFrame">程序探测</a>
</TD>
</TR>
</TBODY></TABLE></DIV></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=158 align=center>
<TBODY>
<TR style="CURSOR: hand">
<TD class=menu_title id=menuTitle8
onmouseover="this.className='menu_title2';"
onmouseout="this.className='menu_title';"
background="images/pics/title_bg_show.gif"
height=25><SPAN>技术支持</SPAN> </TD>
</TR>
<TR>
<TD align="left">
<DIV class=sec_menu id=menu8
style="FILTER: alpha(Opacity=100); WIDTH: 158px; HEIGHT:100px"><a href="http://www.wapforum.cn/" target="_blank">Wap站长论坛</a>
提供技术支持<br>
QQ群1：8684529<br>
QQ群2：14918565<br>
QQ：13431619<br><br>
<a href="http://bbs.wapforum.cn/" target="_blank">Wap站长论坛</a>【WapForum.Cn】
</DIV></TD></TR></TBODY></TABLE>
</tbody>
</table>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -