?? admin_index.asp
字號:
<!--#include file="../conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/inc.asp"-->
<!--#include file="inc/inc.asp"-->
<%
Response.expires=-1
Response.AddHeader"pragma","no-cache"
Response.AddHeader"cache-control","no-store"
Dim rsnext,next_i,rsnext2,next2_i
%>
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>后臺管理</title>
<LINK rel="stylesheet" type="text/css" href="images/index.css">
<Script Language="JavaScript" type="text/JavaScript" src="inc/index.js"></script>
</head>
<body>
<%Login_Judge%>
<table width="100%" height="100%" border="1" cellspacing="0" cellpadding="0">
<tr>
<td height="85" class="system_top">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2" width="200" class="system_logo"> </td>
<td class="system_post">
<div id="infozone">
<div>當前程序:25175 學生網報名系統</div>
<div>版本:2007 build1006</div>
<div><A HREF="http://www.25175.com">官方網站:www.25175.com</A></div>
</div></td>
</tr>
<tr>
<td class="system_post">
<div id="top_menu">
<ul id="nav" class="menu_bg">
<li class="menu_l"></li>
<%
Set rs = server.CreateObject("adodb.recordset")
sql="select id,Menu,Ord,urls from Admin_Menu where TopId=0 order by Ord"
rs.Open sql,Conn,1,1
If Not rs.eof Then
i=0
Do While Not rs.eof
response.write "<li><a href=""#"" onclick=""menucheck('"&i&"','"&rs(3)&"')"" hidefocus=""true"">"&rs(1)&"</a>"
Set rsnext = server.CreateObject("adodb.recordset")
sql="select id,Menu,Ord,urls from Admin_Menu where TopId="&rs(0)&" order by Ord"
rsnext.Open sql,Conn,1,1
If Not rsnext.eof Then
response.write vbcrlf &"<ul id=""m_t_"&i&"""> " & vbcrlf
next_i=0
Do While Not rsnext.eof
next_i=next_i+1
Set rsnext2 = server.CreateObject("adodb.recordset")
sql="select id,Menu,Ord,urls from Admin_Menu where TopId="&rsnext(0)&" order by Ord"
rsnext2.Open sql,Conn,1,1
If Not rsnext2.eof Then
response.write "<li class=""nextmenu""><a href=""#"" onclick=""menucheck('"&i&"','')"" hidefocus=""true"">" & _
rsnext(1)&"</a>"
response.write vbcrlf &"<ul> " & vbcrlf
next2_i=0
Do While Not rsnext2.eof
next2_i=next2_i+1
response.write "<li><a href=""#"" onclick=""menucheck('"&i&"','"&rsnext2(3)&"')"" hidefocus=""true"">" & _
rsnext2(1)&"</a></li>" & vbcrlf
rsnext2.movenext
Loop
rsnext2.close
response.write "</ul>" & vbcrlf
Else
response.write "<li><a href=""#"" onclick=""menucheck('"&i&"','"&rsnext(3)&"')"" hidefocus=""true"">" & _
rsnext(1)&"</a>"
End If
response.write "</li>" & vbcrlf
rsnext.movenext
Loop
response.write "</ul>" & vbcrlf
End If
rsnext.close
response.write "</li>" & vbcrlf
i=i+1
rs.movenext
Loop
End If
rs.close
%>
<li><A HREF="logout.asp" hidefocus="true">退出登陸</A></li>
<li class="menu_r"></li>
</ul>
</div>
</td>
</tr>
<tr>
<td colspan="2" class="system_linedot"><div class="system_ico"></div></td>
</tr>
</table>
</td>
</tr>
<tr>
<td>
<TABLE border=0 cellPadding=0 cellSpacing=0 height="100%" width="100%">
<TBODY>
<TR>
<TD id=frmTitle vAlign=top name="fmTitle" class="main_left" style="display:block;">
<IFRAME frameBorder=0 id=frmleft name=frmleft width="190" height="100%" src="admin_left.html" class="left_iframe" allowTransparency="true"></IFRAME>
</td>
<TD class="mid">
<TABLE border=0 cellPadding=0 cellSpacing=0 height="100%">
<TBODY>
<TR>
<TD onClick="switchSysBar()" style=" HEIGHT: 100%">
<SPAN class=navPoint id=switchPoint title="關閉/打開左欄"><img src="images/admin_mid_ico_l.gif"></SPAN>
</TD>
</TR>
</TBODY>
</TABLE>
</TD>
<TD width="100%" vAlign=top>
<IFRAME frameBorder=0 id=frmright width="100%" height="100%" name=frmright scrolling=yes src="main.asp" class="main_iframe"></IFRAME>
</TD>
</TR>
</TBODY>
</TABLE>
</td>
</tr>
</table>
</body>
</html>
<%'postinfo%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -