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>