www.gusucode.com > ASP+ACCESS学生信息管理系统设计(源代码+论文) > ASP+ACCESS学生信息管理系统设计(源代码+论文)\赵超\AdminLeft.asp

    <% Call IsLog() %>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="Css/wangye9pt.css" rel="stylesheet" type="text/css">
<table width="100%" height="100%"  border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td height="20" background="Images/TopMenu.gif"></td>
  </tr>
  <tr>
    <td valign="top" background="Images/CenterMenu.gif" bgcolor="#FFFFFF"><table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0" class="TableAll">
        <tr>
          <td height="50" align="center" class="TrBody">欢迎〖<%=Session("UserName")%>〗 <br>
            〖
            <%
	Str="Select * From IsOpr where OprValue=" & Cint(Session("UserOpr"))
	Set Rs=Conn.execute(Str)
	Response.Write(Rs("OprName"))
	
	%>
            〗
            <hr color="#CCCCCC"></td>
        </tr>
        <%
Str="Select * From UserPage Where PageOpr>=" & Cint(Session("UserOpr")) & " Order By ShowID "
Set Rs=Conn.execute(Str)
Do while Not Rs.eof

%>
        <tr>
          <td height="25" align="center" class="TrBody"><a href="<%=Rs("PageName")%>"  target="_self" class="TrBody"><%=Rs("PageValue")%></a></td>
        </tr>
        <%
Rs.MoveNext
Loop
%>
      </table></td>
  </tr>
  <tr>
    <td height="23" background="Images/FootMenu.gif"></td>
  </tr>
</table>