📄 left.asp
字号:
<!--#include file=conn.asp-->
<!--#include file=xwfun.asp-->
<!--#include file=function.asp-->
<HTML>
<HEAD>
<TITLE> New Document </TITLE>
</HEAD>
<BODY>
<%If request("action")="logout" Then
Session.Contents.Remove("Admin")
Session.Contents.Remove("grade")
Session.Contents.Remove("student")
Response.Redirect "login.asp"
Response.End
End If
%>
<div>
<%
If Session("Admin")<>"" And session("xs_right")="2" Then
Response.Write "欢迎<font color='red'>"&Session("Admin")&"</font>管理员"
%>
<p><a href="xs_student.asp" target="mainFrame">学生信息</a></p>
<p><a href="showgrade.asp" target="mainFrame">班级信息</a></p>
<p><a href="depart.asp" target="mainFrame">院系信息</a></p>
<p><a href="showpassword.asp" target="mainFrame">密码修改</a></p>
<p><a href="?action=logout" target="_parent">重新登录</a></p>
<%
ElseIf Session("grade")<>"" Then
Response.Write "欢迎<font color='red'>"&Session("grade")&"</font>老师"
%>
<p><a href="xs_student.asp" target="mainFrame">学生信息</a></p>
<p><a href="showgrade.asp" target="mainFrame">班级信息</a></p>
<p><a href="showpassword.asp" target="mainFrame">密码修改</a></p>
<p><a href="?action=logout" target="_parent">重新登录</a></p>
<%
ElseIf Session("student")<>"" Then
Response.Write "欢迎<font color='red'>"&Session("student")&"</font>同学"
Set rs=conn.execute("select * from student where 学生ID='"&Session("student")&"'")
%>
<p><a href="update_student.asp?ID=<%=rs("学生ID")%>" target="mainFrame">个人信息</a></p>
<p><a href="showpassword.asp" target="mainFrame">密码修改</a></p>
<p><a href="?action=logout" target="_parent">重新登录</a></p>
<%
rs.close
Set rs=Nothing
Else
Response.Write " <a href='login.asp' style='color:black'>管理登录</a>"
End If
%>
</div>
</BODY>
</HTML>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -